Mercurial > repo

view interps/c-intercal/pit/lib/syslib.7i @ 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 "SHAVE-AND-A-HAIRCUT-TWO-PLEASE" 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$#2801'
		DO .6 <- '?"'V"'V"'&.1$.2'~'#0$#2801'"$"'^"'@.1$
		     .2'~'#0$#2801'"$#2801'~'#0$#2801'"'~'#0$
		     #2801'"$"'^"'2@.1$.2'~'#0$#2801'"$#5602'
		     ~'#0$#2801'"'~'#0$#14005'"$#14005'~'#0$#2801'
		PLEASE DO .5 <- "?!6~#14406'$#7"~#7
		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 <- '?"!6~.6'~#6"$#7'~#7
		DO (1003) NEXT
		DO .1 <- .3
		DO .2 <- !6$#0'~'#400$#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 <- '?#16806$.2'~'#0$#2801'
		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"$#5'~#1"$#4'~#1
		PLEASE DO .1 <- '^.1$.2'~'#0$#2801'
		DO (1022) NEXT
		DO .2 <- !2$#0'~'#400$#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~#2801
		PLEASE DO .5 <- :1~'#2793$#2744'
		DO .5 <- '?"!5~.5'~#6"$#7'~#7
		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~'#2793$#2744'
		DO .5 <- '?"!5~.5'~#6"$#7'~#7
		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~#2801
		PLEASE DO .2 <- :2~#2801
		DO (1009) NEXT
		DO .5 <- .3
		PLEASE DO .6 <- .4
		DO .1 <- :1~'#2793$#2744'
		DO .2 <- :2~'#2793$#2744'
		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 <- "'?#16806$":2~'#2801$#0'"'~'#0$#2801'"$
		     "'?#16806$":2~'#0$#2801'"'~'#0$#2801'"
		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~#2451
		DO (1525) NEXT
		PLEASE DO .4 <- 'V.3$".2~#350"'~'#0$#2801'
		DO .3 <- .1~#350
		PLEASE DO (1526) NEXT
		DO :1 <- .4$"'V.3$".2~#2451"'~'#0$#2801'"
		PLEASE RETRIEVE .3 + .4
		DO RESUME #1
	(1525)	DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#400$#1'
		PLEASE RESUME #1
	(1526)	DO .3 <- '"!3$#0'~'#400$#1'"$#0'~'#57$#8'
		PLEASE RESUME #1
	(1530)	DO STASH :2 + :3 + :4 + .1 + .2 + .5
		DO :3 <- #0
		DO :4 <- .2
		DO (1535) NEXT
	(1535)	PLEASE FORGET #1
		DO .5 <- '?".1~#6"$#7'~#7
		DO (1531) NEXT
		DO :1 <- :4
		DO (1720) NEXT
		DO :1 <- :3
		DO (1500) NEXT
		PLEASE DO (1533) NEXT
	(1531)	PLEASE DO (1001) NEXT
	(1533)	DO FORGET #1
		DO .1 <- .1~#2800
		DO :4 <- ":4~'#0$#2801'"$"'":4~'#400$#0'"$#0'
		    ~'#400$#1'"
		PLEASE DO .5 <- '?"!1~.1'~#6"$#7'~#7
		DO (1532) NEXT
		DO (1535) NEXT
	(1532)	DO (1001) NEXT
		DO :1 <- :3
		PLEASE RETRIEVE :2 + :3 + :4 + .1 + .2 + .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~#2801
		PLEASE DO .2 <- :2~'#2793$#2744'
		DO .5 <- :1~'#2793$#2744'
		DO (1530) NEXT
		DO :3 <- :1
		DO .2 <- :2~#2801
		PLEASE DO (1530) NEXT
		DO :5 <- :1
		DO .1 <- .5
		DO (1530) NEXT
		DO :4 <- :1
		PLEASE DO :1 <- ":3~'#2793$#2744'"$":4
		     ~'#2793$#2744'"
		DO .5 <- ':1~:1'~#6
		DO .2 <- :2~'#2793$#2744'
		DO (1530) NEXT
		PLEASE DO .5 <- '"':1~:1'~#6"$.5'~#8
		DO .1 <- :3~#2801
		DO .2 <- #0
		DO (1520) NEXT
		PLEASE DO :2 <- :1
		PLEASE DO .1 <- :4~#2801
		DO (1520) NEXT
		DO (1509) NEXT
		DO .5 <- !5$"'^":4~#1"$#4'~#1"'~#351
		DO :1 <- :3
		DO :2 <- :5
		DO (1509) NEXT
		PLEASE DO .5 <- !5$"'^":4~#1"$#4'~#1"'~'#57$#1'
		DO .5 <- '?"!5~.5'~#1"$#4'~#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 + .1 + .5
		DO :5 <- #0
		DO .5 <- '?"':2~:2'~#6"$#7'~#7
		PLEASE DO (1551) NEXT
		DO :4 <- #1
		PLEASE DO (1553) NEXT
	(1553)	DO FORGET #1
		DO .5 <- '?"':2~"#14406$#0"'"$#5'~#1
		DO (1552) NEXT
		DO :2 <- ":2~'#0$#2801'"$"'":2~'#400$#0'"$#0'
		     ~'#400$#1'"
		PLEASE DO :4 <- ":4~'#0$#2801'"$"'":4~'#400
		     $#0'"$#0'~'#400$#1'"
		DO (1553) NEXT
	(1552)	DO (1001) NEXT
		DO .1 <- #0
	(1556)	PLEASE FORGET #1
		DO :6 <- "'&":2~'#2801$#0'"$"'?#16806$":1
		     ~'#2801$#0'"'~'#0$#2801'"'~'#0$#2801'"$
		     "'&":2~'#0$#2801'"$"'?#16806$":1~'#0$
		     #2801'"'~'#0$#2801'"'~'#0$#2801'"
		DO :3 <- "'?":1~'#2801$#0'"$":2~'#2801$#0'"'
		     ~'#0$#2801'"$"'?":1~'#0$#2801'"$":2~'#0$
		     #2801'"'~'#0$#2801'"
		DO :6 <- "'&":6~'#2801$#0'"$":3~'#2801$#0'"'
		     ~'#0$#2801'"$"'&":6~'#0$#2801'"$":3~'#0$
		     #2801'"'~'#0$#2801'"
		DO :3 <- :3~'#16806$#16806'
		DO :6 <- "'?"'V":6~'#2801$#0'"$#11204'~'#0$
		     #2801'"$#11204'~'#0$#16806'"$"'?"'V":6
		     ~'#0$#2801'"$#11204'~'#0$#2801'"$#11204'
		     ~'#0$#16806'"
		DO .5 <- "?'"':6~:3'~'"'"'&"':3~:3'~'#2801$#0'"$
		     #2401'~'#0$#2801'"$"'?:3~:3'~'#400$#0'"'
		     ~'#2401$#400'"$"'?:3~:3'~'#0$#2801'"'"~#1'$
		     #5"~#1
		PLEASE DO (1557) NEXT
		DO (1510) NEXT
		DO :1 <- :3
		DO .5 <- '?#0$"'V.1$#5'~#1"'~#1
		DO (1557) NEXT
		DO .1 <- '^.1$#2801'~'#0$#2801'
		DO (1556) NEXT
	(1557)	PLEASE DO (1001) NEXT
		PLEASE FORGET #1
		DO :5 <- "'V":4~'.1$#0'"$":5~'#2801$#0'"'
		     ~'#0$#2801'"$"'V":4~'#0$.1'"$":5~'#0$
		     #2801'"'~'#0$#2801'"
		DO .5 <- "?#2$':4~#1'"~#1
		DO (1551) NEXT
		DO :2 <- :2~'#2801$#2800'
		DO :4 <- :4~'#2801$#2800'
		DO .1 <- #0
		PLEASE DO (1556) NEXT
	(1551)	DO (1001) NEXT
		DO :3 <- :5
		PLEASE RETRIEVE :1 + :4 + :5 + :6 + .1 + .5
		PLEASE RESUME #2
	(1720)	PLEASE STASH :1 + :3 + :4 + .1 + .5
		DO :2 <- #0
		DO .2 <- #0
		DO .5 <- '?".1~#6"$#7'~#7
		DO (1729) NEXT
		DO .5 <- .1~#1
		DO .2 <- :1~'#2801$#0'
		DO .1 <- :1~'#0$#2801'
		PLEASE DO (1726) NEXT
		DO :1 <- '"?#0$.2"~"#0$#2801"'$'"?#0$.1"~"#0$
		     #2801"'
		DO :2 <- '"?'"V.2$#2801"~"#0$#2801"'$#2801"
		     ~"#0$#2801"'$'"?'"V.1$#2801"~"#0$#2801"'$
		     #2801"~"#0$#2801"'
		DO (1728) NEXT
	(1726)	PLEASE DO (1725) NEXT
		DO :1 <- '"?#0$'"^.2$.2"~"#0$#2801"'"~"#0$
		     #2801"'$'"?#0$'"^.1$.1"~"#0$#2801"'"~"#0$
		     #2801"'
		DO .2 <- "^'"V'"2@.2$#11204"~"#0$#2801"'$
		     #5602"~"#0$#2801"'$'"2@.2$#2801"~"#0$
		     #2801"'"~"#0$#2801"
		DO .1 <- "^'"V'"2@.1$#11204"~"#0$#2801"'$
		     #5602"~"#0$#2801"'$'"2@.1$#2801"~"#0$
		     #2801"'"~"#0$#2801"
		DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"
		     ~"#0$#2801"'
	(1728)	DO .2 <- :2~'#2401$#0'
		DO :2 <- ':2~"#0$#2801"'$'"':2~"#400$#0"'$#0"
		     ~"#400$#1"'
		DO (1509) NEXT
		DO :2 <- :3
		DO .2 <- '^.2$"'?":4~#1"$#1'~#1"'~#1
		DO (1721) NEXT
	(1725)	PLEASE DO (1724) NEXT
		DO :2 <- '"?'"V'"?'"3@.2$#14005"~"#0$#2801"'$
		     '"@.2$#0"~"#0$#2801"'"~"#0$#11204"'$#8403"
		     ~"#0$#2801"'$#8403"~"#0$#2801"'$
		     '"?'"V'"?'"3@.1$#14005"~"#0$#2801"'$'"@.1$
		     #0"~"#0$#2801"'"~"#0$#11204"'$#8403"~"#0$
		     #2801"'$#8403"~"#0$#2801"'
		DO .2 <- '^.2$.2'~'#0$#2801'
		DO .1 <- '^.1$.1'~'#0$#2801'
		DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$
		     #2801"'
		PLEASE FORGET #2
		DO (1728) NEXT
	(1724)	PLEASE DO (1723) NEXT
		DO :1 <- '"^'"^.2$.2"~"#0$#2801"'$.2"~"#0$
		     #2801"'$'"^'"^.1$.1"~"#0$#2801"'$.1"
		     ~"#0$#2801"'
		DO .2 <- "^'"V'"2@.2$#16806"~"#0$#2801"'$
		     #14005"~"#0$#2801"'$'"V'"4@.2$#16806"
		     ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$
		     #2801"
		DO .1 <- "^'"V'"2@.1$#16806"~"#0$#2801"'$
		     #14005"~"#0$#2801"'$'"V'"4@.1$#16806"
		     ~"#0$#2801"'$#14005"~"#0$#2801"'"~"#0$
		     #2801"
		DO :2 <- '"?.2$#8403"~"#0$#2801"'$'"?.1$#8403"
		     ~"#0$#2801"'
		PLEASE FORGET #3
		DO (1728) NEXT
	(1723)	PLEASE DO (1722) NEXT
		DO :1 <- '"^.2$.2"~"#0$#2801"'$'"^.1$.1"~"#0$
		     #2801"'
		DO :2 <- '"?'"V'"3@.2$#16806"~"#0$#2801"'$
		     #14005"~"#0$#2801"'$#14005"~"#0$#2801"'$
		     '"?'"V'"3@.1$#16806"~"#0$#2801"'$#14005"
		     ~"#0$#2801"'$#14005"~"#0$#2801"'
		PLEASE FORGET #4
		DO (1728) NEXT
	(1729)	DO (1001) NEXT
		DO (1721) NEXT
	(1722)	PLEASE DO (1001) NEXT
		DO :2 <- :1
		DO .2 <- #0
		DO FORGET #3
	(1721)	PLEASE RETRIEVE :1 + :3 + :4 + .1 + .5
		PLEASE RESUME #3
	(1900)	DO STASH .2 + .5
		DO .1 <- #0
		DO .2 <- #1
		PLEASE DO (1901) NEXT
	(1901)	DO FORGET #1
		DO %50 (1905) NEXT
		DO %50 (1904) NEXT
		DO %50 (1901) NEXT
		PLEASE DO (1903) NEXT
	(1905)	DO FORGET #1
		DO .1 <- '^.1$".2~#8403"'~'#0$#2801'
		PLEASE DO %50 .1 <- '^.1$".2~#5602"'~'#0$#2801'
		DO (1906) NEXT
	(1904)	DO .1 <- '^.1$.2'~'#0$#2801'
	(1906)	DO %50 .1 <- '^.1$.2'~'#0$#2801'
	(1903)	PLEASE FORGET #1
		DO .2 <- !2$#0'~'#400$#1'
		PLEASE DO .5 <- '^".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 <- #16795
		DO :1 <- #6
		DO (1911) NEXT
		PLEASE NOTE THAT YOU CAN'T GET SENSE FROM INTERCAL
	(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'~#6"$#5'~#1
		DO (1912) NEXT
		DO .1 <- #12
		PLEASE DO (1050) NEXT
		DO RETRIEVE .1
		DO (1530) NEXT
		DO :2 <- #8403
		DO (1500) NEXT
		PLEASE DO .2 <- :3~'#2793$#2744'
		PLEASE RETRIEVE .3 + .5 + :1 + :2 + :3
		DO RESUME #1