steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Oops

db4
Slava Pestov 2008-04-19 04:52:50 -05:00
parent f48d5091c9
commit 7faa9a8312
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/project-euler/150/150.factor
View File

@ -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 ] |