sequences: more use of minimum/maximum

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

diff --git a/extra/project-euler/003/003.factor b/extra/project-euler/003/003.factor
index f04c15cefc0f01b1d12b10d2b887b52471f00d76..78498049c4c64e6ac7e6856c4462ef57dd39cfcb 100644 (file)
--- a/extra/project-euler/003/003.factor
+++ b/extra/project-euler/003/003.factor
@@ -17,7 +17,7 @@ IN: project-euler.003
 ! --------
 
 : euler003 ( -- answer )
-    600851475143 factors supremum ;
+    600851475143 factors maximum ;
 
 ! [ euler003 ] 100 ave-time
 ! 1 ms ave run time - 0.49 SD (100 trials)