17.12.2010, 18:48 | #1 (permalink) |
Новичок
Регистрация: 17.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Lisp
|
17.12.2010, 18:48 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По этим ссылкам вы можете найти решение проблемы Небольшой lisp на паскале |
17.12.2010, 20:18 | #4 (permalink) |
Новичок
Регистрация: 17.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
(defun f2 (x y)
( cond ((null x) (if (null y) nil y)) ((null y) (if (null x) nil x)) (t (cons (+ (car x) (car y)) (f2 (cdr x) (cdr y)))) ) ) (defun f (x) ( cond ((null (cdr x)) (if (< (car x) 10) x (list (- (car x) 10) 1))) (t (cons (if (< (car x) 10) (car x) (- (car x) 10)) (f (if (< (car x) 10) (cdr x) (rplaca (cdr x) (+ (cadr x) 1)))))) ) ) (defun ff (x y) ( reverse (f (f2 (reverse x) (reverse y))) ) ) что_то вроде этого,только для двоичных чисел.... |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|