0. #lang racket
1. (define-struct fac (fa ti as le oa))
2. (define-struct str (s n ff))
3.  
4. (define sample
5.   (list (make-str 'A 'F (make-fac 8 10 13 13 (+ 8 10 13 13)))
6.         (make-str 'B 'G (make-fac 13 10 12 10 (+ 13 10 12 10)))
7.         (make-str 'C 'H (make-fac 9 13 11 11 (+ 9 13 11 11)))
8.         (make-str 'D 'I (make-fac 11 10 12 11 (+ 11 10 12 11)))
9.         (make-str 'E 'J (make-fac 12 10 12 11 (+ 12 10 12 11)))
10.         )
11.   )
12.  
13. (define (best-as alon)
14.   (cond
15.     [(empty? alon) 0]
16.     [(> (fac-as (str-fac (first alon)))
17.         (best-as (rest alon)))
18.      (string-append (symbol->string (str-s (first alon))) " "
19.                     (symbol->string (str-n (first alon))) "!")]
20.     [else (best-as (rest alon))]))

=>