From 1ef0042f6a6dce2b89d30362d39796f585d06301 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@galois.com>
Date: Sun, 13 Apr 2008 23:52:53 -0700
Subject: [PATCH] Add a solution to project-euler.164

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

diff --git a/extra/project-euler/164/164.factor b/extra/project-euler/164/164.factor
new file mode 100644
index 0000000000..67397593bd
--- /dev/null
+++ b/extra/project-euler/164/164.factor
@@ -0,0 +1,33 @@
+! Copyright (c) 2008 Eric Mertens
+! See http://factorcode.org/license.txt for BSD license.
+USING: arrays assocs kernel math math.ranges sequences ;
+
+IN: project-euler.164
+
+! http://projecteuler.net/index.php?section=problems&id=164
+
+! DESCRIPTION
+! -----------
+
+! How many 20 digit numbers n (without any leading zero) exist such
+! that no three consecutive digits of n have a sum greater than 9?
+
+! SOLUTION
+! --------
+
+<PRIVATE
+
+: next-keys ( key -- keys )
+    [ peek ] [ 10 swap sum - ] bi [ 2array ] with map ;
+
+: next-table ( assoc -- assoc )
+    H{ } clone swap
+    [ swap next-keys [ pick at+ ] with each ] assoc-each ;
+
+: init-table ( -- assoc )
+    9 [1,b] [ 1array 1 ] H{ } map>assoc ;
+
+PRIVATE>
+
+: euler164 ( -- n )
+    init-table 19 [ next-table ] times values sum ;
\ No newline at end of file