Add project-euler.100

2008-04-22 01:45:29 -07:00 · 2008-04-22 01:45:29 -07:00 · 57a15fb363
parent 916ed96ffb
commit 57a15fb363
1 changed files with 7 additions and 0 deletions
--- a/extra/project-euler/100/100.factor
+++ b/extra/project-euler/100/100.factor
@ -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 ;