8 lines
401 B
Text
8 lines
401 B
Text
| ?- houses::(houses(S), print(S)).
|
|
h(norwegian,fox,kool,water,yellow)
|
|
h(ukrainian,horse,chesterfield,tea,blue)
|
|
h(english,snake,winston,milk,red)
|
|
h(japonese,zebra,kent,coffee,green)
|
|
h(spanish,dog,lucky,juice,white)
|
|
|
|
S = [h(norwegian,fox,kool,water,yellow),h(ukrainian,horse,chesterfield,tea,blue),h(english,snake,winston,milk,red),h(japonese,zebra,kent,coffee,green),h(spanish,dog,lucky,juice,white)]
|