diff options
| author | Mike Vink <> | 2023-04-01 10:25:15 +0200 |
|---|---|---|
| committer | Mike Vink <> | 2023-04-01 10:25:15 +0200 |
| commit | 4f1914027c89295e803393da045dac242fb49f37 (patch) | |
| tree | 1450f4abb42b7d097712260d67d12348f9086d36 /shared | |
| parent | 5254a0befde355fca2711033f77047cf0bb5c08f (diff) | |
fixup
Diffstat (limited to 'shared')
| -rw-r--r-- | shared/lists.rkt | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/shared/lists.rkt b/shared/lists.rkt index 8437fcb..ac501fd 100644 --- a/shared/lists.rkt +++ b/shared/lists.rkt @@ -5,7 +5,8 @@ fold-left flatmap enumerate-interval - enumerate-windows) + enumerate-windows + find-first) (define (append list1 list2) (if (null? list1) @@ -94,3 +95,8 @@ (enumerate-windows (enumerate-interval 1 4) 2) + +(define (find-first pred? seq) + (cond ((null? seq) false) + ((pred? (car seq)) (car seq)) + (else (find-first pred? (cdr seq))))) |