Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Lisp
Перезагрузить страницу Создание логического числа
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
OHelga OHelga вне форума
Member
 
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.05.2009
Thumbs up Создание логического числа - 13.05.2009, 00:36

Есть такая логическая задачка "Секретное число"
Дети играли в игру. Водящий загадал число, находящееся между 1 и 300 включительно. Трое ребят пытались отгадать это число. Они сделали следующие утверждения относительно этого числа:
(1)Антон: это число между 1 и 100
(2)Борис: это число между 101 и 200
(3)Володя: это число не между 1 и 100
Но двое из этих мальчиков признались вскоре, что они сказали неправду.
В каком интервале находится секретное число?

Я попробовала написать прогу и получила вот что
Код:
(setq q '((1 100) (101 200) (101 200 201 300)))
(defun secret()
     (setq a (car q))
     (setq b (cadr q))
     (setq c (cddr q))
      (dolist (k c)
       (dolist (i a)
        (if
           (or (member k b) (member i b))
            nil
              (format T"=> ~A~%" b)
        )
        ))

        (dolist (j b)
        (dolist (k c)
        (if
         (or (member j a) (member k a))
          nil
           (format T"=> ~A~%"  a)
        )
        ))
        (dolist (j b)
        (dolist (i a)
        (if
         (or (member j c) (member i c))
           nil
             (format T"=> ~A~%" c)
         )
        ))
)
только увы прога не работает. Я изучаю всего чуток Лисп...и по-моему всё правильно...но увы..
Люди знающие добрые помогите найти в чём тут проблема
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны действительные числа a1,...,a20. Получить числа b1,...,b20, ... Ptitsa Pascal 1 22.12.2011 01:29
Форматирование логического диска Tdutybq Любые вопросы от новичков 5 13.10.2011 20:36
Развития логического мышления в программировании Ищущий Вопросы начинающих программистов 10 18.06.2011 18:58
Разрабатываю язык логического программирования. prokopiy Prolog 71 11.08.2010 22:05
Школа Логического Программирования metaros Prolog 22 25.07.2009 01:04
байесовская система логического вывода leoncrab Prolog 3 11.03.2009 17:35
Как увеличить объем логического диска m1k0n Накопители 3 01.10.2008 00:23
Вчисление значения логического выражения Unskilled Lisp 0 22.06.2008 13:05
Задача разрешимости логического выражения terry С/С++ 3 19.10.2006 20:29
Создание программы на поиск всех натуральных чисел не превосходящих числа m FARA Вопросы начинающих программистов 2 07.12.2005 12:58
Создание игры с выбором случайного числа Anonymous Вопросы начинающих программистов 1 11.04.2003 21:19
Создание программы на Pascale, внедрение натурального числа Boombastik Вопросы начинающих программистов 7 15.01.2003 18:44



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