4 lines
115 B
Common Lisp
4 lines
115 B
Common Lisp
(defun jo(n k)
|
|
(if (= 1 n) 1 (1+ (% (+ (1- k)
|
|
(jo (1- n) k)) n ) ) ))
|
|
(princ-list (jo 50 2) "\n" (jo 60 3))
|