список подсписков

@Alisa_lime · Регистрация: 10.12.2012

Author24 — интернет-сервис помощи студентам

Аргумент функции - N. Результат - список подсписков (всего N подсписков). Первый подсписок - единица, второй подсписок - две двойки, третий - три тройки и так далее до подсписка N-го уровня вложенности, содержащего N чисел "N".
((1(22(333(...(NN...N) ))))...)

@Catstail · 20.12.2012, 21:51

Вот:

Lisp

;; вспомогательная функция
 
(defun mkl (n m)
  (cond ((= m 0) nil)
        (t (cons n (mkl n (- m 1))))))
  
 
==> mkl
 
(mkl 6 4)
 
==> (6 6 6 6)
 
;; решение:
 
(defun mkl$ (n &optional (k 0))
   (cond ((= k n) (mkl n n))
         (t (append (mkl k k) (list (mkl$ n (+ k 1)))))))
 
==> mkl$
 
(mkl$ 5)
 
==> ((1 (2 2 (3 3 3 (4 4 4 4 (5 5 5 5 5))))))

@Alisa_lime 0 / 0 / 0 Регистрация: 10.12.2012 Сообщений: 11
		1
	список подсписков 20.12.2012, 21:16. Показов 2785. Ответов 1 Метки нет (Все метки) Аргумент функции - N. Результат - список подсписков (всего N подсписков). Первый подсписок - единица, второй подсписок - две двойки, третий - три тройки и так далее до подсписка N-го уровня вложенности, содержащего N чисел "N". ((1(22(333(...(NN...N) ))))...) 0

	20.12.2012, 21:51