Neoweb.nl

prolog

0 Members and 1 Guest are viewing this topic.

gast

prolog
« on: March 16, 2004, 01:07:26 PM »
wie kan me helpen?

%----knip----%----knip----%----knip----%----knip----%----knip----%

% programmatje dat een boom tekent

:- consult(tree).

% parse opdracht

parse(K,L) :-
 G =.. [K,B,L,[]],
 G,
 dptree(B).

% stukje DCG

s(s(DP,VP)) -->
 dp(DP),
 vp(VP).
s(s(S,S2)) -->
 s(S),
 s2(S2).

s2(s2(DP,VP2)) -->
  dp(DP),
  vp2(VP2).

name(name(jan)) --> [jan].
name(name(marie)) --> [marie].
p(p(in)) --> [in].
n(n(fiets)) --> [fiets].
a(a(braaf)) --> [braaf].
pronoun(pronoun(ik)) --> [ik].
v(v(vertelt)) --> [vertelt].
v(v(regent)) --> [regent].
v(v(slaat)) --> [slaat].
c(c(omdat)) --> [omdat].
c(c(dat)) --> [dat].
d(d(de)) --> [de].

dp(dp(D)) --> name(D).
dp(dp(D,NP)) -->
  d(D),
  np(NP).
dp(dp(D)) --> pronoun(D).

pp(pp(P,D)) -->
  p(P),
  dp(D).

ap(ap(A)) --> a(A).
ap(ap(A,PP)) -->
  a(A),
  pp(PP).

np(np(N)) --> n(N).
np(np(A,NP)) -->
  a(A),
  np(NP).
np(np(N,PP)) -->
  n(N),
  n(PP).

vp(vp(V)) -->
  v(V).
vp(vp(V,PP)) -->
  v(V),
  pp(PP).
vp(vp(V,CP)) -->
  v(V),
  cp(CP).
vp(vp(V,VP)) -->
  v(V),
  vp(VP).
vp(vp(V,DP)) -->
  v(V),
  dp(DP).
vp(vp(V,DP,PP)) -->
  v(V),
  dp(DP),
  pp(PP).
vp(vp(V,DP,CP)) -->
  v(V),
  dp(DP),
  cp(CP).
vp(vp(V,DP,VP)) -->
  v(V),
  dp(DP),
  vp(VP).

vp2(vp2(DP,V)) -->
  dp(DP),
  v(V).
vp2(vp2(V)) -->
  v(V).
vp2(vp2(V,PP)) -->
  v(V),
  pp(PP).
vp2(vp2(V,CP)) -->
  v(V),
  cp(CP).
vp2(vp2(V,VP)) -->
  v(V),
  vp(VP).
vp2(vp2(DP,V,PP)) -->
  v(V),
  dp(DP),
  pp(PP).
vp2(vp2(DP,PP,V)) -->
  v(V),
  dp(DP),
  pp(PP).
vp2(vp2(DP,V,CP)) -->
  v(V),
  dp(DP),
  cp(CP).
vp2(vp2(DP,V,VP)) -->
  v(V),
  dp(DP),
  vp(VP).


cp(cp(C, S2)) -->
  c(C),
  s2(S2).

Offline bastheboss

  • *****
  • 411
  • +70/-16
  • Gender: Male
  • *360*
    • site over mijn WH40Kleger (orks)
Re:prolog
« Reply #1 on: March 16, 2004, 08:14:54 PM »
Helpen met wat? ???

Offline Digihans

  • *****
  • 1.794
  • +86/-8
  • Gender: Male
  • E=MC2
Re:prolog
« Reply #2 on: March 16, 2004, 09:25:12 PM »
ik denk dat de syntax van je code niet helemaal klopt. Is er niet gewoon een debugger voor prolog op het internet te vinden?



Offline harbosma

  • *****
  • 912
  • +160/-22
  • Gender: Male
  • Verleg de grenzen op Neoweb!
    • Homepage familie bosma
Re:prolog
« Reply #3 on: March 17, 2004, 10:51:01 AM »
huh??  ??? ???
"One small step for man, one giant leap for mankind"

Offline Florian

  • ****
  • 327
  • +32/-0
  • Gender: Male
  • Alles heeft een tegengestelde
Re: prolog
« Reply #4 on: May 20, 2006, 05:51:54 PM »
dit lijkt me toch wel iets te ingewikkeld  :o :D