mirror of
https://gitlab.com/jusax23/raspberry-pi-pico-machine-code-emulator.git
synced 2024-11-23 07:06:36 +01:00
5 lines
113 B
Common Lisp
5 lines
113 B
Common Lisp
|
(defun faculty:uint32 (input:uint32)
|
||
|
|
(if (< input 2) 1 (* input (faculty (- input 1))))
|
||
|
|
)
|
||
|
|
(print (faculty 10))
|