Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Lisp
Перезагрузить страницу Дан список L элементов типа char. Исключить из списка все строчные литературы
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
BaPeHuK BaPeHuK вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.05.2006
По умолчанию Дан список L элементов типа char. Исключить из списка все строчные литературы - 28.05.2006, 18:22

Форумчане помогите пожалуйста с этими двумя заданиями.

1.Дан список L элементов типа char. Исключить из списка все строчные литеры.
2.Заданы два дерева с помощью цепных списков. Определить, является ли второе дерево поддеревом первого.
Ответить с цитированием
  (#2 (permalink)) Старый
Alexey Dejneka Alexey Dejneka вне форума
Member
 
Сообщений: 451
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 23.11.2004
По умолчанию 28.05.2006, 18:38

Код:
CL-USER> (remove-if #'lower-case-p '(#1 #a #A #ю #Ю #ζ #Ζ))
(#1 #A #CYRILLIC_CAPITAL_LETTER_YU #GREEK_CAPITAL_LETTER_ZETA)
Ответить с цитированием
  (#3 (permalink)) Старый
BaPeHuK BaPeHuK вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.05.2006
По умолчанию 21.06.2006, 23:14

Спасибо огромное за решение ( извините что так долго не отзывался - небыло возможности войти в интернет ).
У меня огромная просьба не могбы кто-то написать тоже решения но для MULISPа , а то я что то не доконца въезжаю как это можно сделать.

вторую задачу решил сам
Код:
(defun alex(x y)
   (cond ((null x) nil)
     ((atom (car x))((equal (car x) (car y))(sravn x y))
  ((atom (car x))(alex (cdr x) y)))
  (T (alex (caar x) y))
))

(defun sravn(x y)
    (cond ((null y) T)
   ((atom (car y))(equal (car x) (car y))(sravn (cdr x) (cdr y)))
          (T (not atom(car x))(sravn (caar x) (caar y)))
 ))
еще есть проблема с задачей про ханойские башни , может кто знает как её в MULISP решить?
Ответить с цитированием
  (#4 (permalink)) Старый
BaPeHuK BaPeHuK вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.05.2006
По умолчанию 24.06.2006, 15:33

Сегодня наконец смог забить алгоритм ханойских башен в Mulisp . я от себя такого не ожидал...
Вот "Башни ханоя" :
Код:
(defun xanoy(x a b c)
   (cond ((= x 0) nil)
     ((xanoy(eval(- x 1)) a c b))
  (T (princ "perenesti s ")(prin1 a)(princ " na ")(print b)(xanoy(eval(- x 1)) c b a))
           
))
впринципе все не так уж сложно оказалось, но для человека слабо знакомого с лиспом...
Форумчане, ну помогите с задачей про литеры эти , а то мне скоро это нести преподу надо.
Ответить с цитированием
  (#5 (permalink)) Старый
BaPeHuK BaPeHuK вне форума
Новичок
 
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.05.2006
По умолчанию 25.06.2006, 16:26

Сегодня коллективным мозговым штурмом с друзьями через асю смогли сделать задачу с литерами:
Код:
(defun al(x y)
   (cond ((null x) (reverse y))
         ((< 96 (ASCII (car x)) 123)(al (cdr x) y))   
         (T (al (cdr x) (cons (car x) y)))  
))
Если кто-нибудь найдет ошибку в програмах (до 1 сентября ) , большая просьба отписать в этом топе.
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
mish mish вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.11.2005
По умолчанию 23.03.2007, 17:47

Цитата:
Сегодня наконец смог забить алгоритм ханойских башен в Mulisp . я от себя такого не ожидал...
Вот "Башни ханоя" :
как она работает?
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление элементов списка, согласно номерам второго списка SWI-Prolog 5.8.2 imported__ro Prolog 11 13.01.2011 02:01
Написать программу преобразования списка которая реверсирует n элементов списка Ma3day Prolog 4 14.11.2010 14:07
Написать программу, возвращающую список всех перестановок элементов данного списка artwws Lisp 4 13.11.2010 11:18
Список из трех наибольших элементов другого списка Evangelina Prolog 9 10.12.2009 12:20
Как построить список из элементов 1го списка входящих во 2ой список Ирина 24 Lisp 3 10.02.2009 10:55
Построить список из элементов 2го списка не входящий в 1ый список Ирина 24 Lisp 4 10.02.2009 10:28
Дан список L элементов типа char. Исключить из списка все строчные литеры Ujif Lisp 3 15.05.2008 18:28
Исключить строчные литеры из списка Ujif Prolog 2 15.05.2008 17:11
W char и char как быстро и легко переходить от одного типа к другому impressionist C++ Builder 14 23.01.2007 14:12
Даны списки L1 и L2 элементов типа char. Построить список L3 Geront Lisp 1 31.10.2006 00:50
Как преобразовать строку типа AnsiString в массив символов типа char SkyHawk C++ Builder 16 30.12.2005 12:10
Список из элементов другого списка и числа их вхождений nastenka Prolog 2 16.04.2004 00:42



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