Mercurial > repo

view interps/c-intercal/pit/lib/syslib.3i @ 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 KNOCK THREE TIMES BEFORE ENTERING

	(1000)	PLEASE IGNORE .4
		PLEASE ABSTAIN FROM (1005)
	(1009)	DO STASH .1 + .2 + .5 + .6
		DO .4 <- #1
		DO (1004) NEXT
	(1004)	PLEASE FORGET #1
		DO .3 <- '^.1$.2'~'#0$#29524'
		DO .6 <- '?"'V"'&.1$.2'~'#0$#29524'"$#29524'
		     ~'#0$#29524'"$#29524'~'#0$#29524'
		PLEASE DO .5 <- 'V".6~#39366"$#1'~#1
		DO (1002) NEXT
		DO .4 <- #2
	(1005)	DO (1006) NEXT
	(1999)	DOUBLE OR SINGLE PRECISION OVERFLOW
	(1002)	DO (1001) NEXT
	(1006)	PLEASE FORGET #1
		DO .5 <- 'V"!6~.6'~#2"$#1'~#1
		DO (1003) NEXT
		DO .1 <- .3
		DO .2 <- !6$#0'~'#9841$#1'
		DO (1004) NEXT
	(1003)	DO (1001) NEXT
		DO REINSTATE (1005)
	(1007)	PLEASE RETRIEVE .1 + .2 + .5 + .6
		DO REMEMBER .4
		PLEASE RESUME #2
	(1001)	DO RESUME .5
	(1010)	DO STASH .1 + .2 + .4
		DO .4 <- .1
		DO .1 <- '?#59048$.2'~'#0$#29524'
		DO (1020) NEXT
		PLEASE DO .2 <- .4
		PLEASE DO (1009) NEXT
		DO RETRIEVE .1 + .2 + .4
		PLEASE RESUME #1
	(1020)	DO STASH .2 + .3
		DO .2 <- #1
		PLEASE DO (1021) NEXT
	(1021)	DO FORGET #1
		DO .3 <- 'V"!1~.2'$#1"'~#1
		PLEASE DO .1 <- '^.1$.2'~'#0$#29524'
		DO (1022) NEXT
		DO .2 <- !2$#0'~'#9841$#1'
		DO (1021) NEXT
	(1023)	PLEASE RESUME .3
	(1022)	DO (1023) NEXT
		PLEASE RETRIEVE .2 + .3
		PLEASE RESUME #2
	(1030)	DO ABSTAIN FROM (1033)
		PLEASE ABSTAIN FROM (1032)
	(1039)	DO STASH :1 + .5
		DO (1530) NEXT
		DO .3 <- :1~#29524
		PLEASE DO .5 <- :1~'#29403$#29403'
		DO .5 <- 'V"!5~.5'~#2"$#1'~#1
		DO (1031) NEXT
	(1032)	DO (1033) NEXT
		DO (1999) NEXT
	(1031)	DO (1001) NEXT
	(1033)	DO .4 <- .5
		DO REINSTATE (1032)
		PLEASE REINSTATE (1033)
		DO RETRIEVE :1 + .5
		PLEASE RESUME #2
	(1040)	PLEASE STASH .1 + .2 + .2 + :1 + :2 + :3
		DO .2 <- #0
		DO (1520) NEXT
		DO STASH :1
		PLEASE RETRIEVE .2
		DO .1 <- .2
		DO .2 <- #0
		PLEASE DO (1520) NEXT
		DO :2 <- :1
		DO RETRIEVE .1 + .2 + :1
		DO (1550) NEXT
		PLEASE DO .3 <- :3
		DO RETRIEVE :1 + :2 + :3
		DO RESUME #1
	(1050)	PLEASE STASH :2 + :3 + .5
		DO :2 <- .1
		PLEASE DO (1550) NEXT
		DO .5 <- :3~'#29403$#29403'
		DO .5 <- 'V"!5~.5'~#2"$#1'~#1
		DO (1051) NEXT
		DO (1999) NEXT
	(1051)	DO (1001) NEXT
		DO .2 <- :3
		PLEASE RETRIEVE :2 + :3 + .5
		DO RESUME #2
	(1500)	PLEASE ABSTAIN FROM (1502)
		PLEASE ABSTAIN FROM (1506)
	(1509)	PLEASE STASH :1 + .1 + .2 + .3 + .4 + .5 + .6
		DO .1 <- :1~#29524
		PLEASE DO .2 <- :2~#29524
		DO (1009) NEXT
		DO .5 <- .3
		PLEASE DO .6 <- .4
		DO .1 <- :1~'#29403$#29403'
		DO .2 <- :2~'#29403$#29403'
		DO (1009) NEXT
		DO .1 <- .3
		PLEASE DO (1503) NEXT
		DO .6 <- .4
		DO .2 <- #1
		DO (1009) NEXT
		DO .1 <- .3
		DO (1501) NEXT
	(1504)	PLEASE RESUME .6
	(1503)	DO (1504) NEXT
	(1501)	DO .2 <- .5
		DO .5 <- '&.6$.4'
		DO (1505) NEXT
	(1506)	DO (1502) NEXT
		PLEASE DO (1999) NEXT
	(1505)	DO (1001) NEXT
	(1502)	DO :4 <- .5
		DO (1520) NEXT
		DO :3 <- :1
		PLEASE RETRIEVE :1 + .1 + .2 + .3 + .4 + .5 + .6
		DO REINSTATE (1502)
		DO REINSTATE (1506)
		PLEASE RESUME #3
	(1510)	DO STASH :1 + :2 + :4
		DO :1 <- "'?#59048$":2~'#29524$#0'"'~'#0$#29524'"
		     $"'?#59048$":2~'#0$#29524'"'~'#0$#29524'"
		DO :2 <- #1
		DO (1509) NEXT
		PLEASE RETRIEVE :1
		DO :2 <- :3
		PLEASE DO (1509) NEXT
		DO RETRIEVE :2 + :4
		PLEASE RESUME #1
	(1520)	PLEASE STASH .3 + .4
		DO .3 <- .1~#22143
		DO (1525) NEXT
		PLEASE DO .4 <- 'V.3$".2~#22143"'~'#0$#29524'
		DO .3 <- .1~#7381
		PLEASE DO (1525) NEXT
		DO :1 <- .4$"'V.3$".2~#7381"'~'#0$#29524'"
		PLEASE RETRIEVE .3 + .4
		DO RESUME #1
	(1525)	DO .3 <- '"'"!3$#0'~'#9841$#1'"$#0'~'#3280$#4'"
		     $#0'~'#3280$#4'
		PLEASE RESUME #1
	(1530)	DO STASH :2 + :3 + .3 + .5
		DO :1 <- #0
		DO :2 <- .2
		DO .3 <- #1
		DO (1535) NEXT
	(1535)	PLEASE FORGET #1
		DO .5 <- '@"'^".1~.3"$#7'~#4"$#2'~#10
		DO (1534) NEXT
		DO (1500) NEXT
		DO :1 <- :3
		DO (1536) NEXT
	(1534)	DO (1531) NEXT
	(1536)	DO (1500) NEXT
		DO :1 <- :3
		PLEASE DO (1533) NEXT
	(1531)	PLEASE DO (1001) NEXT
	(1533)	DO FORGET #2
		DO .3 <- !3$#0'~'#9841$#1'
		DO :2 <- ":2~'#0$#29524'"$"'":2~'#9841$#0'"$#0'
		     ~'#9841$#1'"
		PLEASE DO .5 <- 'V"!3~.3'~#2"$#1'~#1
		DO (1532) NEXT
		DO (1535) NEXT
	(1532)	DO (1001) NEXT
		PLEASE RETRIEVE :2 + :3 + .3 + .5
		DO RESUME #2
	(1540)	PLEASE ABSTAIN FROM (1541)
		DO ABSTAIN FROM (1542)
	(1549)	PLEASE STASH :1 + :2 + :4 + :5 + .1 + .2 + .5
		DO .1 <- :1~#29524
		PLEASE DO .2 <- :2~'#29403$#29403'
		DO .5 <- :1~'#29403$#29403'
		DO (1530) NEXT
		DO :3 <- :1
		DO .2 <- :2~#29524
		PLEASE DO (1530) NEXT
		DO :5 <- :1
		DO .1 <- .5
		DO (1530) NEXT
		DO :4 <- :1
		PLEASE DO :1 <- ":3~'#29403$#29403'"$":4~'#29403
		     $#29403'"
		DO .5 <- ':1~:1'~#2
		DO .2 <- :2~'#29403$#29403'
		DO (1530) NEXT
		PLEASE DO .5 <- '"':1~:1'~#2"$.5'~#4
		DO .1 <- :3~#29524
		DO .2 <- #0
		DO (1520) NEXT
		PLEASE DO :2 <- :1
		PLEASE DO .1 <- :4~#29524
		DO (1520) NEXT
		DO (1509) NEXT
		DO .5 <- !5$":4~#1"'~#31
		DO :1 <- :3
		DO :2 <- :5
		DO (1509) NEXT
		PLEASE DO .5 <- !5$":4~#1"'~#274
		DO .5 <- !5~.5'~#1
		PLEASE RETRIEVE :4
	(1541)	DO :4 <- .5
		DO (1543) NEXT
	(1542)	DO (1544) NEXT
		PLEASE DO (1999) NEXT
	(1543)	DO (1001) NEXT
	(1544)	DO REINSTATE (1541)
		PLEASE REINSTATE (1542)
		PLEASE RETRIEVE :1 + :2 + :5 + .1 + .2 + .5
		DO RESUME #2
	(1550)	DO STASH :1 + :4 + :5 + :6 + .5
		DO :3 <- #0
		DO .5 <- 'V"':2~:2'~#2"$#1'~#1
		PLEASE DO (1551) NEXT
		DO :4 <- #1
		PLEASE DO (1553) NEXT
	(1553)	DO FORGET #1
		DO .5 <- '?"':2~"#39366$#0"'"$#1'~#1
		DO (1552) NEXT
		DO :2 <- ":2~'#0$#29524'"$"'":2~'#9841$#0'"$#0'
		     ~'#9841$#1'"
		PLEASE DO :4 <- ":4~'#0$#29524'"$"'":4~'#9841
		     $#0'"$#0'~'#9841$#1'"
		DO (1553) NEXT
	(1552)	DO (1001) NEXT
	(1556)	PLEASE FORGET #1
		DO :6 <- "'&":2~'#29524$#0'"$"'?#59048$":1
		     ~'#29524$#0'"'~'#0$#29524'"'~'#0$#29524'"$
		     "'&":2~'#0$#29524'"$"'?#59048$":1~'#0$
		     #29524'"'~'#0$#29524'"'~'#0$#29524'"
		DO :5 <- "'?":1~'#29524$#0'"$":2~'#29524$#0'"'
		     ~'#0$#59048'"$"'?":1~'#0$#29524'"$":2~'#0$
		     #29524'"'~'#0$#59048'"
		DO .5 <- "?'"':6~:5'~'"'"'&"':5~:5'~'#29524$#0'"$
		     #19683'~'#0$#29524'"$"'?:5~:5'~'#9841$#0'"'
		     ~'#19683$#9841'"$"'?:5~:5'~'#0$#29524'"'"
		     ~#1'$#1"~#1
		DO (1554) NEXT
		DO :5 <- :3
		DO (1510) NEXT
		PLEASE DO :1 <- :3
		DO :6 <- "'&":2~'#29524$#0'"$"'?#59048$":1
		     ~'#29524$#0'"'~'#0$#29524'"'~'#0$#29524'"$
		     "'&":2~'#0$#29524'"$"'?#59048$":1~'#0$
		     #29524'"'~'#0$#29524'"'~'#0$#29524'"
		DO :3 <- "'?":1~'#29524$#0'"$":2~'#29524$#0'"'
		     ~'#0$#59048'"$"'?":1~'#0$#29524'"$":2~'#0$
		     #29524'"'~'#0$#59048'"
		DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#29524$#0'"$
		     #19683'~'#0$#29524'"$"'?:3~:3'~'#9841$#0'"'
		     ~'#19683$#9841'"$"'?:3~:3'~'#0$#29524'"'"
		     ~#1'$#1"~#1
		DO (1557) NEXT
		DO (1510) NEXT
		PLEASE DO :1 <- :3
		DO :3 <- "'V":4~'#59048$#0'"$":5~'#29524$#0'"'
		     ~'#0$#29524'"$"'V":4~'#0$#59048'"$":5~'#0$
		     #29524'"'~'#0$#29524'"
		PLEASE DO (1555) NEXT
	(1557)	PLEASE DO (1001) NEXT
		PLEASE FORGET #1
		DO :3 <- "'V":4~'#29524$#0'"$":5~'#29524$#0'"'
		     ~'#0$#29524'"$"'V":4~'#0$#29524'"$":5~'#0$
		     #29524'"'~'#0$#29524'"
		PLEASE DO (1555) NEXT
	(1554)	PLEASE DO (1001) NEXT
	(1555)	PLEASE FORGET #1
		DO .5 <- "?':4~#2'$#1"~#1
		DO (1551) NEXT
		DO :2 <- :2~'#29524$#29523'
		DO :4 <- :4~'#29524$#29523'
		PLEASE DO (1556) NEXT
	(1551)	DO (1001) NEXT
		PLEASE RETRIEVE :1 + :4 + :5 + :6 + .5
		PLEASE RESUME #2
	(1900)	DO STASH .2 + .5
		DO .1 <- #0
		DO .2 <- #1
		PLEASE DO (1901) NEXT
	(1901)	DO FORGET #1
		DO %50 (1904) NEXT
		DO %50 (1901) NEXT
		PLEASE DO (1903) NEXT
	(1904)	DO .1 <- '^.1$.2'~'#0$#29524'
		DO %50 .1 <- '^.1$.2'~'#0$#29524'
	(1903)	PLEASE FORGET #1
		DO .2 <- !2$#0'~'#9841$#1'
		PLEASE DO .5 <- 'V"!2~.2'~#2"$#1'~#1
		DO (1902) NEXT
		DO (1901) NEXT
	(1902)	DO (1001) NEXT
		DO RETRIEVE .2 + .5
		PLEASE RESUME #2
	(1910)	PLEASE STASH .1 + .3 + .5 + :1 + :2 + :3
		DO .3 <- #59037
		DO :1 <- #6
		DO (1911) NEXT
		PLEASE NOTE THAT YOU CAN'T GET THREE FROM HERE
	(1912)	DO (1001) NEXT
	(1911)	DO FORGET #1
		PLEASE DO (1900) NEXT
		DO :2 <- .1
		DO (1500) NEXT
		PLEASE DO :1 <- :3
		DO .1 <- .3
		DO (1020) NEXT
		PLEASE DO .3 <- .1
		DO .5 <- '?"!3~.3'~#2"$#1'~#1
		DO (1912) NEXT
		DO .1 <- #12
		PLEASE DO (1050) NEXT
		DO RETRIEVE .1
		DO (1530) NEXT
		DO :2 <- #29524
		DO (1500) NEXT
		PLEASE DO .2 <- :3~'#29403$#29403'
		PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
		DO RESUME #1