26 lines
778 B
Factor
26 lines
778 B
Factor
IN: temporary
|
|
USING: kernel lists sequences test ;
|
|
|
|
[ [ 3 ] ] [ [ 3 ] last ] unit-test
|
|
[ [ 3 ] ] [ [ 1 2 3 ] last ] unit-test
|
|
[ [[ 3 4 ]] ] [ [[ 1 [[ 2 [[ 3 4 ]] ]] ]] last ] unit-test
|
|
|
|
[ 3 ] [ [ 3 ] peek ] unit-test
|
|
[ 3 ] [ [ 1 2 3 ] peek ] unit-test
|
|
[ 3 ] [ [[ 1 [[ 2 [[ 3 4 ]] ]] ]] peek ] 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 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
|
|
|
|
[ [ ] ] [ 0 >list ] unit-test
|
|
[ [ 0 1 2 3 ] ] [ 4 >list ] unit-test
|