Рекурсии с repeat

@Nosferaty · Регистрация: 16.03.2015

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

Много уважаемые форумчане, пытался своими силами освоить новый для себя язык программирования, и написать на нем рекурсию, но пока что выходит как то с трудом

все мои попытки что то исправить, натыкаются на компилятор который

, буду очень благодарен, за любую помощь , заранее спасибо

Prolog

implement main
    open core,console
 
 
 
class facts
data:(real, real,real,real) determ.
class predicates
repeat:()multi.
итерация:(integer,integer,integer,real)nondeterm (i,i,i,o).
 
clauses
      repeat().
      repeat():-repeat().
 
      итерация(X,A,N,Z):-
      asserta(data(1,1,4,Z)),
      repeat,
      retract(data(X,A,N,Z1)),
      Z1=X,
      Z2=Z1*Z1+A,
      asserta(data(X,A,N,Z2),
      retract(data(_,_,_,Z)).
 
run():- console::init(),
        итерация(1,1,,3,Z),
    write(Z), nl,secceed,fail.
run().

	26.11.2016, 22:58