snake-occupied-locs ( snake head-loc -- points )


Vocabulary
snake-game.game

Inputs
snakean object
head-locan object


Outputs
pointsan object


Definition
USING: accessors kernel sequences ;

IN: snake-game.game

: snake-occupied-locs ( snake head-loc -- points )
[ dir>> move-loc ] accumulate nip ;