Add project-euler.100

diff --git a/extra/project-euler/100/100.factor b/extra/project-euler/100/100.factor
new file mode 100644 (file)
index 0000000..d2d396a
--- /dev/null
+++ 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 ;