sequences: more use of minimum/maximum

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

diff --git a/extra/project-euler/026/026.factor b/extra/project-euler/026/026.factor
index c44a74a6cb76b25f04db3d09531765a5eb905e71..743d31ada1529dc538158cf491e91eac66a6b587 100644 (file)
--- a/extra/project-euler/026/026.factor
+++ b/extra/project-euler/026/026.factor
@@ -57,7 +57,7 @@ PRIVATE>
 <PRIVATE
 
 : max-period ( seq -- elt n )
-    dup [ period-length ] map dup supremum
+    dup [ period-length ] map dup maximum
     over index [ swap nth ] curry bi@ ;
 
 PRIVATE>