fix project euler 151 and add a unit test

diff --git a/extra/project-euler/151/151-tests.factor b/extra/project-euler/151/151-tests.factor
new file mode 100644 (file)
index 0000000..beea8e3
--- /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 66c5a6301edad0832b9f3e56a77db20bbc73d1e1..708fe9849e7c474ef5cd614f4321e8fb79d035e5 100644 (file)
--- 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