1 ! Copyright (C) 2022 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: math stack-as-data tools.test ;
4 IN: stack-as-data.tests
6 { 10 20 30 50 40 } [ 10 20 30 40 50 0 1 stack-exchange ] unit-test
7 { 20 10 30 40 50 } [ 10 20 30 40 50 4 3 stack-exchange ] unit-test
8 { 20 10 30 40 50 } [ 10 20 30 40 50 3 4 stack-exchange ] unit-test
9 { 10 20 30 40 50 } [ 10 20 30 40 50 0 0 stack-exchange ] unit-test
14 ! 4 [ even? ] stack-filter