1 ! Copyright (C) 2007 Chris Double, Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors assocs combinators effects.parser generalizations
4 hashtables kernel locals locals.backend macros make math
10 : >index-assoc ( sequence -- assoc )
11 dup length zip >hashtable ;
15 MACRO: shuffle-effect ( effect -- )
16 [ out>> ] [ in>> >index-assoc ] bi
18 [ nip assoc-size , \ narray , ]
19 [ [ at \ swap \ nth [ ] 3sequence ] curry map , \ cleave , ] 2bi
23 ")" parse-effect suffix! \ shuffle-effect suffix! ;
25 : tuck ( x y -- y x y ) swap over ; inline deprecated
27 : spin ( x y z -- z y x ) swap rot ; inline deprecated
29 : roll ( x y z t -- y z t x ) [ rot ] dip swap ; inline deprecated
31 : -roll ( x y z t -- t x y z ) swap [ -rot ] dip ; inline deprecated
33 : 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline
35 : 4dup ( a b c d -- a b c d a b c d ) 4 ndup ; inline
37 : 4drop ( a b c d -- ) 3drop drop ; inline