(no commit message)

[gacela.git] / games / asteroids / asteroids.scm

diff --git a/games/asteroids/asteroids.scm b/games/asteroids/asteroids.scm
index d684e07d7e3fb272cefc7359355c3f3406369465..c36ae0569b90ab23f200a7cedd41834960b44d76 100644 (file)
--- a/games/asteroids/asteroids.scm
+++ b/games/asteroids/asteroids.scm
@@ -106,6 +106,12 @@
                (assoc-ref (car a) 'size))
             (killed-ship? s (cdr a))))))
 
+(define (kill-asteroids s a)
+  (cond ((or (null? s) (null? a)) (values s a))
+       (else
+        (let ((s1 (car s)) (a1 (car a)))
+          (cond ((or (< (sqrt (+ (expt (- (assoc-ref 
+
 (let ((asteroids #f) (ship #f) (shots #f))
   (define (new-game n)
     (set! asteroids (make-asteroids n))