From eccc919c1891f6f1992dfe0b545a4b0f2603cb1d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 11 Aug 2009 18:22:44 -0500
Subject: [PATCH] fix project euler 151 and add a unit test

---
 extra/project-euler/151/151-tests.factor |  4 ++++
 extra/project-euler/151/151.factor       | 10 ++++------
 2 files changed, 8 insertions(+), 6 deletions(-)
 create mode 100644 extra/project-euler/151/151-tests.factor

diff --git a/extra/project-euler/151/151-tests.factor b/extra/project-euler/151/151-tests.factor
new file mode 100644
index 0000000000..beea8e3645
--- /dev/null
+++ b/extra/project-euler/151/151-tests.factor
@@ -0,0 +1,4 @@
+USING: project-euler.151 tools.test ;
+IN: project-euler.151.tests
+
+[ 12138569781349/26138246400000 ] [ euler151 ] unit-test
diff --git a/extra/project-euler/151/151.factor b/extra/project-euler/151/151.factor
index 66c5a6301e..708fe9849e 100644
--- a/extra/project-euler/151/151.factor
+++ b/extra/project-euler/151/151.factor
@@ -39,11 +39,11 @@ SYMBOL: table
 
 : (pick-sheet) ( seq i -- newseq )
     [
-        <=> sgn
+        <=>
         {
-            { -1 [ ] }
-            {  0 [ 1- ] }
-            {  1 [ 1+ ] }
+            { +lt+ [ ] }
+            { +eq+ [ 1- ] }
+            { +gt+ [ 1+ ] }
         } case
     ] curry map-index ;
 
@@ -71,8 +71,6 @@ DEFER: (euler151)
         { 1 1 1 1 } (euler151)
     ] with-scope ;
 
-! TODO: doesn't work currently, problem in area of 'with map' in (euler151)
-
 ! [ euler151 ] 100 ave-time
 ! ? ms run time - 100 trials