From 57a15fb363f5f03c8f49e033879bb755763d9299 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Tue, 22 Apr 2008 01:45:29 -0700
Subject: [PATCH] Add project-euler.100

---
 extra/project-euler/100/100.factor | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 extra/project-euler/100/100.factor

diff --git a/extra/project-euler/100/100.factor b/extra/project-euler/100/100.factor
new file mode 100644
index 0000000000..d2d396a0e1
--- /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 ;