Sujet : Re: A Long Piece Of Lisp Code
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lisp comp.lang.schemeDate : 17. Sep 2024, 13:11:51
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vcbo5m$3g34k$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
(defun split-if (fn lst)
(let ((acc nil))
(do ((src lst (cdr src)))
((or (null src) (funcall fn (car src)))
(values (nreverse acc) src))
(push (car src) acc))))
Scheme
(define (split-if fn lst)
(do ((src lst (cdr src))
(acc '() (cons (car src) acc)))
((or (null? src) (fn (car src)))
(values (reverse acc) src))))
(split-if odd? '(0 2 4 5 7))
===>
(0 2 4)
(5 7)
(split-if odd? '(0 2 4 52 70))
===>
(0 2 4 52 70)
()
(split-if odd? '(3 0 2 4 52 70))
===>
()
(3 0 2 4 52 70)