application/octet-stream
•
912 B
•
41 lines
#!/usr/bin/env nujel
(def counter 0)
(defn in-area? (x y)
(and (>= x 144)
(<= x 178)
(>= y -100)
(<= y -76)))
(defn over? (x y)
(or (> x 178)
(< y -100)))
(defn zdir (a)
(cond ((zero? a) 0)
((> a 0) -1)
(#t 1)))
(defn shoot (x y vx vy max-y)
;(println (cat x " " y " " vx " " vy))
(cond ((in-area? x y) (inc! counter) max-y)
((over? x y) 0)
(#t (shoot (+ x vx) (+ y vy) (+ vx (zdir vx)) (+ vy -1) (max y max-y)))))
(defn find-max ()
(def ret 0)
(dotimes (vx 300)
(dotimes (vy 600)
(def res (shoot 0 0 vx (- vy 300) 0))
(set! ret (max ret res))
)) ret)
(def res-p1 (find-max))
(when (not= res-p1 4950)
(throw (list :wrong-result "Wrong result" res-p1)))
(def res-p2 counter)
(when (not= res-p2 1477)
(throw (list :wrong-result "Wrong result" res-p2)))
(return :success)
