Обеспечить ввод и вывод списка слов в прямом и обратном порядке, и вычисление числа слов в этом списке

@missololosha · Регистрация: 02.12.2013

Author24 — интернет-сервис помощи студентам

Изменить программу так, чтобы она обеспечивала ввод и вывод списка символов в прямом и обратном порядке. Чтение символа с клавиатуры до символа Esc может быть определено, например, предикатом readsim:
readsim(S) :- readchar(S), S. <> 27, write(S," ").
readsim(27) :- fall.
Изменить программу так, чтобы она обеспечивала ввод и вывод списка слов в прямом и обратном порядке и вычисление числа слов в этом списке.

Prolog

domains
list = integer* 
predicates 
run
rdlist(list) 
tail_list(list)
head_list(list) 
goal
run. 
clauses
run :-  write("Введите список - "),nl, 
rdlist(L),
write("Обратный порядок - "),nl 
tail_list(L),nl, 
write("Пpямой порядок - "),nl, 
head_list(L).
 
rdlist([S|L]) :- readint(S), 
  rdlist(L). 
rdlist([]).
 
tail_list([S|T]) :-  tail_list(T), 
 write(S,", "). 
tail_list([]).
 
head_list([H|T])  :- write(H,","),
 head_,list(T), 
head_list([]).

Добавлено через 7 минут
чтобы она обеспечивала ввод и вывод списка символов в прямом и обратном порядке, уже доработала.

@gazzelka · 08.12.2014, 14:38

так что, в итоге как реализовала ввод/вывод списка слов?

@gazzelka 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 4
	08.12.2014, 14:38	2
	так что, в итоге как реализовала ввод/вывод списка слов? 0

Опции темы