Kilpatehtävä

[viesti Survo-keskustelupalstalla (2001-2013)]

Päivienne piristeeksi ja iltojenne ratoksi olisi tässä tarjolla
Survo-aiheinen pähkinä purtavaksi.
Tehtävänä olisi saada sukro A toimimaan niin, että se tuottaisi
allamainitut tulokset.

Tällainen on sukron listaus ("jostain syystä" mm. ilman kommentteja):

*TUTSAVE A
*{tempo -1}{init}{R}{erase}{erase}{W4=X}{W5=X}
*{print W1}XXXXXXXXXXXXX{act}{l} {save word W2}{line start}{erase}
*{print W2}*{line start}
+ A: {r}{save char W3}
- if W3 '=' {sp} then goto C
- if W3 '=' W4 then goto E
- if W3 '<>' W5 then goto A
+ D: {save char W3}
- if W3 '=' W4 then goto E
* {goto D}
+ E:  {l}{goto A}
+ C: {line start}{W4=W1}
+ F: {save word W3}{W5=W3-X}{W4=W4*W5}{W4=W4/W3}
*{next word}{save word W2}
- if W2 > W3 then goto F
*{line start}{erase}{print W4}
*{tempo +1}{end}

Yllä kaikki kirjaimet X tarkoittavat piilotettuja merkkejä.
Kun X:t korvaa oikeilla merkeillä, sukro A antaa mm. seuraavia
tuloksia:

/A 147
84
/A 260
96
/A 819
432
/A 2002
720
/A 14552
6784
/A 123456
41088

Huom. Listaukseen ei saa lisäillä mitään uusia asioita eikä sitä saa
muuttaa paitsi korvaamalla jokainen X jollain muulla merkillä.

 ***************************************************************
 * Survoilija, joka lähettää ensimmäisenä oikean ratkaisun eli *
 * toimivan A-sukron listauksen vastauksena tähän viestiin,    *
 * palkitaan - paitsi Suurella Kunnialla - myös cembalisti     *
 * Elina Mustosen uudella kaksois-CD:llä. Levytys sisältää 2   *
 * tuntia "maailman parasta rautalankamusaa" eli J.S.Bachin    *
 * Englantilaiset sarjat.                                      *
 ***************************************************************

Ratkaisijalta ei edellytetä, että hän osaisi kertoa, mikä on
A-sukron varsinainen toimenkuva. Se on kuitenkin ihan mielekäs ja
selitettävissä peruskoulun matematiikan oppimäärän pohjalta.

Jään odottelemaan ratkaisua joksikin aikaa. Jos sellaista ei
ilmaannu ensi torstaihin (14.3.2002) mennessä (jolloin Survon
Käyttäjäyhdistyksen risteily päättyy), tulen antamaan lisävihjeitä
vähitellen niin kauan, että selvää tulee.

Kilpaan voivat osallistua kaikki Survon käyttäjät lukuunottamatta
"sisäpiiriläisiä" Kimmo V. ja Marjut S. (joilta on turha udella,
sillä en ole heillekään paljastanut ratkaisua -:)

Reiluun kilpaan kannustaen,
Seppo

• Re: Kilpatehtävä (Seppo Mustonen 14.3.2002 13:36)

Luettelo keskustelunaiheista

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!