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 /shared/lists.rkt | |
| parent | 6f572ec7c12115198dfeb7756bc8d9f02d8c336d (diff) | |
10 exercises not bad
Diffstat (limited to 'shared/lists.rkt')
| -rw-r--r-- | shared/lists.rkt | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/shared/lists.rkt b/shared/lists.rkt index 9279a57..d5cfc61 100644 --- a/shared/lists.rkt +++ b/shared/lists.rkt @@ -1,9 +1,4 @@ #lang racket -(provide - append - length - list-ref) - (define (append list1 list2) (if (null? list1) list2 @@ -19,9 +14,10 @@ (define (list-ref items n) (if (= n 0) (car items) - (list-ref - (cdr items) + (list-ref + (cdr items) (- 1 n)))) + (define (last-pair l) (if (null? (cdr l)) l |