Работа с файлами, строками и списками

15.11.2012, 23:26. **Показов** 889. **Ответов** 0

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

Помогите, пожалуйста, написать программу на языке Prolog:

Считать из файла слова (каждое слово записано на отдельной строке), определить число гласных и согласных букв в каждом слове и результаты записать в два списка. По окончании работы списки сохранить в новом файле.

Добавлено через 10 минут
Есть кое-какие наброски, но результат не выводится((

Prolog

domains     file=w     s=string    ss=s*     i=integer   ii=i*
     
predicates       glas(char)          chit(ss)
 
     w_by_w(ss,ii,ii)       count(s,i,i)    delta(char,i,i)
     
goal
       openread(w,"w.txt"), readdevice(w), chit(L), 
                                         w_by_w(L,Lglas,Lsogl),  
              write(L),nl,write(Lglas),nl,write(Lsogl).
     
clauses
    
    chit([]):- eof(w),!.
    chit([G|H]):-  readln(G), chit(H). 
 
w_by_w([],[],[]):-!.    
w_by_w([Sl|T],[Gl|Tgl],[Sogl|Ts]):- w_by_w(T,Tgl,Ts), count(Sl,Gl,Sogl).
 
 
count("",0,0):-!.
count(Word,Gl,Sogl):- frontchar(Word,Char,Rest), count(Rest,G,S), delta(Char,Dg,Ds), 
                             Gl=G+Dg, Sogl=S+Ds.
 
           delta(Char,1,0):- glas(Char),!.
           delta(_,0,1).
    
        glas('a'). glas('e'). glas('i'). glas('o'). glas('u'). glas('y').

Опции темы