Написать рекурсивную программу, которая печатает по одному разу все k^n последовательностей длины n, составленные из чисел 1...k. Аналогичный код на C++: https://gist.github.com/Rozag/9305260

gistfile1.lisp

(defun generate (n k p)
	(cond 	((eq p n) 
			(cond ((eq count 1) 
				(loop for i from 0 to (- n 1)
					do (format t "~D" (+ (elt arr i) 1)))
					(format t "~%")))
			(cond ((< count k) (setq count (+ count 1)))
					(T (setq count 1))))

		(T (loop for i from 0 to (- k 1)
			do (setq p (+ p 1))
			(setf (elt arr p) i)
			(generate n k p)
			(setq p (- p 1))))))


(setq n (read))
(setq k (read))

(setq arr (make-array 1000000 :initial-element nil))
(setq count 1)
(setq i 0)

(generate n k -1)