Remove roll from Project Euler problem 33 solution

2008-12-20 18:53:17 -05:00 · 2008-12-20 18:53:17 -05:00 · adac92dfa5
parent 9b6d4f05f5
commit adac92dfa5
1 changed files with 1 additions and 1 deletions
--- a/extra/project-euler/033/033.factor
+++ b/extra/project-euler/033/033.factor
@ -33,7 +33,7 @@ IN: project-euler.033
    10 99 [a,b] dup cartesian-product [ first2 < ] filter ;

 : safe? ( ax xb -- ? )
-    [ 10 /mod ] bi@ -roll = rot zero? not and nip ;
+    [ 10 /mod ] bi@ [ = ] dip zero? not and nip ;

 : ax/xb ( ax xb -- z/f )
    2dup safe? [ [ 10 /mod ] bi@ 2nip / ] [ 2drop f ] if ;