Mercurial > repo

view interps/c-intercal/pit/life.i @ 12320:9c7eb9899d95 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<fizzie> le/rn karma//All living beings have actions (karma) as their own, their inheritance, their congenital cause, their kinsman, their refuge. It is karma that differentiates beings into low and high states.
author HackEso <hackeso@esolangs.org>
date Fri, 06 Mar 2020 23:08:37 +0000
parents 859f9b4339e6
children
line wrap: on
line source


	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