From acc3badbe73dae7df7d2c89e68325485ae53bd54 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Sep 2008 12:36:51 -0500 Subject: [PATCH] new accessors --- extra/project-euler/059/059.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ;