sequences: move last2 to the sequences vocab

[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 86e5b7cf22ac27f5bdc36e2252491ca28728d7fc..d4da76b81d9580965d76659cc8bc4946354b4500 100644 (file)
--- a/extra/project-euler/002/002.factor
+++ b/extra/project-euler/002/002.factor
@@ -24,7 +24,7 @@ IN: project-euler.002
 <PRIVATE
 
 : (fib-upto) ( seq n limit -- seq )
-    2dup <= [ [ suffix! dup 2 tail* sum ] dip (fib-upto) ] [ 2drop ] if ;
+    2dup <= [ [ suffix! dup last2 + ] dip (fib-upto) ] [ 2drop ] if ;
 
 PRIVATE>