, , . , .
- , -, , , , -, , ( ). .
- . , , .
- . - , - , [, .132-133].
, - , , .. . -;
:- 1, 2,..., n.
- :
1. , .. : n= ( : ).
2. - , .. i, n, .
, - - (, , ). - - .
:
;
, .
assert retract. , assert x(Value) x Value [, .158].
, , , , , fail [, .158]. , , ( begin ):
|
|
begin: - readchar (C), while ().
while (C): - C=*.
while (C): - write (C), readchar (Z), while (Z).
, repeat , :
repeat.
repeat:- repeat.
:
begin (X): - repeat, readchar (C), while (C),!.
while (C): - C=*,!.
while (C): - write (C), fail.
while ( ). while ( , while), begin repeat ( , repeat).
, , , , .
[] ., . - .: , 1990.
[] . - .: , 1990.
[] ., . - .: , 1987.
[] ., . - - .: , 1993.
[] . . -
.: , 1996.
[] . - .: , 1982.