This commit is contained in:
Mark Thom
2019-03-31 22:30:42 -06:00
parent df5e538dc6
commit 2240418a25
6 changed files with 32 additions and 24 deletions

View File

@@ -1,10 +1,10 @@
:- module(dcgs, [(-->)/2, phrase/2, phrase/3]).
:- op(1200, xfx, -->).
:- module(dcgs, [phrase/2, phrase/3]).
:- use_module(library(lists), [append/3]).
:- use_module(library(terms)).
:- op(1200, xfx, -->).
phrase(G, G) :-
nonvar(G), G = [_|_], !.
phrase(G, Ls0) :-