core: Add the shuffler words but without primitives.

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

diff --git a/extra/project-euler/002/002.factor b/extra/project-euler/002/002.factor
index 201e4f6743919754656c4f4322bdea403ec9a280..01637f381ec92a10cb5487257fbc1be5c96cf5b9 100644 (file)
--- a/extra/project-euler/002/002.factor
+++ b/extra/project-euler/002/002.factor
@@ -41,7 +41,7 @@ PRIVATE>
 ! -------------------
 
 : fib-upto* ( n -- seq )
-    0 1 [ pick over >= ] [ [ nip ] 2keep + dup ] produce [ 3drop ] dip
+    0 1 [ pick over >= ] [ [ nip ] 2keep + dup ] produce 3nip
     but-last-slice { 0 1 } prepend ;
 
 : euler002a ( -- answer )