![]() |
|
![]() ![]() ![]() |
|
blackbanny |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 83 Регистрация: 18.11.2009 Репутация: нет Всего: нет |
вообщем нужно вывести дерево в виде дерева, т.е. что то вроде этого:
*******1 ****2 *******3 4 *******5 ****3 *******1 вот код программы, но что то выдает ошибку, не могу разобраться... (defun show-tree(n) (cond ((= n 0) 0) (t (princ " ") (setq n (- n 1)) ( princ " ")))) (defun print-tree(tree n) (cond ((null tree)) (t (print-tree (second tree) (+ n 1)) (show-tree(n)) (print (fist tree)) (print-tree (third tree) (+ n 1))))) |
|||
|
||||
![]() ![]() ![]() |
Правила форума LISP | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | LISP | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |