Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Lisp. Работа с множествами 
V
    Опции темы
BorlandStudio
Дата 18.12.2015, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 13.6.2014

Репутация: нет
Всего: нет



Кто-нибудь встречался с подобной задачей на языке обработки списков (LISP)?
Дан  текст  из  цифр, прописных  и  строчных  букв  латинского  алфавита,  за которым следует точка. Реализовать  программу, определяющую, какие из них являются строчными. (используемый диалект (Common Lisp))

Это сообщение отредактировал(а) BorlandStudio - 18.12.2015, 23:34
PM MAIL   Вверх
_sg
Дата 19.12.2015, 13:33 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2



Код

(defun collect-downcase (s)
  (loop for c across s when (char<= #\a c #\z) collect c))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)


Добавлено через 2 минуты и 16 секунд
Код

(defun collect-downcase (s)
  (mapcan #'(lambda (c) (when (char<= #\a c #\z) (list c)))
          (loop for c across s collect c)))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)


Добавлено через 2 минуты и 38 секунд
Код

(defun collect-downcase (s)
  (mapcan #'(lambda (c) (and (char<= #\a c #\z) `(,c)))
          (loop for c across s collect c)))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)


Добавлено через 3 минуты и 6 секунд
Код

(defun collect-downcase (s)
  (loop for c across 
        (remove-if-not #'(lambda (c) (char<= #\a c #\z)) s)
        collect c))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)


Добавлено через 3 минуты и 26 секунд
Код

(defun collect-downcase (s)
  (coerce (remove-if-not #'(lambda (c) (char<= #\a c #\z))
                         s)
          'list))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)


Добавлено через 3 минуты и 45 секунд
Код

(defun collect-downcase (s)
  (map 'list #'identity (remove-if-not
                         #'(lambda (c) (char<= #\a c #\z))
                         s)))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)


Добавлено через 4 минуты
Код

(defun collect-downcase (s)
  (concatenate 'list (remove-if-not
                      #'(lambda (c) (char<= #\a c #\z))
                      s)))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)

--------------------
vk.com/ansicommonlisp
PM MAIL   Вверх
_sg
Дата 20.12.2015, 09:07 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2



Код

(defun collect-downcase (s)
  (loop for c across s when (lower-case-p c) collect c))
 
> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)


Добавлено через 18 секунд
Код

(defun collect-downcase (s)
  (coerce (remove-if-not #'lower-case-p s) 'list))

> (collect-downcase "55stErLing 55stERLing.")
(#\s #\t #\r #\i #\n #\g #\s #\t #\i #\n #\g)

--------------------
vk.com/ansicommonlisp
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума LISP
Void
  • Пожалуйста, создавайте темы с содержательными названиями.
  • Lisp — это целое семейство языков. Всегда указывайте в теме используемый диалект (Common Lisp, Scheme и т.д.).
  • Уважаемые учащиеся, здесь всегда рады помочь Вам, но не делать за Вас вашу работу. У вас гораздо больше шансов получить помощь, если Вы приложите усилия и поделитесь с нами проблемами и результатами. В противном случае добро пожаловать в раздел Центр Помощи.
  • Получив ответ на интересующий Вас вопрос, не забудьте пометить его как решённый.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | LISP | Следующая тема »


 




[ Время генерации скрипта: 0.0984 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.