Mercurial > repo

view interps/c-intercal/pit/flonck.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

	DO :321 <- #0
	DO :322 <- #0
	DO :123 <- #65535$#65535
	PLEASE STASH :123
	DO (1) NEXT

(1)	PLEASE FORGET #1
	PLEASE WRITE IN :1
	DO .5 <- '?"':1~:1'~#1"$#2'~#3
	DO (11) NEXT
	DO :123 <- #0
	PLEASE STASH :123
	DO (1) NEXT
(11)	DO (1001) NEXT
	DO .5 <- :1~'#65280$#65280'
	DO .5 <- '?"!5~.5'~#1"$#1'~#3
	DO (10) NEXT
	PLEASE FORGET #1
	DO (5090) NEXT
	DO .5 <- '?".5~#2"$#2'~#3
	DO (19) NEXT
	DO :123 <- :2
	PLEASE STASH :123
	DO (1) NEXT
(10)	DO (1001) NEXT
	PLEASE FORGET #2
	DO .5 <- '?"':1~#65504'~#1"$#2'~#3
	DO (19) NEXT
	DO (131) NEXT

(131)	DO (130) NEXT
	PLEASE FORGET #1
	DO (18) NEXT
(130)	DO (129) NEXT
	PLEASE GIVE UP
(129)	DO (128) NEXT
	PLEASE FORGET #3
	DO :1 <- :322
	DO (5080) NEXT
	PLEASE READ OUT :2
	DO (1) NEXT
(128)	DO (127) NEXT
	PLEASE FORGET #4
	DO (22) NEXT
	DO :123 <- :322
	PLEASE STASH :123
	DO :322 <- :2
	DO (1) NEXT
(127)	DO (126) NEXT
	PLEASE FORGET #5
	DO :123 <- :322
	PLEASE STASH :123
	DO (1) NEXT
(126)	DO (125) NEXT
	PLEASE FORGET #6
	DO (21) NEXT
	DO :2 <- :322
	DO (5000) NEXT
	DO (33) NEXT
	PLEASE RETRIEVE :123
	DO :322 <- :123
	DO (1) NEXT
(125)	DO (124) NEXT
	PLEASE FORGET #7
	DO (22) NEXT
	DO :322 <- :2
	DO (1) NEXT
(124)	DO (123) NEXT
	PLEASE FORGET #8
	DO :1 <- :321
	DO (5080) NEXT
	PLEASE READ OUT :2
	DO (1) NEXT
(123)	DO (122) NEXT
	PLEASE FORGET #9
	DO (21) NEXT
	DO :123 <- :321
	PLEASE STASH :123
	DO :321 <- :1
	DO (1) NEXT
(122)	DO (121) NEXT
	PLEASE FORGET #10
	DO :123 <- :321
	PLEASE STASH :123
	DO (1) NEXT
(121)	DO (120) NEXT
	PLEASE FORGET #11
	DO (22) NEXT
	DO :1 <- :321
	DO (5000) NEXT
	DO (33) NEXT
	PLEASE RETRIEVE :123
	DO :321 <- :123
	DO (1) NEXT
(120)	DO (119) NEXT
	PLEASE FORGET #12
	DO (21) NEXT
	DO :321 <- :1
	DO (1) NEXT
(119)	DO (118) NEXT
	PLEASE FORGET #13
	DO (5400) NEXT
	DO :123 <- :1
	PLEASE STASH :123
	DO (1) NEXT
(118)	DO (117) NEXT
	PLEASE FORGET #14
	DO (21) NEXT
	DO (5020) NEXT
	DO :123 <- :2
	PLEASE STASH :123
	DO (1) NEXT
(117)	DO (116) NEXT
	PLEASE FORGET #15
	DO (271) NEXT
(272)	DO (1001) NEXT
(271)	PLEASE FORGET #1
	PLEASE RETRIEVE :123
	DO .5 <- '?"':123~:123'~'#32768$#0'"$#1'~#3
	DO (272) NEXT
	PLEASE STASH :123
	DO (1) NEXT
(116)	DO (115) NEXT
	PLEASE FORGET #16
	DO (21) NEXT
	DO (1) NEXT
(115)	DO (114) NEXT
	PLEASE FORGET #17
	DO (22) NEXT
	DO (21) NEXT
	DO (5130) NEXT
	DO (33) NEXT
	DO (1) NEXT
(114)	DO (113) NEXT
	PLEASE FORGET #18
	DO (21) NEXT
	DO (5120) NEXT
	DO (32) NEXT
	DO (1) NEXT
(113)	DO (112) NEXT
	PLEASE FORGET #19
	DO (21) NEXT
	DO (5110) NEXT
	DO (32) NEXT
	DO (1) NEXT
(112)	DO (111) NEXT
	PLEASE FORGET #20
	DO (21) NEXT
	DO (5100) NEXT
	DO (32) NEXT
	DO (1) NEXT
(111)	DO (110) NEXT
	PLEASE FORGET #21
	DO (22) NEXT
	DO :1 <- #30720$#28672
	DO (5040) NEXT
	DO (33) NEXT
	DO (1) NEXT
(110)	DO (109) NEXT
	PLEASE FORGET #22
	DO (21) NEXT
	PLEASE DO :123 <- '"?':123~"#65535$#0"'$#32768"~"#0$#65535"'$
		':123~"#0$#65535"'
	PLEASE STASH :123
	DO (1) NEXT
(109)	DO (108) NEXT
	PLEASE FORGET #23
	DO (21) NEXT
	DO (22) NEXT
	DO :123 <- :1
	PLEASE STASH :123
	DO :123 <- :2
	PLEASE STASH :123
	DO (1) NEXT
(108)	DO (107) NEXT
	PLEASE FORGET #24
	DO (21) NEXT
	PLEASE STASH :123 + :123
	DO (1) NEXT
(107)	DO (106) NEXT
	PLEASE FORGET #25
	DO :1 <- #65535$#65535
	DO (171) NEXT
(171)	PLEASE FORGET #1
	PLEASE STASH :1
	PLEASE RETRIEVE :123
	DO .5 <- '?"':123~:123'~'#32768$#0'"$#2'~#3
	DO (172) NEXT
	DO :1 <- :123
	DO (5080) NEXT
	PLEASE READ OUT :2
	DO (171) NEXT
(172)	DO (1001) NEXT
	PLEASE FORGET #1
	PLEASE STASH :123
	PLEASE RETRIEVE :1
	DO :123 <- :1
	DO .5 <- '?"':1~:1'~'#32768$#0'"$#1'~#3
	DO (172) NEXT
	DO (1) NEXT
(106)	DO (105) NEXT
	PLEASE FORGET #26
	DO (21) NEXT
	PLEASE STASH :123
	DO (5080) NEXT
	PLEASE READ OUT :2
	DO (1) NEXT
(105)	DO (104) NEXT
	PLEASE FORGET #27
	DO (22) NEXT
	DO (21) NEXT
	DO (5050) NEXT
	DO (33) NEXT
	DO (1) NEXT
(104)	DO (103) NEXT
	PLEASE FORGET #28
	DO (22) NEXT
	DO (21) NEXT
	DO (5040) NEXT
	DO (33) NEXT
	DO (1) NEXT
(103)	DO (102) NEXT
	PLEASE FORGET #29
	DO (22) NEXT
	DO (21) NEXT
	DO (5030) NEXT
	DO (33) NEXT
	DO (1) NEXT
(102)	DO (101) NEXT
	PLEASE FORGET #30
	DO (22) NEXT
	DO (21) NEXT
	DO (5010) NEXT
	DO (33) NEXT
	DO (1) NEXT
(101)	DO (100) NEXT
	PLEASE FORGET #31
	DO (22) NEXT
	DO (21) NEXT
	DO (5000) NEXT
	DO (33) NEXT
	DO (1) NEXT

(100)	PLEASE RESUME :1

(19)	DO (1001) NEXT
(18)	PLEASE READ OUT #30
	PLEASE FORGET #1
	DO (1) NEXT

(21)	PLEASE RETRIEVE :123
	DO :1 <- :123
	DO .5 <- '?"':1~:1'~'#32768$#0'"$#2'~#3
	DO (1001) NEXT
	PLEASE FORGET #2
	DO (18) NEXT

(22)	PLEASE RETRIEVE :123
	DO :2 <- :123
	DO .5 <- '?"':2~:2'~'#32768$#0'"$#2'~#3
	DO (1001) NEXT
	PLEASE FORGET #2
	DO (18) NEXT

(32)	DO :3 <- :2
(33)	DO :123 <- :3
	DO (35) NEXT
	PLEASE FORGET #1
	DO (18) NEXT
(35)	DO (36) NEXT
	DO :123 <- #0
	DO (37) NEXT
(36)	DO (1001) NEXT
(37)	PLEASE STASH :123
	PLEASE RESUME #3

	PLEASE APPEND THE FLOATING-POINT LIBRARY ROUTINES