Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Lisp
Перезагрузить страницу Сравнение списков
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Alda Alda вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.01.2012
По умолчанию Сравнение списков - 13.01.2012, 03:18

Доброго времени суток! Подскажите, пожалуйста, как написать программу, которая сравнивает по количеству элементов два списка.
Ответить с цитированием
  (#2 (permalink)) Старый
_sg _sg вне форума
Member
 
Аватар для _sg
 
Сообщений: 525
Сказал(а) спасибо: 5
Поблагодарили 42 раз(а) в 38 сообщениях
Регистрация: 23.01.2007
По умолчанию 13.01.2012, 07:26

lisp Код:
(defun more-elements (w v)
  (cond ((and w (null v)) 'first)
        ((and v (null w)) 'second)
        ((null w) 'equal)
        ((more-elements (cdr w) (cdr v)))))

> (more-elements '(1) '(1 2))
SECOND
Ответить с цитированием
  (#3 (permalink)) Старый
_sg _sg вне форума
Member
 
Аватар для _sg
 
Сообщений: 525
Сказал(а) спасибо: 5
Поблагодарили 42 раз(а) в 38 сообщениях
Регистрация: 23.01.2007
По умолчанию 13.01.2012, 07:30

lisp Код:
(defun more-elements (w v)
  (cond ((and w (null v)) 'first)
        ((and v (null w)) 'second)
        ((null w) 'equal)
        ((more-elements (cdr w) (cdr v)))))

(defun flat (w &optional acc)
  (cond ((null w) acc)
        ((atom w) (cons w acc))
        ((flat (car w) (flat (cdr w) acc)))))

(defun more-atoms (w v)
  (more-elements (flat w) (flat v)))

> (more-atoms '(1) '((1) 2))
SECOND

Последний раз редактировалось _sg; 13.01.2012 в 07:34
Ответить с цитированием
  (#4 (permalink)) Старый
Индусский код Индусский код вне форума
Member
 
Аватар для Индусский код
 
Сообщений: 108
Сказал(а) спасибо: 2
Поблагодарили 29 раз(а) в 29 сообщениях
Регистрация: 27.11.2011
Адрес: Планетка Земля)
По умолчанию 13.01.2012, 09:29

lisp Код:
(defun f (l m)
           (if (null l) (null m)
               (if (null m) (null l)
                   (f (cdr l) (cdr m)))))


Совместное действие большого числа случайных факторов приводит к результату, почти не зависящему от случая
Ответить с цитированием
  (#5 (permalink)) Старый
_sg _sg вне форума
Member
 
Аватар для _sg
 
Сообщений: 525
Сказал(а) спасибо: 5
Поблагодарили 42 раз(а) в 38 сообщениях
Регистрация: 23.01.2007
По умолчанию 13.01.2012, 12:54

lisp Код:
(defun elements<= (w v)
  (cond ((and (null w) (null v)) t)
        ((null v) nil)
        ((elements<= (cdr w) (cdr v)))))

> (elements<= '(1) '(1 2))
T
> (elements<= '(1 2) '(1 2))
T
> (elements<= '(1 2) '(1))
NIL
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
Индусский код Индусский код вне форума
Member
 
Аватар для Индусский код
 
Сообщений: 108
Сказал(а) спасибо: 2
Поблагодарили 29 раз(а) в 29 сообщениях
Регистрация: 27.11.2011
Адрес: Планетка Земля)
По умолчанию 13.01.2012, 12:59

_sg


Совместное действие большого числа случайных факторов приводит к результату, почти не зависящему от случая
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнение двух списков zener Prolog 4 28.10.2010 15:40
Обработка списков Svoboda Prolog 8 28.06.2010 12:05
сравнение списков в прологе pasha51113 Prolog 5 28.04.2010 21:44
Сравнение многоуровневых списков SergeP Lisp 6 13.02.2010 18:38
Обработка списков Ranika Prolog 0 26.04.2009 01:58
Сравнение списков z556 Prolog 6 15.04.2009 21:00
Сортировка списков imported_W_M Prolog 5 14.10.2008 08:26
Слияние списков sprew88 Prolog 5 20.12.2007 18:23
обработка списков alex99 Prolog 4 09.10.2006 21:46
сжатие списков Васильчук Prolog 1 29.05.2006 08:54
Сравнение двух списков по элементно(с условием ...) degavi Prolog 15 19.12.2005 14:26
Пересечение списков linux Prolog 1 21.12.2004 12:09



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов