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