diff --git a/extra/project-euler/059/059.factor b/extra/project-euler/059/059.factor index 63a8e3e2c4..17621accfc 100644 --- a/extra/project-euler/059/059.factor +++ b/extra/project-euler/059/059.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: arrays ascii assocs hashtables io.encodings.ascii io.files kernel math math.parser namespaces sequences sequences.lib sequences.private sorting - splitting grouping strings sets ; + splitting grouping strings sets accessors ; IN: project-euler.059 ! http://projecteuler.net/index.php?section=problems&id=59 @@ -60,7 +60,7 @@ TUPLE: rollover seq n ; C: rollover -M: rollover length rollover-n ; +M: rollover length n>> ; M: rollover nth-unsafe rollover-seq [ length mod ] keep nth-unsafe ;