2008-07-08 13:34:52 -04:00
|
|
|
! Copyright (C) 2007 Chris Double, Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-07-08 13:35:42 -04:00
|
|
|
USING: kernel generalizations ;
|
2008-07-08 13:34:52 -04:00
|
|
|
|
|
|
|
|
IN: shuffle
|
|
|
|
|
|
2008-12-03 09:46:16 -05:00
|
|
|
: 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline
|
2008-07-08 13:34:52 -04:00
|
|
|
|
|
|
|
|
: nipd ( a b c -- b c ) rot drop ; inline
|
|
|
|
|
|
|
|
|
|
: 3nip ( a b c d -- d ) 3 nnip ; inline
|
|
|
|
|
|
|
|
|
|
: 4nip ( a b c d e -- e ) 4 nnip ; inline
|
|
|
|
|
|
|
|
|
|
: 4dup ( a b c d -- a b c d a b c d ) 4 ndup ; inline
|
|
|
|
|
|
|
|
|
|
: 4drop ( a b c d -- ) 3drop drop ; inline
|
|
|
|
|
|
|
|
|
|
: tuckd ( x y z -- z x y z ) 2 ntuck ; inline
|
