Lab-8-IA/gamesClassification.clp at master · pegartillo95/Lab-8-IA · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
(clear)

(mapclass Designer)
(mapclass Game)
(mapclass Location)
(mapclass Manufacturer)
(mapclass Store)

(deftemplate Designer
 (slot location)
 (slot name)
 (slot category))

 (deftemplate Game
 (slot category)
 (slot difficulty)
 (slot duration)
 (slot manufacturer)
 (slot name)
 (slot price)
 (slot seller_store)
 (slot style))

 (deftemplate Location
 (slot location_city)
 (slot location_continent)
 (slot location_country))

 (deftemplate Manufacturer
 (slot location)
 (slot name))

 (deftemplate Store
 (slot games)
 (slot location)
 (slot name))


(deffacts ini
(Location (city Madrid)(continent Europe)(country Spain))
(Location (city New_York)(continent America)(country USA))
(Location (city Tokyo)(continent Asia)(country Japan))
)

(defrule locations
	(Location (location_city ?city)(location_continent ?continent) (location_country ?country))
	=>
	(make-instance of Location (location_city ?city)(location_continent ?continent) (location_country ?country))
)

(reset)
(run)
(facts)