diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-03-15 21:27:29 +0100 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-03-15 21:27:29 +0100 |
| commit | dfe1bc702d95d6a12918d9251cf6261d323eaba8 (patch) | |
| tree | 7d4d5b29edc1691bde7550e2b9ada547cab3609e /coding-exercises/2/24.rkt | |
| parent | 6f572ec7c12115198dfeb7756bc8d9f02d8c336d (diff) | |
10 exercises not bad
Diffstat (limited to 'coding-exercises/2/24.rkt')
| -rw-r--r-- | coding-exercises/2/24.rkt | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/coding-exercises/2/24.rkt b/coding-exercises/2/24.rkt new file mode 100644 index 0000000..575d0cd --- /dev/null +++ b/coding-exercises/2/24.rkt @@ -0,0 +1,10 @@ +#lang racket +(require sicp) + +(define (count-leaves x) + (cond ((null? x ) 0) + ((not (pair? x)) 1) + (else (+ (count-leaves (car x)) + (count-leaves (cdr x)))))) + +(list 1 (list 2 (list 3 4))) |