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

add nipd to contrib/shuffle

erg 2006-11-20 19:28:55 +00:00
parent f683fb506a
commit 08550f3a7d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/shuffle/shuffle.factor
View File

@ -10,6 +10,9 @@ IN: shuffle
: -roll ( a b c d -- d a b c ) : -roll ( a b c d -- d a b c )
-rot >r >r swap r> r> ; inline -rot >r >r swap r> r> ; inline
: nipd ( a b c -- b c )
rot drop ; inline
: 3nip ( a b c d -- d ) : 3nip ( a b c d -- d )
2nip nip ; inline 2nip nip ; inline