diff options
Diffstat (limited to 'control-flow.lisp')
-rw-r--r-- | control-flow.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/control-flow.lisp b/control-flow.lisp new file mode 100644 index 0000000..0d380aa --- /dev/null +++ b/control-flow.lisp @@ -0,0 +1,10 @@ +(defun identity (x) + x) + +(defun constantly (c) + (lambda (x) + (declare (ignore x)) + c)) + +(defun complement (function) + (lambda (x) (not (funcall function x)))) |