10 exercises not bad

1 files changed, 17 insertions, 0 deletions

diff --git a/coding-exercises/2/19.rkt b/coding-exercises/2/19.rkt
new file mode 100644
index 0000000..d0ade7f
--- /dev/null
+++ b/coding-exercises/2/19.rkt
@@ -0,0 +1,17 @@
+#lang racket
+(require sicp)
+
+(define (cc-list amount kinds-of-coins)
+  (cond ((= amount 0) 1)
+        ((or (< amount 0) (empty? kinds-of-coins)) 0)
+        (else (+ (cc-list amount 
+                          (cdr kinds-of-coins))
+                 (cc-list (- amount 
+                             (car kinds-of-coins)) 
+                          kinds-of-coins)))))
+
+(define us-coins (list 50 25 10 5 1))
+(cc-list 100 us-coins)
+
+(define uk-coins (list 100 50 20 10 5 2 1 0.5))
+(cc-list 100 uk-coins)