Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Lin205
:- op(900, xfx, '=>'). np => [det, n]. n => [adj, n]. pp => [p, np]. s => [np, vp]. vp => [tv, np]. vp => [vp, pp]. vp => [sv, s]. det => the. n => cat. np => robin. tv => saw. vp => sneezed. p => about. p => by. %%%%%%%%%% Do not modify the code below %%%%%%%%%%% parse(ListOfWords):- findall(Tree,parse([],ListOfWords,[],Tree),L), nl,write('Parse tree(s): '),nl, writeout_l(L), write('Done parsing!'). parse([_],[],[X],X). % Binary branching parse([Y,X|MoreStack],Words,[Z,W|ListNodes],Parse):- LHS => [X,Y], Node = [LHS,W,Z], parse([LHS|MoreStack],Words,[Node|ListNodes],Parse). % Unary branching parse([X|Stack],Words,[Z|ListNodes],Parse):- LHS => X, Node = [LHS,Z], parse([LHS|Stack],Words,[Node|ListNodes],Parse). % Lexicon parse(Stack,[X|Words],ListNodes,Parse):- LHS => X, Node = [LHS,X], parse([LHS|Stack],Words,[Node|ListNodes],Parse). % Pretty print writeout_l([T|L]):- writeout(T), nl,nl, writeout_l(L). writeout_l([]). writeout([X,Y]):- write('['),writeout(X),write(' '), writeout(Y),write(']'), !. writeout([X,Y,Z]):- write('['),writeout(X),write(' '), writeout(Y),write(' '),writeout(Z),write(']'), !. writeout(X):- write(X).
run
|
edit
|
history
|
help
0
<iframe src="https://www.google.com">
by ', 4 years ago
by ', 4 years ago
<center>hey</center>
by ', 4 years ago
by ', 4 years ago
Please
log in
to post a comment.
LOCO 0.2 inicio de ciclo
mmm
VASQUEZ HERNANDEZ KARLA SHAMADY
Tarea_15_Marzo_Martinez_Barranco_Diego
modificar para escribir el objeto vacío y el arreglo vacío
Examen IC Parte 3 Flores López Angel Raymundo
Garduño Rubio Brandon Antonio Examen 1a Parte
Fidel Adrian Sanchez Bravo
Prueba
Ejercicio gramática - González Reyes Gabriel
by ', 4 years ago
<center>hey</center>
by ', 4 years agoby ', 4 years ago
Please log in to post a comment.