Предыдущая страница [1] > 2 <

Автор Сообщение

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 66

#4046   2011-03-22 03:25 GMT+3 часа(ов)      
Действительно, я невнимательно прочитал условие. Совсем без рекурсии будет очень громоздко, но возможно. Беру небольшой тайм-аут.

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 66

#4047   2011-03-22 03:55 GMT+3 часа(ов)      
Вот программа без рекурсии, но со стеком:

(defun num_atoms (x)
(prog (ss nn cc lst)
(setq nn 0)
(setq lst x)
@0 (setq cc (car lst))
(cond ((atom cc) (setq nn (add1 nn)))
(t (push cc ss)))
(setq lst (cdr lst))
(cond ((null lst) (go @1))
(t (go @0)))
@1 (cond ((null ss) (return nn)))
(setq lst (car ss))
(pop ss)
(go @0)

))

Alexstudent

Members


Статус

9 сообщений

Где: Russia
Род занятий:
Возраст:

#4048   2011-03-22 12:51 GMT+3 часа(ов)      
Пожалуйста помогите с заданием "Лисп-реализация алгоритма кодирования методом Цезаря". именно лисп не его диалекты


Онлайн :

0 пользователь(ей), 33 гость(ей) :