sequences: more use of minimum/maximum

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

diff --git a/extra/project-euler/042/042.factor b/extra/project-euler/042/042.factor
index fbf1c01e3e43ac09dd9e6e3f4264e4d584392a08..2b03197a0a52fe5944f068538ba6fbb9f06fa5a4 100644 (file)
--- a/extra/project-euler/042/042.factor
+++ b/extra/project-euler/042/042.factor
@@ -47,7 +47,7 @@ IN: project-euler.042
 PRIVATE>
 
 : euler042 ( -- answer )
-    source-042 [ alpha-value ] map dup supremum
+    source-042 [ alpha-value ] map dup maximum
     triangle-upto [ member? ] curry count ;
 
 ! [ euler042 ] 100 ave-time