2008-07-08 13:44:25 -04:00
|
|
|
USING: shuffle tools.test ;
|
2008-07-08 13:34:52 -04:00
|
|
|
|
|
|
|
|
[ 8 ] [ 5 6 7 8 3nip ] unit-test
|
|
|
|
|
[ 3 1 2 3 ] [ 1 2 3 tuckd ] unit-test
|
2008-12-03 09:46:16 -05:00
|
|
|
[ 1 2 3 4 ] [ 3 4 1 2 2swap ] unit-test
|
2009-02-09 12:40:05 -05:00
|
|
|
|
|
|
|
|
[ 4 2 3 ] [ 1 2 3 4 shuffle( a b c d -- d b c ) ] unit-test
|
