Resolved merge.

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

diff --git a/extra/project-euler/164/164.factor b/extra/project-euler/164/164.factor
index cea1472c0bf67095ce32fb0b9803367361044df1..af8b7e49c064d3de79794f7602ce04f4edf0dbc7 100644 (file)
--- a/extra/project-euler/164/164.factor
+++ b/extra/project-euler/164/164.factor
@@ -18,7 +18,7 @@ IN: project-euler.164
 <PRIVATE
 
 : next-keys ( key -- keys )
-    [ peek ] [ 10 swap sum - ] bi [ 2array ] with map ;
+    [ last ] [ 10 swap sum - ] bi [ 2array ] with map ;
 
 : next-table ( assoc -- assoc )
     H{ } clone swap