summaryrefslogtreecommitdiffstats
path: root/net/ricketyspace
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2018-05-30 04:56:02 +0000
committerrsiddharth <s@ricketyspace.net>2018-05-30 04:56:02 +0000
commit747ea39e398aedd53e4299e06e6593614088f059 (patch)
treec63dc121787fba6317add00b25cf9f9ac81b5585 /net/ricketyspace
parent4bacc7c7fc9ea4435aeebf317f1ccd9470547b31 (diff)
net: Update snake.rkt
* net/ricketyspace/ror/six/snake.rkt (eat, renew): Update functions. (fresh-goos): New function.
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)