Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > LISP > Lisp. Работа с множествами

Автор: BorlandStudio 18.12.2015, 23:29

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

Автор: _sg 19.12.2015, 13:33

Код


(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)

Автор: _sg 20.12.2015, 09:07

Код


(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)