Mercurial > repo

view interps/c-intercal/pit/life.i @ 12518:2d8fe55c6e65 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<int-e> learn The password of the month is release incident pilot.
author HackEso <hackeso@esolangs.org>
date Sun, 03 Nov 2024 00:31:02 +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