translate prolog to formal english

Question

i'm trying to write a program that translate a prolog sentence to a formal english sentence. here is my code :

sentence --> [if],[the], first_phrase, second_phrase.
first_phrase -->  predicate, det , assertion, det, noun.
second_phrase --> [then],[the], predicate, det , noun.
assertion --> noun, [and], [the], predicate.
det --> [are].
det --> [is].



noun --> [flat].
noun --> [webbed].
noun -->[waterfowl].
predicate --> [feet].
predicate --> [bill].
predicate -->[order].


sentence(S1,S3) :- first_phrase(S1,S2), second_phrase(S2,S3).
first_phrase(S1,S3) :- second_phrase(S1,S2), noun(S2,S3).
second_phrase(S1,S3) :- assertion(S1,S2), first_phrase(S2,S3).
det([is|X], X).
det([are|X], X).

the output of this code is like the following : X = [if, the, feet, are, flat, and, the, feet, are|…] so it's missing some words, where it should display some thing like this : If the feet are webbed and the bill is flat then the order is waterfowl.

what should i add or fix in order to get this result ?

see [this](http://stackoverflow.com/questions/1525995/how-to-expand-a-resulting-list-in-swi-prolog) question — CapelliC, Dec 16 '12 at 07:47
this works but i want something to add inside the file code. — Muhsag, Dec 17 '12 at 01:23

score 0 · Answer 1 · answered Dec 18 '12 at 18:01

0

Add this code to your source code file:

remove_max_depth:-
    current_prolog_flag(toplevel_print_options,Options),
    select(max_depth(_), Options, NOptions)->
    set_prolog_flag(toplevel_print_options, NOptions); true.

:-remove_max_depth.

Procedure remove_max_depth will remove the constraint over the maximum number of items to show on top level, and directive :-remove_max_depth. will execute the procedure when you consult the file.

answered Dec 18 '12 at 18:01

gusbro

22,357
35
46

LOL, I also misunderstood the question. I think Mohannad is looking for DCG generation coverage... – CapelliC Dec 18 '12 at 20:18

translate prolog to formal english

1 Answers1