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

Add project-euler.100

db4
Eric Mertens 2008-04-22 01:45:29 -07:00
parent 916ed96ffb
commit 57a15fb363
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/project-euler/100/100.factor Normal file
View File

@ -0,0 +1,7 @@
USING: kernel sequences math.functions math ;
IN: project-euler.100
: euler100 ( -- n )
1 1
[ dup dup 1- * 2 * 10 24 ^ <= ]
[ tuck 6 * swap - 2 - ] [ ] while nip ;