2004-08-04 03:12:55 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: lists
|
2004-08-26 22:21:17 -04:00
|
|
|
USE: math
|
2004-08-04 03:12:55 -04:00
|
|
|
USE: namespaces
|
|
|
|
|
USE: test
|
|
|
|
|
|
|
|
|
|
[
|
2005-01-13 19:49:47 -05:00
|
|
|
[[ "monkey" 1 ]]
|
|
|
|
|
[[ "banana" 2 ]]
|
|
|
|
|
[[ "Java" 3 ]]
|
|
|
|
|
[[ t "true" ]]
|
|
|
|
|
[[ f "false" ]]
|
|
|
|
|
[[ [ 1 2 ] [ 2 1 ] ]]
|
2004-08-04 03:12:55 -04:00
|
|
|
] "assoc" set
|
|
|
|
|
|
|
|
|
|
[ t ] [ "assoc" get assoc? ] unit-test
|
2005-01-13 19:49:47 -05:00
|
|
|
[ f ] [ [[ 1 [[ 2 [[ 3 4 ]] ]] ]] assoc? ] unit-test
|
2004-08-04 03:12:55 -04:00
|
|
|
[ f ] [ "assoc" assoc? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ "monkey" f assoc ] unit-test
|
|
|
|
|
[ f ] [ "donkey" "assoc" get assoc ] unit-test
|
|
|
|
|
[ 1 ] [ "monkey" "assoc" get assoc ] unit-test
|
|
|
|
|
[ "false" ] [ f "assoc" get assoc ] unit-test
|
|
|
|
|
[ [ 2 1 ] ] [ [ 1 2 ] "assoc" get assoc ] unit-test
|
|
|
|
|
|
|
|
|
|
"is great" "Java" "assoc" get set-assoc "assoc" set
|
|
|
|
|
|
|
|
|
|
[ "is great" ] [ "Java" "assoc" get assoc ] unit-test
|
2004-08-21 02:55:37 -04:00
|
|
|
|
|
|
|
|
[
|
2005-01-13 19:49:47 -05:00
|
|
|
[[ "one" 1 ]]
|
|
|
|
|
[[ "two" 2 ]]
|
|
|
|
|
[[ "four" 4 ]]
|
2004-08-21 02:55:37 -04:00
|
|
|
] "value-alist" set
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
[ "one" + ]
|
|
|
|
|
[ "three" - ]
|
|
|
|
|
[ "four" * ]
|
|
|
|
|
] "quot-alist" set
|
|
|
|
|
|
2004-08-21 03:30:52 -04:00
|
|
|
[ 8 ] [ 1 "value-alist" get "quot-alist" get assoc-apply ] unit-test
|
|
|
|
|
[ 1 ] [ 1 "value-alist" get f assoc-apply ] unit-test
|
2004-10-16 21:55:13 -04:00
|
|
|
|
|
|
|
|
[ [ [ "one" + ] [ "four" * ] ] ] [
|
|
|
|
|
"three" "quot-alist" get remove-assoc
|
|
|
|
|
] unit-test
|
2004-12-26 01:42:09 -05:00
|
|
|
|
|
|
|
|
[ [ "one" "three" "four" ] [ [ + ] [ - ] [ * ] ] ]
|
|
|
|
|
[ "quot-alist" get unzip ] unit-test
|
