> 1 <

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

Аня Аня

Members


Статус

12 сообщений

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

#3529   2010-11-20 23:11 GMT+3 часа(ов)      
Описать систему функций для списка литер lst1, представляющего собой некоторый текст и lst2, представляющий собой, возможно фрагмент lst1. Написать ф-ций подсчитывающую сколько раз lst2 встречается в lst1 и на каких позициях, результат оформить ввиде списка (<кол-во><позиция 1>...).
Решить задачу 2 способами: без использования циклов и ф-ий присваивания и используя их.

(defun F (Lst1 Lst2 &optional (Pos 0))

(if Lst1

((lambda (elem result)

(if (equal elem Lst2)

(cons

(1+ (car result))

(cons Pos (cdr result)))

result))

(mapcar

'(lambda (e2 e1) e1)

Lst2

Lst1)

(F (cdr Lst1) Lst2 (1+ Pos)))

(cons 0 nil)))

А можно написать систему ф-ции, если исходные данные заданны массивом вместо списка?
> 1 <


Онлайн :

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




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