nip most uses of tuck from extra

[factor.git] / extra / project-euler / 117 / 117.factor

diff --git a/extra/project-euler/117/117.factor b/extra/project-euler/117/117.factor
index 0d4ec782269f4b1d4777da7e7dd8045c06ccc1ff..60daa7224e8634827c6df8ffa983656a2a60b7bb 100644 (file)
--- a/extra/project-euler/117/117.factor
+++ b/extra/project-euler/117/117.factor
@@ -31,7 +31,7 @@ IN: project-euler.117
     [ 4 short tail* sum ] keep push ;
 
 : (euler117) ( n -- m )
-    V{ 1 } clone tuck [ next ] curry times last ;
+    [ V{ 1 } clone ] dip over [ next ] curry times last ;
 
 PRIVATE>