Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
(define cutA 7)
(define growA 3)
(define cutB 5)
(define growB 2)
(define (attack-monster heads)
(use-sword heads 0 '()))
(define (use-sword n grow s)
(cond ((< n 0) '())
((= n 0)
;(print s)
(list s))
(- (+ n grow) cutA)
(append s (list 'a)))
(- (+ n grow) cutB)
(append s (list 'b)))))))
(define (shortest-way heads)
(first (sort (attack-monster heads) (lambda (x y) (< (length x) (length y))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment