2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2005-07-08 01:32:29 -04:00
|
|
|
USING: kernel lists math sequences test ;
|
2005-02-25 18:11:10 -05:00
|
|
|
|
2005-07-25 17:13:35 -04:00
|
|
|
[ { 1 2 3 4 5 } ] [
|
2005-02-25 18:11:10 -05:00
|
|
|
<queue> [ 1 2 3 4 5 ] [ swap enque ] each
|
2005-07-25 17:13:35 -04:00
|
|
|
5 [ drop deque swap ] map nip
|
2005-02-25 18:11:10 -05:00
|
|
|
] unit-test
|