Resolved merge.

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

diff --git a/extra/project-euler/059/059.factor b/extra/project-euler/059/059.factor
index 9a2fb8c868a48f1c53a7ac6de43a6edcecbb85b7..1fb5c7c8bbd8328b3ade34d079d0853441387e71 100644 (file)
--- a/extra/project-euler/059/059.factor
+++ b/extra/project-euler/059/059.factor
@@ -75,7 +75,7 @@ INSTANCE: rollover immutable-sequence
     ] { } make nip ; inline
 
 : most-frequent ( seq -- elt )
-    frequency-analysis sort-values keys peek ;
+    frequency-analysis sort-values keys last ;
 
 : crack-key ( seq key-length -- key )
     [ " " decrypt ] dip group but-last-slice