> 1 <

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

BrdNLSrg

Members


Статус

4 сообщений

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

#5942   2012-04-05 23:56 GMT+3 часа(ов)      
Здравствуйте! Постановка задачи такова: В каждом слове удалить букву, находящийся между двумя заданными.
Заранее благодарен.

kreol

Members


Статус

87 сообщений

Где: Ukraine Днепропетровск
Род занятий: студент
Возраст: 29

#5944   2012-04-06 21:28 GMT+3 часа(ов)      
Диалект то какой?
И если я правильно понял, то задан список слов
'("слово1" "слово2" ...)
И надо удалить букву во всех словах внутри заданных букв?

megamanx

Members


Статус

307 сообщений

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

#5945   2012-04-06 23:34 GMT+3 часа(ов)      
(defun foo(L m)
(labels ((ret (L R)
(if (cdddr L)
(if (and (eq (car L) (caddr L)) (eq (car L) m))
(ret (cddr L) (append R (list (car L))))
(ret (cdr L) (append R (list (car L)))))
(append R L))))
(coerce (ret (loop for i across L collect i) nil) 'string)))

он нежадный
I wish I'd made you angry earlier

BrdNLSrg

Members


Статус

4 сообщений

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

#5946   2012-04-07 23:50 GMT+3 часа(ов)      
Цитата
megamanx
чего то не могу понять как она работает.

megamanx

Members


Статус

307 сообщений

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

#5947   2012-04-08 01:42 GMT+3 часа(ов)      
(foo "wqerasafdvf" #\a)
> wqeraafdvf

Упс, я щас задание прочитал, ну тогда
(defun foo(L m n)
(labels ((ret (L R)
(if (cdddr L)
(if (and (eq (car L) m) (eq (caddr L) n))
(ret (cddr L) (append R (list (car L))))
(ret (cdr L) (append R (list (car L)))))
(append R L))))
(coerce (ret (loop for i across L collect i) nil) 'string)))
(foo "asdadasdsaweqsaq" #\d #\a)
> "asdadasdaweqsaq"
I wish I'd made you angry earlier

BrdNLSrg

Members


Статус

4 сообщений

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

#5948   2012-04-08 18:05 GMT+3 часа(ов)      
megamanx Спасибо за ответы!
> 1 <


Онлайн :

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