Mercurial > repo

view interps/c-intercal/pit/pi.i @ 6842:76c0c1881313

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<olsner> learn The internet is for everything. However many thing can done even without internet too, often better without use of internet, but internet is good too.
author HackBot
date Mon, 15 Feb 2016 01:09:11 +0000
parents 859f9b4339e6
children
line wrap: on
line source

	PLEASE WRITE IN .10
	DO .1 <- .10~#65534
	DO (1020) NEXT
	DO .10 <- !1$.10'~'#32767$#1'
	DO .1 <- .10
	DO .2 <- #10
	PLEASE DO (1030) NEXT
	DO .1 <- .3
	DO .2 <- #3
	DO (1040) NEXT
	DO .9 <- .3

	DO ,1 <- .9
	DO .1 <- .9
	PLEASE COME FROM (13)
	DO ,1 SUB .1 <- #2
	DO (11) NEXT
(12)	DO (2010) NEXT
(13)	PLEASE FORGET #2
(11)	DO (12) NEXT

	DO .15 <- #0
	DO .16 <- #0
	DO (100) NEXT
	DO .1 <- .10
	DO (2000) NEXT
	PLEASE COME FROM (23)
	DO .10 <- .1
	DO (100) NEXT
	PLEASE READ OUT .17
	DO .1 <- .10
	DO (21) NEXT
(22)	DO (2010) NEXT
(23)	PLEASE FORGET #2
(21)	DO (22) NEXT
	PLEASE FORGET #2
	PLEASE GIVE UP

(100)	DO .14 <- #0
	DO .12 <- .9
	PLEASE COME FROM (103)
	DO .1 <- .14
	DO .2 <- .12
	DO (1030) NEXT
	DO .14 <- .3
	DO .1 <- ,1 SUB .12
	DO .2 <- #10
	DO (1030) NEXT
	DO .1 <- .3
	DO .2 <- .14
	DO (1000) NEXT
	DO .1 <- !12$#0'~'#32767$#1'
	DO (2000) NEXT
	DO .2 <- .1
	DO .1 <- .3
	DO (2030) NEXT
	DO .14 <- .3
	DO ,1 SUB .12 <- .4
	DO .1 <- .12
	DO (101) NEXT
(102)	DO (2010) NEXT
	DO .12 <- .1
(103)	PLEASE FORGET #2
(101)	DO (102) NEXT
	DO .17 <- .16
	DO .1 <- .14
	DO .2 <- #10
	DO (2030) NEXT
	DO .1 <- .15
	DO .2 <- .3
	DO (1000) NEXT
	DO .16 <- .3
	DO .15 <- .4
	DO .5 <- '?.16$#10'~#85
	DO .5 <- "?!5~.5'$#2"~#3
	DO (104) NEXT
	DO .16 <- #0
	DO .1 <- .17
	DO (1020) NEXT
	DO .17 <- .1
	PLEASE RESUME #2
(104)   DO (1001) NEXT
	PLEASE RESUME #3


(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
(2030)	DO STASH .1 + .5
	DO .3 <- #0
	DO .5 <- '?"!2~.2'~#1"$#1'~#3
	PLEASE DO (2031) NEXT
	DO .4 <- #1
	PLEASE DO (2033) NEXT
(2033)	DO FORGET #1
	DO .5 <- '?".2~#32768"$#2'~#3
	DO (2032) NEXT
	DO .2 <- !2$#0'~'#32767$#1'
	PLEASE DO .4 <- !4$#0'~'#32767$#1'
	DO (2033) NEXT
(2032)	DO (1001) NEXT
(2036)	PLEASE FORGET #1
        DO .5 <- '?.1$.2'~'#0$#65535'
        DO .5 <- '?"'&"!2~.5'~'"?'?.5~.5'$#32768"~"#0$#65535"'"$
                 ".5~.5"'~#1"$#2'~#3
	DO (2034) NEXT
	DO .5 <- .3
	DO (1010) NEXT
	PLEASE DO .1 <- .3
        DO .3 <- 'V.4$.5'~'#0$#65535'
	DO (2035) NEXT
(2034)	PLEASE DO (1001) NEXT
(2035)	DO FORGET #1
	DO .5 <- "?'.4~#1'$#2"~#3
	DO (2031) NEXT
	DO .2 <- .2~#65534
	DO .4 <- .4~#65534
	PLEASE DO (2036) NEXT
(2031)	DO (1001) NEXT
	PLEASE DO .4 <- .1
	PLEASE RETRIEVE .1 + .5
	PLEASE RESUME #2
        PLEASE NOTE THAT YOU DON'T HAVE TO APPEND STANDARD LIBRARY HERE