(toiminnot)

hwechtla-tl: INTERCAL-runokilpailun voittaja

Kierre.png

Mikä on WikiWiki?
nettipäiväkirja
koko wiki (etsi)
viime muutokset


Kirjoitin tämän joskus hyvin kauan sitten. Se on yhtaikaa runo, ja INTERCAL-kielinen ohjelma. (Katso http://en.wikipedia.org/wiki/INTERCAL)

Asian ymmärtämistä helpottaa se, että uusi "komento" alkaa aina sanoilla PLEASE, PLEASE DO tai pelkästään DO. Jos tämän jälkeen komennossa lukee NOT tai N'T, se on kommentti eikä sitä suoriteta. Ohjelma siis alkaa kommentilla.

        PLEASE DO NOTE THAT PROGRAMS NEVER DIE;
        NOR SUFFER, NOR COMPLAIN -
        AND RARELY LIE.

PART i.

(1)     DO STUDY #1 AT (1000) IN CLASS @1
        DON'T EXPECT ANY BENEFIT FROM THAT
        DO ENROL .1 TO LEARN #1 PLEASE
        NOT THAT IT WOULD WRECK THAT BRAT.

2       FOR .1 AND .2 ARE STUBBORN FELLOWS
        WHO ONLY DO ENSLAVE .1 TO .2
        DO .2 <- #5 DO .1 <- #3 DO NOT IGNORE
        THE EXTREMES TO WHICH THEY'VE GONE.

(3)     PLEASE COME FROM (5) DON'T FEAR TO TELL
        HOW HORRIBLE IT WAS 'ROUND THERE
        DO READ OUT .1 PLEASE NOTING THIS TIME
        WE WANT YOUR INFORMATION TO SHARE.

4       NOW PLEASE .1 LEARNS #1 DON'T WAIT NO MORE
        AND REMEMBER TO RING THE BELL
        DO ABSTAIN FROM (5) PLEASE NOT (6) INSTEAD
        OR OTHERWISE YOU'LL GO TO HELL.

(5)     DONE IS THE TELLING OF LORE,
        GONE ARE THE DAYS OF YORE.

        DO NOTRE DAMUS FANS LIKE THIS POEM?
        CERTAINLY NOT.

PART ii.

(1000)  DO STASH $$@1
        PLEASE COME FROM :35
        DO :35 <- $$@1 ¢ $@1
        DO $@1 <- '¥:35' ~ '#0 ¢ #65535'
        DO $$@1 <- '&:35' ~ '#0 ¢ #65535'
        DO $$@1 <- '$$@1 ¢ #0' ~ '#32767 ¢ #1'
        DO :35 <- VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV$$@1 
(1023)  DO :35 <- :35 ~ #4092
        DO RETRIEVE $$@1
        PLEASE FINISH LECTURE


kommentoi (viimeksi muutettu 22.08.2014 10:34)