simon/beowulf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tidying up while I try to fix the failing CONC unit test.

Browse source
This commit is contained in:
Simon Brooke 2026-04-03 18:11:32 +01:00
parent a0a05786ae
commit d16a07c17b
2 changed files with 8 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

22
resources/sexpr/fact.lsp
View file

@ -1,22 +0,0 @@
;; Common Lisp
(defun range (max &key (min 0) (step 1))
(loop for n from min below max by step
collect n))
(mapcar #'(lambda (x) (+ x 1)) (range 10))
(defun factoriali (n)
(reduce #'* (range (+ n 1) :min 1 :step 1)))
(defun factorialr (n)
(cond ((= n 1) 1)
(t (* n (factorialr (- n 1))))))
;; Clojure
(defn factorial [n]
(reduce *' (range 1 (+ n 1))))
(defn expt [n x]
(reduce *' (repeat x n)))