17 lines
1.3 KiB
Plaintext
17 lines
1.3 KiB
Plaintext
|
v // Project Euler - Problem 50
|
||
|
|
# ... #
|
||
|
|
. . . .
|
||
|
|
. . .
|
||
|
|
. . . .
|
||
|
|
# ... #
|
||
|
|
|
||
|
|
>"d"45**:10p5"d"*:20p*00p230p" ":03p13pv >040p030p>>30g1+:30p:10g%\10g/1+g"X"-#v_30g40g:1+40p:10g%\10g/1+p00g30g`#v_v
|
||
|
|
v < _^#`g03g00<^ < < 0
|
||
|
|
>"X"30g:10g%\10g/1+p30g>30g+:00g\` #v_$>30g1+:30p:10g%\10g/1+g" "-|v p091 p080 p07-10 p060 p+1/g01\%g01:p04:-1g04<
|
||
|
|
>90g"= ",,.@ ^p+1/g01\%g01:\" ":< ^ <v p08<
|
||
|
|
>70g1+:70p:10g%\10g/1+g80g+:00g\`#^_70g1-70p$v
|
||
|
|
vp05g04g08 < <<
|
||
|
|
>:50g\50g:10g%\10g/1+g-#v_$. @ >80g60g1-:10g%\10g/1+g+70g:10g%\10g/1+g-v^p09*-10g09<p07-1g07p08-g+1/g01\ %g01:g07g08<
|
||
|
|
^ p05-1g05<_>$060g90g+`#v_90g1-| >:00g\`!#v_8 0p90g:60g+60p70g+70p^>90g1- |
|
||
|
|
>80g60g:10g%\10g/1+g-70g1+:10g%\10g/1+g+^ $ ^p06+1g06p08-g+1/g01\% g01:g06g08<
|
||
|
|
> > ^
|