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

Adding 'switch' word to sequences-lib.

db4
John Benediktsson 2008-09-30 08:07:18 -07:00
parent 165b98419a
commit 4b5ed34f9e
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/sequences/lib/lib-docs.factor
View File

@ -27,3 +27,14 @@ HELP: enumerate
{ $values { "seq" sequence } { "seq'" sequence } } { $values { "seq" sequence } { "seq'" sequence } }
{ $description "Returns a new sequence where each element is an array of { index, value }" } ; { $description "Returns a new sequence where each element is an array of { index, value }" } ;
HELP: switch
{ $values { "x" number } { "y" number } { "seq" sequence } }
{ $description "Swaps the values between indices 'x' and 'y' in the sequence." }
{ $examples
{ $example
"USING: sequences.lib ;"
"1 2 \"asdf\" [ switch ] keep"
"\"adsf\"" }
} ;

5
extra/sequences/lib/lib.factor
View File

@ -173,3 +173,8 @@ USE: random
: enumerate ( seq -- seq' ) : enumerate ( seq -- seq' )
<enum> >alist ; <enum> >alist ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: switch ( x y seq -- )
3dup swap [ nth ] dip [ [ move ] keep ] 2dip rot set-nth ;