> 1 <

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

Leprikon4eg

Members


Статус

2 сообщений

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

#7589   2015-04-14 16:52 GMT+3 часа(ов)      
Здравствуйте!
Пожалуйста помогите написать программу на лиспе:
Дано 3 списка (L1 L2 L3) , нужно вывести true если L1 является префиксом L2 и L3 является суффиксом L2 , в противном случае false

Писал на прологе программу , не могу портировать на лисп(
Помогите пожалуйста.
app([],L,L).
app([H|T],L,[H|LT]):-app(T,L,LT).
pref(P,L):-app(P,_,L).
suf(S,L):-app(_,S,L).
result(L1,L2,L3):-pref(L1,L2),suf(L3,L2).

Valko

Members


Статус

29 сообщений

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

#7591   2015-04-14 22:34 GMT+3 часа(ов)      
Должны быть образцы префиксов и суффиксов по идее.

_sg

Members


Статус

31 сообщений

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

#7636   2015-05-18 18:42 GMT+3 часа(ов)      
(defun prefix-suffix (p
w
s
&aux
(pn (length p))
(wn (length w))
(sn (length s))
(a (mismatch p w))
(b (mismatch (reverse s) (reverse w))))
(and p
w
s
(> wn pn)
(> wn sn)
(> (1+ a) pn)
(> (1+ b) sn)))
 
> (prefix-suffix '(1 2) '(1 2 3 4 5) '(4 5))
T
> (prefix-suffix '(1 2 3) '(1 2 3) '(1 2 3))
NIL
> (prefix-suffix '(1 3) '(1 2 3 4 5) '(4 5))
NIL
 
> 1 <


Онлайн :

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




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