> 1 <

Автор Сообщение

Lisp57

Members


Статус

3 сообщений

Где: Russia
Род занятий:
Возраст:

#7673   2015-12-19 02:38 GMT+3 часа(ов)      
Никто не сталкивался с подобной задачей?
Дан текст из цифр, прописных и строчных букв латинского алфавита, за которым следует точка. Реализовать программу, определяющую, какие из них являются строчными.

отредактировал(а) Lisp57: 2015-12-19 03:26 GMT+3 часа(ов)

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7674   2015-12-19 16:29 GMT+3 часа(ов)       
(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)

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7675   2015-12-19 16:29 GMT+3 часа(ов)       
(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)

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7676   2015-12-19 16:29 GMT+3 часа(ов)       
(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)

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7677   2015-12-19 16:30 GMT+3 часа(ов)       
(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)

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7678   2015-12-19 16:30 GMT+3 часа(ов)       
(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)

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7679   2015-12-19 16:30 GMT+3 часа(ов)       
(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)

 
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7680   2015-12-19 16:31 GMT+3 часа(ов)       
(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

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7681   2015-12-20 12:06 GMT+3 часа(ов)       
(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)
Решение задач на языке программирования Лисп

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7682   2015-12-20 12:06 GMT+3 часа(ов)       
(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)
Решение задач на языке программирования Лисп
> 1 <


Онлайн :

0 пользователь(ей), 37 гость(ей) :