Mercurial > repo
diff interps/c-intercal/pit/life.i @ 996:859f9b4339e6
<Gregor> tar xf egobot.tar.xz
author | HackBot |
---|---|
date | Sun, 09 Dec 2012 19:30:08 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/interps/c-intercal/pit/life.i Sun Dec 09 19:30:08 2012 +0000 @@ -0,0 +1,276 @@ + + PLEASE NOTE BEGINNING OF BEGINNING + DO WRITE IN .11 + DO WRITE IN .12 + DO ,1 <- .11 BY .12 + DO ,2 <- .11 BY .12 + DO WRITE IN .13 + DO .14 <- #0 + + PLEASE NOTE INITIALIZING ,1 TO ZEROES + DO .2 <- .11 + DO .1 <- .12 + DO (110) NEXT +(110) PLEASE FORGET #1 + DO ,1 SUB .2.1 <- #0 + DO (111) NEXT +(112) DO (2010) NEXT + PLEASE FORGET #2 + DO (110) NEXT +(111) DO (112) NEXT + DO (113) NEXT +(114) DO .1 <- .2 + DO (2010) NEXT + PLEASE FORGET #3 + DO .2 <- .1 + DO .1 <- .12 + DO (110) NEXT +(113) DO (114) NEXT + PLEASE FORGET #2 + + PLEASE NOTE INITIAL POSITION INPUT + DO (120) NEXT +(120) PLEASE FORGET #1 + DO WRITE IN .1 + DO (121) NEXT + DO WRITE IN .2 + DO ,1 SUB .1.2 <- #1 + DO (120) NEXT +(122) DO RESUME "?!1~.1'$#1"~#3 +(121) DO (122) NEXT + PLEASE FORGET #1 + + PLEASE NOTE END OF BEGINNING, BEGINNING OF MIDDLE + DO (200) NEXT +(200) DO FORGET #1 + + PLEASE NOTE PUTTING NEXT POSITION IN ,2 + DO .1 <- .11 + DO .9 <- .1 + DO (2000) NEXT + DO .7 <- .1 + DO (2000) NEXT + DO .5 <- .1 + DO .1 <- .12 + DO .10 <- .1 + DO (2000) NEXT + DO .8 <- .1 + DO (2000) NEXT + DO .6 <- .1 + DO (210) NEXT +(210) PLEASE FORGET #1 + + DO .1 <- #0 + DO .2 <- ,1 SUB .5.6 + DO (2020) NEXT + DO .2 <- ,1 SUB .5.8 + DO (2020) NEXT + DO .2 <- ,1 SUB .5.10 + DO (2020) NEXT + DO .2 <- ,1 SUB .7.6 + DO (2020) NEXT + DO .2 <- ,1 SUB .7.10 + DO (2020) NEXT + DO .2 <- ,1 SUB .9.6 + DO (2020) NEXT + DO .2 <- ,1 SUB .9.8 + DO (2020) NEXT + DO .2 <- ,1 SUB .9.10 + DO (2020) NEXT + DO :2 <- #0$#65535 + DO .1 <- "?'"V.1$,1SUB.7.8"~:2'$#3"~:2 + DO ,2 SUB .7.8 <- "?!1~.1'$#1"~#1 + + DO (211) NEXT +(212) DO .10 <- .8 + DO .8 <- .6 + DO .1 <- .6 + DO (2010) NEXT + PLEASE FORGET #2 + DO .6 <- .1 + DO (210) NEXT +(211) DO (212) NEXT + DO (213) NEXT +(214) DO .9 <- .7 + DO .7 <- .5 + DO .1 <- .5 + DO (2010) NEXT + PLEASE FORGET #3 + DO .5 <- .1 + DO .1 <- .12 + DO .10 <- .1 + DO (2000) NEXT + DO .8 <- .1 + DO (2000) NEXT + DO .6 <- .1 + DO (210) NEXT +(213) DO (214) NEXT + PLEASE FORGET #2 + + PLEASE NOTE COPYING ,2 BACK INTO ,1 + DO .1 <- .11 + DO (2000) NEXT + DO .2 <- .1 + DO .1 <- .12 + DO (2000) NEXT + DO (220) NEXT +(220) PLEASE FORGET #1 + DO ,1 SUB .2.1 <- ,2 SUB .2.1 + DO (221) NEXT + DO (220) NEXT +(222) DO (2000) NEXT + DO .3 <- "?.1$#1"~"#0$#65535" + PLEASE RESUME '?"!3~.3'~#1"$#1'~#3 +(221) DO (222) NEXT + PLEASE FORGET #1 + DO (223) NEXT + DO .2 <- .1 + DO .1 <- .12 + DO (2000) NEXT + DO (220) NEXT +(224) DO .1 <- .2 + DO (2000) NEXT + DO .3 <- "?.1$#1"~"#0$#65535" + PLEASE RESUME '?"!3~.3'~#1"$#1'~#3 +(223) DO (224) NEXT + PLEASE FORGET #1 + + PLEASE NOTE INCREMENT TIMESTEP AND TEST + DO .1 <- .14 + DO (1020) NEXT + DO .14 <- .1 + DO (231) NEXT + DO (299) NEXT +(232) DO .3 <- "?.14$.13"~"#0$#65535" + PLEASE RESUME '?"!3~.3'~#1"$#2'~#3 +(231) DO (232) NEXT + DO FORGET #1 + + PLEASE NOTE OVERFLOW TESTING + DO .1 <- .11 + DO (2000) NEXT + DO .5 <- .1 + DO .1 <- .12 + DO (2000) NEXT + DO .6 <- .1 + DO .7 <- #0 + DO .8 <- #0 + DO (240) NEXT +(240) PLEASE FORGET #1 + DO .2 <- ,1 SUB #2.6 + DO .1 <- .7 + DO (500) NEXT + DO .7 <- .1 + DO .2 <- ,1 SUB .5.6 + DO .1 <- .8 + DO (500) NEXT + DO .8 <- .1 + DO (241) NEXT + DO .6 <- .1 + DO (240) NEXT +(242) DO .1 <- .6 + DO (2000) NEXT + DO .3 <- "?.1$#1"~"#0$#65535" + PLEASE RESUME '?"!3~.3'~#1"$#1'~#3 +(241) DO (242) NEXT + PLEASE FORGET #1 + + DO .1 <- .11 + DO (2000) NEXT + DO .5 <- .1 + DO .1 <- .12 + DO (2000) NEXT + DO .6 <- .1 + DO .7 <- #0 + DO .8 <- #0 + DO (250) NEXT +(250) PLEASE FORGET #1 + DO .2 <- ,1 SUB .5#2 + DO .1 <- .7 + DO (500) NEXT + DO .7 <- .1 + DO .2 <- ,1 SUB .5.6 + DO .1 <- .8 + DO (500) NEXT + DO .8 <- .1 + DO (251) NEXT + DO .5 <- .1 + DO (250) NEXT +(252) DO .1 <- .5 + DO (2000) NEXT + DO .3 <- "?.1$#1"~"#0$#65535" + PLEASE RESUME '?"!3~.3'~#1"$#1'~#3 +(251) DO (252) NEXT + PLEASE FORGET #1 + + DO (200) NEXT + +(299) DO FORGET #1 + PLEASE NOTE END OF MIDDLE, BEGINNING OF END + + PLEASE NOTE FINAL POSITION OUTPUT + DO .2 <- .11 + DO .1 <- .12 + DO (310) NEXT +(310) PLEASE FORGET #1 + DO (321) NEXT + DO READ OUT .2 + DO READ OUT .1 + DO (323) NEXT +(322) PLEASE RESUME "?',1 SUB .2.1'$#1"~#3 +(321) DO (322) NEXT +(323) PLEASE FORGET #1 + DO (311) NEXT +(312) DO (2010) NEXT + PLEASE FORGET #2 + DO (310) NEXT +(311) DO (312) NEXT + DO (313) NEXT +(314) DO .1 <- .2 + DO (2010) NEXT + PLEASE FORGET #3 + DO .2 <- .1 + DO .1 <- .12 + DO (310) NEXT +(313) DO (314) NEXT + PLEASE FORGET #2 + + DO READ OUT .14 + + PLEASE NOTE END OF END + PLEASE GIVE UP + + +(500) DO (501) NEXT + DO .1 <- #0 + PLEASE RESUME #1 +(502) PLEASE RESUME '?.2$#2'~#3 +(501) DO (502) NEXT + DO (2020) NEXT + DO (503) NEXT + PLEASE RESUME #2 +(504) DO .2 <- "?.1$#3"~"#0$#65535" + PLEASE RESUME '?"!2~.2'~#1"$#1'~#3 +(503) DO (504) NEXT + PLEASE FORGET #3 + DO (299) NEXT + +(2010) PLEASE ABSTAIN FROM (2004) +(2000) PLEASE STASH .2 + DO .2 <- #1 + DO (2001) NEXT +(2001) PLEASE FORGET #1 + DO .1 <- '?.1$.2'~'#0$#65535' + DO (2002) NEXT + DO .2 <- !2$#0'~'#32767$#1' + DO (2001) NEXT +(2003) PLEASE RESUME "?!1~.2'$#1"~#3 +(2002) DO (2003) NEXT + PLEASE RETRIEVE .2 +(2004) PLEASE RESUME #2 + PLEASE DO REINSTATE (2004) + PLEASE RESUME '?"!1~.1'~#1"$#2'~#6 + +(2020) PLEASE STASH .2 + .3 + DO (1021) NEXT +