%Computational Linguistics II, Feb-May 1999 %Joseba Abaitua, Universidad de Deusto %---------------------dcg0.dec--------------------------- %Given these 7 words, how many "free" phrases can we get? %Try ?-ph(Phrase,[]) %or try ?-go, but careful, there are 823,543 solutions. %---------------------------------------------------------- w --> [if]. w --> [i]. w --> [profane]. w --> [with]. w --> [my]. w --> [unworthiest]. w --> [hand]. ph --> w, w, w, w, w, w, w. %---------------------------------------------------------- go :-ph(Ph,[]), write(Ph), nl, fail.