sequences: more use of minimum/maximum

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

diff --git a/extra/project-euler/265/265.factor b/extra/project-euler/265/265.factor
index 1bda3e4e6bd36daefe6265d8bb155403213aad02..a672a68f090b89e086e6a3e7aae634d94998ce8a 100644 (file)
--- a/extra/project-euler/265/265.factor
+++ b/extra/project-euler/265/265.factor
@@ -45,7 +45,7 @@ CONSTANT: N 5
 
 : ?register ( acc seq -- )
     complete rotate-bits
-    dup [ 2 N ^ mod ] map all-unique? [ infimum swap push ] [ 2drop ] if ;
+    dup [ 2 N ^ mod ] map all-unique? [ minimum swap push ] [ 2drop ] if ;
 
 : add-bit ( seen bit -- seen' t/f )
     over last 2 * + 2 N ^ mod