Mercurial > repo
view interps/c-intercal/pit/pi.i @ 5674:91d4a5b788c9
<tswett> echo \'[11,11,11,15,15,23,12],[5,5,5,3,53,45,16,26,00,20,15,16,22,25,45,91,32,11,15,27,06,01,11,01,47,22,30,13,43,21,11,13,29,61,65,17,19,12,28,17,11,01,23,20,16,20,81,18,32,25,58,22.,1985,10.301350435,1555466973690094680980000956080767,13720946704494913791885940266665466978579582015128512190078...\' > wisdom/code
author | HackBot |
---|---|
date | Wed, 24 Jun 2015 14:47:46 +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