OpenEuphoria

Re: Adventure Parser ?

• Posted by Irv Mullins <irv at ELLIJAY.COM> Dec 12, 1998
• 512 views

On Sat, 12 Dec 1998 13:43:17 +0100, Ralf Nieuwenhuijsen <nieuwen at XS4ALL.NL>
wrote:

>>Ralph:
>>
>>What you are describing is the programming language ProLog.
>
>
>Really ? Wow. I'll go look into it. Seems interesting.
>
Maybe, but first look at the code to reverse a list
(that's been at topic here lately)

domains
       integerlist = integer*

predicates
       reverse(integerlist,integerlist)
       append(integerlist,
           integerlist,integerlist)
       generate(integerlist,integerlist)
clauses

reverse([],[]).
reverse([X|Y],Z):-
        reverse(Y,Y1), append(Y1,[X],Z),
append([],X,X).
append([X|Y],Z,[X|W]):-
        append(Y,Z,W).
generate(0,[]).
generate(N,[N|Y]):-
         M is N - 1,
         generate(M,Y).
test:-
       generate(50,X),
       write(X),
       reverse(X,Y),
       write(Y).

I maybe made a typo somewhere, but how would anyone know?
This is clear as mud.

Irv