Handbook
Glossary
multi-predicate ( classes -- quot )
Vocabulary
multi-methods
Inputs
classes
an
object
Outputs
quot
an
object
Definition
USING:
arrays
assocs
kernel
sequences
;
IN:
multi-methods
:
multi-predicate
( classes -- quot )
dup
length
<iota>
<reversed>
[
picker
2array
]
2map
[
object
eq?
]
reject-keys
[
[
t
]
]
[
[
(multi-predicate)
]
{
}
assoc>map
unclip
[
swap
[
f
]
\
if
3array
[
]
append-as
]
reduce
]
if-empty
;