Найти количество всех положительных чисел в файле - Prolog

Формулировка задачи:

Всем привет, нужно написать программу, которая бы выдавала количество положительных чисел в файле. Код есть, успешно компилируется, но не выполняется: ругается на 19-ую строчку. "impossible to open file". Кто знает в чем проблема?

Domains
  file = f
  i = integer
Predicates
  p(i)
  inc(i,i,i)
Clauses
  inc(X,N,N1):-
    X>0,!,
    N1=N+1.
  inc(_,N,N).
  p(N):-
    readInt(I),!,
    write(I," "),
    p(TailN),
    inc(I,TailN,N).
  p(0).
Goal
  openread(f,"C:\Documents and Settings\numbers.txt"),
  readdevice(f),
  p(N),
  write("Otvet: ",N), 
  closefile(f).

Решение задачи: «Найти количество всех положительных чисел в файле»

textual
                            Листинг программы 
                        
                            1

Оцени полезность:

13 голосов , оценка 3.923 из 5

Похожие ответы