fork(1) download

copy

simple(Lim,Рs):- cel(2,Lim,Is),otsev(Is,Рs). 
cel(Min,Max,[Min|Oct]):-Min=‹Max,!, М is Min+1,cel(М,Мах,Ост).
cel(_,_,[]). 
otsev([],[]). 
otsev([I|Is],[I|Ps]):-del(I,Is,New),otsev(New,Рs). 
del(Р,[],[]).
del(P,[I|Is],[I|Nis]):-not(0 is I mod Р),!,del(Р,Is,Nis). 
del(P,[I|Is],Nis):-0 is I mod Р,!,del(Р,Is,Nis).

prog.pl:1:12: syntax error: expression expected
prog.pl:2:29: syntax error: right operand expected for infix operator
prog.pl:5:47: syntax error: expression expected
prog.pl:6:5: syntax error: expression expected
prog.pl:7:39: syntax error: right operand expected for infix operator
prog.pl:8:31: syntax error: right operand expected for infix operator
	6 error(s)
compilation failed

Standard output is empty