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

sequences.rotated: adding all-rotations.

db4
John Benediktsson 2015-04-28 18:55:23 -07:00
parent a9fc7d828b
commit 16213f8779
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/sequences/rotated/rotated.factor
View File

@ -17,3 +17,6 @@ M: rotated virtual@ [ n>> + ] [ circular>> ] bi ;
M: rotated virtual-exemplar circular>> ; M: rotated virtual-exemplar circular>> ;
INSTANCE: rotated virtual-sequence INSTANCE: rotated virtual-sequence
: all-rotations ( seq -- seq' )
dup length iota [ <rotated> ] with map ;