Paste: crazy shufflers
Author: | mrjbq7 |
Mode: | factor |
Date: | Thu, 7 Mar 2013 23:21:46 |
Plain Text |
: - ( x -- ) drop ;
: -- ( x x -- ) 2drop ;
: --- ( x x x -- ) 3drop ;
: + ( x -- x x ) dup ;
: ++ ( x y -- x y x y ) 2dup ;
: +++ ( x y z -- x y z x y z ) 3dup ;
: -| ( x y -- y ) nip ;
: --| ( x y z -- y ) 2nip ;
: ^- ( x y -- x y x ) over ;
: ^-- ( x y z -- x y z x ) pick ;
: --> ( x y z -- y z x ) rot ;
: <-- ( x y z -- z x y ) -rot ;
Author: | . |
Mode: | factor |
Date: | Thu, 7 Mar 2013 23:23:53 |
Plain Text |
: ---> ( w x y z -- x y z w ) roll ;
: <--- ( w x y z -- z w x y ) -roll ;
Author: | mrjbq7 |
Mode: | factor |
Date: | Thu, 7 Mar 2013 23:24:29 |
Plain Text |
: -] ( x quot -- ) keep ; inline
: --] ( x quot -- ) 2keep ; inline
: ---] ( x quot -- ) 3keep ; inline
: )- ( x quot -- ) dip ; inline
: )-- ( x y quot -- ) 2dip ; inline
: )--- ( x y z quot -- ) 3dip ; inline
New Annotation