[tutor] Update assignment
This commit is contained in:
parent
39c3af4ba5
commit
ca687c0136
18 changed files with 438 additions and 14 deletions
10
examples/dcg/tree.pl
Normal file
10
examples/dcg/tree.pl
Normal file
|
@ -0,0 +1,10 @@
|
|||
inorder(nil) --> [].
|
||||
inorder(node(L, N, R)) --> inorder(L), [N], inorder(R).
|
||||
|
||||
:- initialization(main).
|
||||
|
||||
main :-
|
||||
T = node(node(nil, b, node(nil, c, nil)), a, node(nil, d, nil)),
|
||||
phrase(inorder(T), Names),
|
||||
write(Names), nl.
|
||||
|
Reference in a new issue