factor/library/test/lists/queues.factor

8 lines
173 B
Factor
Raw Normal View History

IN: temporary
2005-07-08 01:32:29 -04:00
USING: kernel lists math sequences test ;
[ [ 1 2 3 4 5 ] ] [
<queue> [ 1 2 3 4 5 ] [ swap enque ] each
5 [ drop deque swap ] project nip
] unit-test