steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-09-02 12:36:51 -05:00
parent 4425c471ca
commit acc3badbe7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/project-euler/059/059.factor
View File

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