assocs.extras: Move some often-used words to core

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

diff --git a/extra/project-euler/061/061.factor b/extra/project-euler/061/061.factor
index 1033dbad78975debaf1eaae5afce50b888508ae4..d7116576003ceeafae9b51b55ae498444fd6175c 100644 (file)
--- a/extra/project-euler/061/061.factor
+++ b/extra/project-euler/061/061.factor
@@ -77,6 +77,6 @@ IN: project-euler.061
 : euler061 ( -- n )
     4-digit-polygons dup [ 8 = ] filter-keys [
         1array 6 find-cycle
-    ] with map-find drop values sum ;
+    ] with map-find drop sum-values ;
 
 SOLUTION: euler061