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
+