1
0
www.mikescher.com/www/statics/euler/Euler_Problem-031.b93

11 lines
482 B
Plaintext

v#########
###
>00000000010p20p30p40p50p60p70p80p90p "d"2* 11p921p031p 0v
v $<
vp0p12:+1g120< >g25**+70g5*+80g2*+90g+v
>21g0g1+21g0p>21g9- |>10g5"d"**20g2"d"**+"d"3v>:11g\`|
p >^ ^6+**45g05+*"2"g04+*g0<v<
^12-1< v< v <|-g11 <
| -1:<|g0:g12<p13+1g13<
>$31g.@ >1-21p ^