> 1 <

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

dimon9217

Members


Статус

4 сообщений

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

#5288   2011-12-09 16:04 GMT+3 часа(ов)      
Помогите

dimon9217

Members


Статус

4 сообщений

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

#5289   2011-12-09 16:06 GMT+3 часа(ов)      
Используя замыкание написать программу генератора последовательности (а), (в а), (а
в а), (в а в а) ...

dimon9217

Members


Статус

4 сообщений

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

#5290   2011-12-09 16:07 GMT+3 часа(ов)      
Используя замыкание написать программу генератора последовательности x = 2x + m.

megamanx

Members


Статус

307 сообщений

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

#5295   2011-12-09 17:21 GMT+3 часа(ов)      
(defun gen(_x_ _m_)
(let ((x _x_) (m _m_))
(lambda ()(setq x (+ (* 2 x) m)))))
 
(defun gen1()
(let ((res nil))
(defun next ()
(if (eq (car res) 'a)
(setq res (cons 'b res))
(setq res (cons 'a res))))))
;;usage
(defvar x (gen 1 2))
>>X
(funcall x)
>>4
(funcall x)
>>10
(gen1)
>>NEXT
(next)
>>(A)
(next)
>>(B A)

отредактировал(а) megamanx: 2011-12-09 17:38 GMT+3 часа(ов)
I wish I'd made you angry earlier
> 1 <


Онлайн :

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