sequences: more use of minimum/maximum

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

diff --git a/extra/project-euler/011/011.factor b/extra/project-euler/011/011.factor
index b0512ea4e48cbef2ba4ba77a327e8c5878babeec..451b8094683f748435c7b2764ba68590921fc31c 100644 (file)
--- a/extra/project-euler/011/011.factor
+++ b/extra/project-euler/011/011.factor
@@ -97,7 +97,7 @@ PRIVATE>
     [
         { [ horizontal ] [ vertical ] [ diagonal/ ] [ diagonal\ ] }
         [ call( -- matrix ) 4 max-product , ] each
-    ] { } make supremum ;
+    ] { } make maximum ;
 
 ! [ euler011 ] 100 ave-time
 ! 3 ms ave run time - 0.77 SD (100 trials)