Handbook
Glossary
?leaf ( quadrants -- pair/f )
Vocabulary
quadtrees.private
Inputs
quadrants
an
object
Outputs
pair/f
an
object
Definition
USING:
combinators
kernel
sequences
;
IN:
quadtrees.private
:
?leaf
( quadrants -- pair/f )
[
(?leaf)
]
map
sift
dup
length
{
{
1
[
first
]
}
{
0
[
drop
{
f
f
}
]
}
[
2drop
f
]
}
case
;