15 lines
170 B
Factor
15 lines
170 B
Factor
|
IN: scratchpad
|
||
|
|
USE: kernel
|
||
|
|
USE: math
|
||
|
|
USE: memory
|
||
|
|
USE: generic
|
||
|
|
USE: lists
|
||
|
|
|
||
|
|
num-types [
|
||
|
|
[
|
||
|
|
instances [
|
||
|
|
class drop
|
||
|
|
] each
|
||
|
|
] keep
|
||
|
|
] repeat
|