33 lines
1.5 KiB
Perl
33 lines
1.5 KiB
Perl
|
:- dynamic tabl/2.
|
||
|
|
|
||
|
|
tabl(persons, [id, first, last, age, city]).
|
||
|
|
tabl(cities, [name, state, temp]).
|
||
|
|
|
||
|
|
:- dynamic persons/5.
|
||
|
|
persons( 0, "Jeffrey", "Bowman", 30, "Daytona Beach").
|
||
|
|
persons( 1, "Lorena", "Michaels", 50, "Boardman").
|
||
|
|
persons( 2, "Joseph", "Mixson", 37, "Washington").
|
||
|
|
persons( 3, "Stewart", "Sullivan", 83, "Grand Island").
|
||
|
|
persons( 4, "Thomas", "Marshall", 75, "Houston").
|
||
|
|
persons( 5, "Tameka", "Escobedo", 25, "Orlando").
|
||
|
|
persons( 6, "Annette", "Marcy", 40, "Pittsburgh").
|
||
|
|
persons( 7, "David", "Smith", 36, "Orlando").
|
||
|
|
persons( 8, "Anthony", "Garcia", 20, "Daytona Beach").
|
||
|
|
persons( 9, "Lindsay", "Faught", 70, "Boardman").
|
||
|
|
persons(10, "Claudette", "Neil", 32, "Washington").
|
||
|
|
persons(11, "Betty", "Strickland", 47, "Atlanta").
|
||
|
|
persons(12, "Richard", "Gordon", 47, "Dallas").
|
||
|
|
persons(13, "Robert", "Evans", 69, "Atlanta").
|
||
|
|
persons(14, "Candace", "Griffin", 61, "Pittsburgh").
|
||
|
|
persons(15, "Sandra", "Smith", 67, "Dallas").
|
||
|
|
|
||
|
|
:- dynamic cities/3.
|
||
|
|
cities("Daytona Beach", "Florida", 22).
|
||
|
|
cities("Boardman", "Oregon", 12).
|
||
|
|
cities("Washington", "District of Columbia", 11).
|
||
|
|
cities("Grand Island", "New York", 10).
|
||
|
|
cities("Houston", "Texas", 20).
|
||
|
|
cities("Orlando", "Florida", 23).
|
||
|
|
cities("Dallas", "Texas", 17).
|
||
|
|
cities("Pittsburgh", "Pennsylvania", 11).
|
||
|
|
cities("Atlanta", "Georgia", 16).
|