2004-08-04 03:12:55 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: kernel
|
|
|
|
|
USE: lists
|
|
|
|
|
USE: logic
|
2004-08-26 22:21:17 -04:00
|
|
|
USE: math
|
2004-08-04 03:12:55 -04:00
|
|
|
USE: namespaces
|
|
|
|
|
USE: stack
|
|
|
|
|
USE: test
|
2004-11-08 22:36:51 -05:00
|
|
|
USE: strings
|
2004-08-04 03:12:55 -04:00
|
|
|
|
|
|
|
|
[ [ ] ] [ [ ] [ ] append ] unit-test
|
|
|
|
|
[ [ 1 ] ] [ [ 1 ] [ ] append ] unit-test
|
|
|
|
|
[ [ 2 ] ] [ [ ] [ 2 ] append ] unit-test
|
|
|
|
|
[ [ 1 2 3 4 ] ] [ [ 1 2 3 ] [ 4 ] append ] unit-test
|
|
|
|
|
[ [ 1 2 3 | 4 ] ] [ [ 1 2 3 ] 4 append ] unit-test
|
|
|
|
|
|
2004-08-24 15:11:10 -04:00
|
|
|
[ f ] [ 3 [ ] contains? ] unit-test
|
|
|
|
|
[ f ] [ 3 [ 1 2 ] contains? ] unit-test
|
|
|
|
|
[ [ 1 2 ] ] [ 1 [ 1 2 ] contains? ] unit-test
|
|
|
|
|
[ [ 2 ] ] [ 2 [ 1 2 ] contains? ] unit-test
|
2004-08-04 03:12:55 -04:00
|
|
|
|
|
|
|
|
[ 1 ] [ -1 [ 1 2 ] nth ] unit-test
|
|
|
|
|
[ 1 ] [ 0 [ 1 2 ] nth ] unit-test
|
|
|
|
|
[ 2 ] [ 1 [ 1 2 ] nth ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ 3 ] ] [ [ 3 ] last* ] unit-test
|
|
|
|
|
[ [ 3 ] ] [ [ 1 2 3 ] last* ] unit-test
|
|
|
|
|
[ [ 3 | 4 ] ] [ [ 1 2 3 | 4 ] last* ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ [ 3 ] last ] unit-test
|
|
|
|
|
[ 3 ] [ [ 1 2 3 ] last ] unit-test
|
|
|
|
|
[ 3 ] [ [ 1 2 3 | 4 ] last ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 0 ] [ [ ] length ] unit-test
|
|
|
|
|
[ 3 ] [ [ 1 2 3 ] length ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ f list? ] unit-test
|
|
|
|
|
[ f ] [ t list? ] unit-test
|
|
|
|
|
[ t ] [ [ 1 2 ] list? ] unit-test
|
|
|
|
|
[ f ] [ [ 1 | 2 ] list? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ ] ] [ 1 [ ] remove ] unit-test
|
|
|
|
|
[ [ ] ] [ 1 [ 1 ] remove ] unit-test
|
|
|
|
|
[ [ 3 1 1 ] ] [ 2 [ 3 2 1 2 1 ] remove ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ ] ] [ [ ] reverse ] unit-test
|
|
|
|
|
[ [ 1 ] ] [ [ 1 ] reverse ] unit-test
|
|
|
|
|
[ [ 3 2 1 ] ] [ [ 1 2 3 ] reverse ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ 1 2 3 ] ] [ 1 [ 2 3 ] unique ] unit-test
|
|
|
|
|
[ [ 1 2 3 ] ] [ 1 [ 1 2 3 ] unique ] unit-test
|
|
|
|
|
[ [ 1 2 3 ] ] [ 2 [ 1 2 3 ] unique ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ 3 [ ] tree-contains? ] unit-test
|
|
|
|
|
[ f ] [ 3 [ 1 [ 3 ] 2 ] tree-contains? not ] unit-test
|
|
|
|
|
[ f ] [ 1 [ [ [ 1 ] ] 2 ] tree-contains? not ] unit-test
|
|
|
|
|
[ f ] [ 2 [ 1 2 ] tree-contains? not ] unit-test
|
|
|
|
|
[ f ] [ 3 [ 1 2 | 3 ] tree-contains? not ] unit-test
|
|
|
|
|
|
|
|
|
|
[ [ ] ] [ 0 count ] unit-test
|
|
|
|
|
[ [ ] ] [ -10 count ] unit-test
|
|
|
|
|
[ [ 0 1 2 3 ] ] [ 4 count ] unit-test
|
