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