core: Add the shuffler words but without primitives.

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

diff --git a/extra/project-euler/009/009.factor b/extra/project-euler/009/009.factor
index f75950520d810b60efc29aa80a73eff96f266cbe..7099a5571bf04e931e417acf79b655ff1cf53314 100644 (file)
--- a/extra/project-euler/009/009.factor
+++ b/extra/project-euler/009/009.factor
@@ -37,7 +37,7 @@ IN: project-euler.009
     ] { } make natural-sort ;
 
 : (ptriplet) ( target p q triplet -- target p q )
-    sum [ pick ] dip = [ next-pq 2dup abc (ptriplet) ] unless ;
+    sum pickd = [ next-pq 2dup abc (ptriplet) ] unless ;
 
 : ptriplet ( target -- triplet )
    3 1 { 3 4 5 } (ptriplet) abc nip ;