summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace
diff options
context:
space:
mode:
Diffstat (limited to 'net/ricketyspace')
-rw-r--r--net/ricketyspace/ror/six/snake.rkt12
1 files changed, 9 insertions, 3 deletions
diff --git a/net/ricketyspace/ror/six/snake.rkt b/net/ricketyspace/ror/six/snake.rkt
index 17555c0..30c4c24 100644
--- a/net/ricketyspace/ror/six/snake.rkt
+++ b/net/ricketyspace/ror/six/snake.rkt
@@ -83,7 +83,7 @@
(can-eat snake (rest goos)))]))
(define (eat goos goo-to-eat)
- (cons (fresh-goo) (remove goo-to-eat goos)))
+ (append (list (fresh-goo)) (remove goo-to-eat goos)))
(define (close? s g)
(posn=? s (goo-loc g)))
@@ -118,9 +118,9 @@
(define (renew goos)
(cond [(empty? goos) empty]
[(rotten? (first goos))
- (cons (fresh-goo) (renew (rest goos)))]
+ (append (fresh-goos) (renew (rest goos)))]
[else
- (cons (first goos) (renew (rest goos)))]))
+ (append (list (first goos)) (renew (rest goos)))]))
(define (rot goos)
(cond [(empty? goos) empty]
@@ -137,6 +137,12 @@
(add1 (random (sub1 SIZE))))
EXPIRATION-TIME))
+(define (fresh-goos)
+ (define (gen-goos n)
+ (cond [(= n 0) empty]
+ [else (cons (fresh-goo) (gen-goos (- n 1)))]))
+ (let ((n (random 4)))
+ (gen-goos n)))
;; keys
(define (dir? x)