Remove roll from Project Euler problem 33 solution

diff --git a/extra/project-euler/033/033.factor b/extra/project-euler/033/033.factor
index d0c79c220a151e2e2ae0bdb093bb65bc218a2084..2cc114a545424f22a76f2fcb603b8466020eb7fe 100644 (file)
--- 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 ;