findall_test

predicates

determ prolog_main

nondeterm likes(STRING,STRING,INTEGER AGE)

nondeterm get_likes(STRING,STRING,INTEGER AGE)

clauses

likes("John","Beer",35).

likes("Sam","Wine",16).

likes("Peter","Beer",40).

get_likes(NAME,PRODUCT,AGE):-

likes(NAME,PRODUCT,AGE).

prolog_main():-

findall(X,get_likes(X,_,_),NAMES),

findall(Y,get_likes(_,Y,_),PRODUCTS),

findall(Z,get_likes(_,_,Z),AGE_LIST),

write("Namelist=",NAMES),nl,

write("Product List =",PRODUCTS),nl,

write("AGE_LIST =",AGE_LIST),nl.

Results:

EZY PROLOG. Copyright (C) 2002 EDMGROUP (Australia)

http://www.ezy-software.com

Program compiled

Namelist=[John,Sam,Peter]

Product List =[Beer,Wine,Beer]

AGE_LIST =[35,16,40].

Copyright © 1997-2003 EDMGROUP (Australia)