Oops
parent
f48d5091c9
commit
7faa9a8312
|
@ -31,7 +31,7 @@ IN: project-euler.150
|
||||||
: sums-triangle ( -- seq )
|
: sums-triangle ( -- seq )
|
||||||
0 1000 [ 1+ [ next ] generate partial-sums ] map nip ;
|
0 1000 [ 1+ [ next ] generate partial-sums ] map nip ;
|
||||||
|
|
||||||
PRIVATE> USING: arrays kernel.private ;
|
PRIVATE>
|
||||||
|
|
||||||
:: (euler150) ( m -- n )
|
:: (euler150) ( m -- n )
|
||||||
[let | table [ sums-triangle ] |
|
[let | table [ sums-triangle ] |
|
||||||
|
|
Loading…
Reference in New Issue