Resolved merge.

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

diff --git a/extra/project-euler/049/049.factor b/extra/project-euler/049/049.factor
index 15dd7ed6d2edfd1b6210b441af5ffb858d24f3b8..9ecf942ef669a88ee1a0b073cbf0f24e121edd85 100644 (file)
--- a/extra/project-euler/049/049.factor
+++ b/extra/project-euler/049/049.factor
@@ -50,7 +50,7 @@ HINTS: count-digits fixnum ;
 
 : (find-unusual-terms) ( n seq -- seq/f )
     [ [ arithmetic-terms ] with map ] keep
-    '[ _ [ peek ] dip member? ] find nip ;
+    '[ _ [ last ] dip member? ] find nip ;
 
 : find-unusual-terms ( seq -- seq/? )
     unclip-slice over (find-unusual-terms) [