Sha256: ccf64f653e8fb479a1b432362618859fa50b442ad6b637b394fc86c30a572f39
Contents?: true
Size: 377 Bytes
Versions: 396
Compression:
Stored size: 377 Bytes
Contents
(defmodule strain
(export (keep 2)
(discard 2)))
(defun keep
([_f []] ())
([f (cons h t)]
(if (funcall f h)
(cons h (keep f t))
(keep f t))))
;;; Could also be written as a list comprehension:
;;
;; (defun keep' (f lst)
;; (lc ((<- x lst)
;; (funcall f x))
;; x))
(defun discard (f lst) (keep (lambda (x) (not (funcall f x))) lst))
Version data entries
396 entries across 396 versions & 1 rubygems