1
0
www.mikescher.com/www/statics/euler/euler_007_code.txt

11 lines
539 B
Plaintext
Raw Normal View History

2017-11-08 17:39:50 +01:00
v
# ... #
. . . .
. . .
. . . .
# ... #
v <
>"d"55+*:10p3"2"*:20p*00p230p" ":01p11p10g5:+*1+50pv > 030p 040p>30g1+:30p:10g%\10g/1+g"X"- |
v < _^#`g03g00 <|p+1/g01\%g01:g03"0"-p04:+1g04g05<
> "X" 30g:10g%\10g/1+p30g >30g+ : 00g\` #v_$>30g1+:30p:10g%\10g/1+g" "- |>30g.@
^p+1/g01\%g01:\" ":< ^ <