blob: 1d003579767c731de194d79b45d017ec9895bf80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
;;; zap.scm
;;; Sample robot provided by Jim Hall <jhall@freedos.org>
;;; This is an agressive little robot that will just turn 360-degrees,
;;; and will immediately zap anything that isn't a space. This builds
;;; on the beep.scm robot program, so it will also beep if it finds a
;;; prize (but then destroys it.)
;;; Define a function to make a beep
(define (beep) (display "\a"))
;;; Define a function to blow away anything that isn't a space
(define (blast-nonspace)
(if (robot-feel "space") (robot-zap)))
;;; Define a function to turn, then see if a prize is there
(define (turn-and-feel)
(robot-turn 1)
(if (robot-feel "prize") (beep)))
;;; The program begins here: make one sweep
(turn-and-feel)
(blast-nonspace)
(sleep 1)
(turn-and-feel)
(blast-nonspace)
(sleep 1)
(turn-and-feel)
(blast-nonspace)
(sleep 1)
(turn-and-feel)
(blast-nonspace)
(sleep 1)
|
