Handbook
Glossary
com-glider ( gadget -- )
Vocabulary
game-of-life
Inputs
gadget
an
object
Outputs
None
Definition
USING:
accessors
assocs
kernel
sequences
ui.gadgets
;
IN:
game-of-life
::
com-glider
( gadget -- )
gadget
grid>>
:>
grid
{
{
2 1
}
{
3 2
}
{
1 3
}
{
2 3
}
{
3 3
}
}
[
grid
nth
t
-rot
set-nth
]
assoc-each
gadget
relayout-1
;