Monday, February 4, 2008

code for step17

define turnright:
do 3:
turnleft
define movewall:
while front_is_clear:
move
define pickall:
move
while next_to_a_beeper:
pickbeeper
define cleartowall:
while front_is_clear:
pickall
define nuke:
cleartowall
turnleft
while not_facing_west:
turnleft
nuke
nuke
while left_is_clear:
cleartowall
turnleft
pickall
turnleft
cleartowall
turnright
if front_is_clear:
pickall
turnright
cleartowall
while any_beepers_in_beeper_bag:
putbeeper
turnleft
turnleft
nuke
cleartowall
turnoff

No comments: