exa/prlg
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

dcgs dcg.

Browse source
This commit is contained in:
Mirek Kratochvil 2023-03-10 21:55:16 +01:00
parent 768fb71200
commit 038bc63b45
1 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
inst/prelude.pl
View file

@ -1,9 +1,13 @@
member(X, [X|_]). member(X, [X|_]).
member(X, [_|T]) :- member(X,T). member(X, [_|T]) :- member(X,T).
append([], X, X). append([], [], []) :- !.
append([], [H|T], [H|T]) :- !.
append([X|T], Y, [X|TY]) :- append(T,Y,TY). append([X|T], Y, [X|TY]) :- append(T,Y,TY).
list([]).
list([_|_]).
:- op(700, xfx, is), :- op(700, xfx, is),
op(700, xfx, <), op(700, xfx, <),
op(700, xfx, =<), op(700, xfx, =<),
@ -50,3 +54,32 @@ gcd(X,Y,R) :- zero(Y), !, R=X.
gcd(X,Y,R) :- X1 is X mod Y, gcd(Y,X1,R). gcd(X,Y,R) :- X1 is X mod Y, gcd(Y,X1,R).
lcm(X,Y,R) :- gcd(X,Y,GCD), R is X*(Y/GCD). lcm(X,Y,R) :- gcd(X,Y,GCD), R is X*(Y/GCD).
:- op(1200, xfx, -->).
say([], SameState, SameState) :- !.
say(Tokens, ParsedList, Rest) :-
append(Tokens, Rest, ParsedList).
load_expansion(X --> Y, Xp :- Yp) :- !,
expand_phrasecall(X, Xp, S0, S),
expand_phrase(Y, Yp, S0, S).
expand_phrase((A, B), (Ap, Bp), S0, S) :- !,
expand_phrase(A, Ap, S0, S1),
expand_phrase(B, Bp, S1, S).
expand_phrase((A; B), (Ap; Bp), S0, S) :- !,
expand_phrase(A, Ap, S0, S),
expand_phrase(B, Bp, S0, S).
expand_phrase(L, say(L, S0, S), S0, S) :- list(L), !.
expand_phrase({X}, X, S, S) :- !.
expand_phrase(!, !, S, S) :- !.
expand_phrase(X, Xp, S0, S) :- expand_phrasecall(X, Xp, S0, S).
expand_phrasecall(X, Xp, S0, S) :-
atom(X), !,
struct(Xp, X, [S0, S]).
expand_phrasecall(X, Xp, S0, S) :- !,
struct(X, Id, Args),
append(Args, [S0, S], Args1),
struct(Xp, Id, Args1).