cto-challenge-level1.scm

(define (selectOptimalCoupons amount myCouponList)
  (consume amount (sort myCouponList >) (list))
)

(define (consume amount coupons usedCoupons)
  (if (null? coupons)
    usedCoupons
    (if (>= amount (car coupons))
      (consume (- amount (car coupons)) (cdr coupons) (append usedCoupons (list (car coupons))))
      (consume amount (cdr coupons) usedCoupons))
    )
  )

(print (selectOptimalCoupons 100 '()))

(print (selectOptimalCoupons 100 '(50 50 100)))

(print (selectOptimalCoupons 470 '(50 50 50 100 100 100 100 100 500)))

(print (selectOptimalCoupons 1230 '(50 50 50 50 50 50 100 100 100 100 100 100 500 500)))