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

add each-with2 to shuffle

darcs
erg 2006-11-17 03:41:23 +00:00
parent 3ca39859cc
commit f683fb506a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/shuffle/shuffle.factor
View File

@ -21,3 +21,7 @@ IN: shuffle
: map-with2 ( obj obj list quot -- newseq ) : map-with2 ( obj obj list quot -- newseq )
swap [ with2 roll ] map 3nip ; inline swap [ with2 roll ] map 3nip ; inline
: each-with2 ( obj obj list quot -- )
swap [ with2 roll ] map 3drop ;