sequences.extras: more supremum/infimum renames

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

diff --git a/extra/project-euler/150/150.factor b/extra/project-euler/150/150.factor
index acd10c4f2b8b8618784562f3f19a35bca685fb64..1599bb6cac35f3dfc0674d45ff786d6dbdd89782 100644 (file)
--- a/extra/project-euler/150/150.factor
+++ b/extra/project-euler/150/150.factor
@@ -36,10 +36,10 @@ IN: project-euler.150
 : partial-sums ( seq -- sums )
     cum-sum 0 prefix ; inline
 
-: partial-sum-infimum ( seq quot -- seq )
+: partial-sum-minimum ( seq quot -- seq )
     [ 0 0 ] 2dip [ + [ min ] keep ] compose each drop ; inline
 
-: map-infimum ( seq quot -- min )
+: map-minimum ( seq quot -- min )
     [ min ] compose 0 swap reduce ; inline
 
 ! triangle generator functions
@@ -58,9 +58,9 @@ IN: project-euler.150
                 x z + table nth-unsafe
                 [ y z + 1 + swap nth-unsafe ]
                 [ y         swap nth-unsafe ] bi -
-            ] partial-sum-infimum
-        ] map-infimum
-    ] map-infimum ; inline
+            ] partial-sum-minimum
+        ] map-minimum
+    ] map-minimum ; inline
 
 PRIVATE>