Aß
Size: a a a
Aß
Aß
𝘎(
Aß
𝘎(
VL
VL
¥
VL
Aß
VL
¥
(define (map-until fn lst)
(if (zero? (length lst))
#f
(let ((ret (fn (car lst))))
(if ret
ret
(map-until fn (cdr lst))))))
(define (map-until fn lst)
(if (zero? (length lst))
#f
(or (ret (fn (car lst)))
(map-until fn (cdr lst)))))
¥
VL
VL
VL