Mikescher/www.mikescher.com
1
0
Fork 0
Code Actions Activity

rename statics/euler and sync b93 code with main repo

Browse Source
This commit is contained in:
Mike Schwörer
2017-11-20 17:38:54 +01:00
parent 0efeb3afeb
commit 69e3f51730
409 changed files with 745 additions and 509 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
www/statics/euler/Euler_Problem-047.b93 Normal file
View File

@@ -0,0 +1,21 @@
v
# ... #
. . . .
. . .
. . . .
# ... #
>"d"4 *:10p5"d"*:20p*00p230p" ":03p13pv >040p030p>>30g1+:30p:10g%\10g/3+g"X"-#v_30g40g:1+40p:10g%\10g/3+p00g30g`#v_v
v < _^#`g03g00<^ < < 0
>"X"30g:10g%\10g/3+p30g>30g+:00g\` #v_$>30g1+:30p:10g%\10g/3+g" "-|v p+3/g01\%g01:-1g04<
^p+3/g01\%g01:\" ":< ^ <>1>:0:40p50p>:40g:10g%\10g/3+g% #v_40g:10g%\10gv
+ |!`\g+3/g01\%g01:p04:+1g04:<p05+1g05/g+3/<
4 >$50g4-#v_080p:::4+60p70p3->:70g- #v_80g1+:80p4-#v_3-.$@
^ < |-g06:+1< <
^ $< >:0:40p50p>:40g:10g%\10g/3+g% #v_40g:10g%\10gv
^ <|!`\g+3/g01\%g01:p04:+1g04:<p05+1g05/g+3/<
>$50g4-#v_80g1+80p v
| -4g08 <
>3-.$@ >080p:70g\`|
^ <