Prolog/metro_network.pl at master · Paradigmas2018/Prolog · 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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
% let train speed be 9 m/s

train('line 1',
  [
    ['gare de l\'ouest', 0],
    ['beekkant', 540],
    ['etangs noirs', 780],
    ['comte de flandre', 580],
    ['sainte-catherine', 610],
    ['de brouckere', 350],
    ['gare centrale', 670],
    ['parc', 410],
    ['arts-loi', 450],
    ['maelbeek', 580],
    ['schuman', 390],
    ['merode', 1190],
    ['montgomery', 670],
    ['josephine-charlotte', 480],
    ['gribaumont', 430],
    ['tomberg', 520],
    ['roodebeek', 890],
    ['vandervelde', 880],
    ['alma', 2090],
    ['crainheim', 1960],
    ['stockel', 940]
  ]
).

train('line 2',
  [
    ['simonis', 0],
    ['osseghem', 780],
    ['beekkant', 400],
    ['gare de l\'ouest', 540],
    ['delacroix', 500],
    ['clemenceau', 610],
    ['gare du midi', 740],
    ['porte de hal', 600],
    ['hotel des monnaies', 430],
    ['louise', 470],
    ['porte de namur', 590],
    ['trone', 430],
    ['arts-loi', 520],
    ['madou', 490],
    ['botanique', 460],
    ['rogier', 530],
    ['yser', 450],
    ['ribaucourt', 1120],
    ['elisabeth', 580]
  ]
).

train('line 3',
  [
    ['esplanade', 0],
    ['de wand', 780],
    ['rogier', 400],
    ['de brouckere', 540],
    ['bourse beurs', 500],
    ['anneessens', 610],
    ['lemonnier', 740],
    ['gare du midi', 600],
    ['hallepoort', 600],
    ['parvis de saint-gilles', 430],
    ['horta', 470],
    ['albert', 590],
    ['vanderkindere', 430],
    ['churchill', 520]
  ]
).

train('line 4',
  [
    ['stalle', 0],
    ['vanderkindere', 780],
    ['albert', 400],
    ['horta, 540],
    ['parvis de saint-gilles', 500],
    ['hallepoort', 600],
    ['gare du midi', 600],
    ['lemonnier', 740],
    ['anneessens', 610],
    ['bourse beurs', 500],
    ['de brouckere', 540],
    ['rogier', 400],
    ['noordstation', 580]
  ]
).