Slava Pestov 2008-04-19 04:52:50 -05:00
parent f48d5091c9
commit 7faa9a8312
1 changed files with 1 additions and 1 deletions

View File

@ -31,7 +31,7 @@ IN: project-euler.150
: sums-triangle ( -- seq )
0 1000 [ 1+ [ next ] generate partial-sums ] map nip ;
PRIVATE> USING: arrays kernel.private ;
PRIVATE>
:: (euler150) ( m -- n )
[let | table [ sums-triangle ] |