gistfile1.rkt

(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)
         ;(newline)
         (list s))
        (else
         (append
          (use-sword
           (- (+ n grow) cutA)
           growA
           (append s (list 'a)))
          (use-sword
           (- (+ n grow) cutB)
           growB
           (append s (list 'b)))))))

(define (shortest-way heads)
 (first (sort (attack-monster heads) (lambda (x y) (< (length x) (length y))))))