Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 17.12.2010, 18:48   #1 (permalink)
Ler4onok
Новичок
 
Регистрация: 17.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Lisp

даны два двоичных числа в виде списков....нужно их сложить..результат должен выводиться так же в виде списка...
Ler4onok вне форума   Ответить с цитированием

Старый 17.12.2010, 18:48
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

По этим ссылкам вы можете найти решение проблемы

Небольшой lisp на паскале

Старый 17.12.2010, 19:44   #2 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

в числе 8 бит?
kreol вне форума   Ответить с цитированием
Старый 17.12.2010, 20:10   #3 (permalink)
Ler4onok
Новичок
 
Регистрация: 17.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

да....
Ler4onok вне форума   Ответить с цитированием
Старый 17.12.2010, 20:18   #4 (permalink)
Ler4onok
Новичок
 
Регистрация: 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)))
)
)



что_то вроде этого,только для двоичных чисел....
Ler4onok вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:54.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.