chickadee » aima » reverse-move

reverse-move moveprocedure

Reverse the relative direction.

move
The relative direction to reverse
(define (reverse-move move)
  (case move ((left) 'right) ((right) 'left) ((up) 'down) ((down) 'up)))