> 1 <

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

Lisp57

Members


Статус

3 сообщений

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

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

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

_sg

Members


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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


Статус

37 сообщений

Где: 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 пользователь(ей), 28 гость(ей) :




Реклама на сайте: