RosettaCodeData/Task/Repeat/Common-Lisp/repeat.lisp
2023-07-01 13:44:08 -04:00

4 lines
98 B
Common Lisp

(defun repeat (f n)
(dotimes (i n) (funcall f)))
(repeat (lambda () (format T "Example~%")) 5)