Fixed nominativ and dativ, both in singular and plural. Huuray for German Grammar!
This commit is contained in:
parent
349b5bb5a6
commit
7960ea5b48
1 changed files with 20 additions and 13 deletions
|
@ -97,19 +97,26 @@ dist(D, ['900 ']) :- D < 925, !.
|
||||||
dist(D, ['950 ']) :- D < 975, !.
|
dist(D, ['950 ']) :- D < 975, !.
|
||||||
dist(D, ['1000 ']) :- !.
|
dist(D, ['1000 ']) :- !.
|
||||||
|
|
||||||
distance(Dist, nominativ) == T :- (dist_km(Dist, nominativ) == F), append(F, ' Kilometer ',T).
|
distance(Dist, nominativ) == ['zirka einen Kilometer'] :- Dist < 1500.
|
||||||
distance(Dist, dativ) == T :- (dist_km(Dist, dativ) == F), append(F, ' Kilometern ',T).
|
distance(Dist, dativ) == ['zirka einem Kilometer '] :- Dist < 1500.
|
||||||
dist_km(Dist, nominativ) == ['zirka ein'] :- Dist < 1500.
|
distance(Dist, nominativ) == ['zirka 2 Kilometer '] :- Dist < 2500.
|
||||||
dist_km(Dist, dativ) == ['zirka einen'] :- Dist < 1500.
|
distance(Dist, dativ) == ['zirka 2 Kilometern '] :- Dist < 2500.
|
||||||
dist_km(Dist, _) == ['zirka 2'] :- Dist < 2500.
|
distance(Dist, nominativ) == ['zirka 3 Kilometer '] :- Dist < 3500.
|
||||||
dist_km(Dist, _) == ['zirka 3'] :- Dist < 3500.
|
distance(Dist, dativ) == ['zirka 3 Kilometern '] :- Dist < 3500.
|
||||||
dist_km(Dist, _) == ['zirka 4'] :- Dist < 4500.
|
distance(Dist, nominativ) == ['zirka 4 Kilometer '] :- Dist < 4500.
|
||||||
dist_km(Dist, _) == ['zirka 5'] :- Dist < 5500.
|
distance(Dist, dativ) == ['zirka 4 Kilometern '] :- Dist < 4500.
|
||||||
dist_km(Dist, _) == ['zirka 6'] :- Dist < 6500.
|
distance(Dist, nominativ) == ['zirka 5 Kilometer '] :- Dist < 5500.
|
||||||
dist_km(Dist, _) == ['zirka 7'] :- Dist < 7500.
|
distance(Dist, dativ) == ['zirka 5 Kilometern '] :- Dist < 5500.
|
||||||
dist_km(Dist, _) == ['zirka 8'] :- Dist < 8500.
|
distance(Dist, nominativ) == ['zirka 6 Kilometer '] :- Dist < 6500.
|
||||||
dist_km(Dist, _) == ['zirka 9'] :- Dist < 9500.
|
distance(Dist, dativ) == ['zirka 6 Kilometern '] :- Dist < 6500.
|
||||||
dist_km(Dist, _) == ['zirka ', X] :- D is Dist/1000, dist(D, X).
|
distance(Dist, nominativ) == ['zirka 7 Kilometer '] :- Dist < 7500.
|
||||||
|
distance(Dist, dativ) == ['zirka 7 Kilometern '] :- Dist < 7500.
|
||||||
|
distance(Dist, nominativ) == ['zirka 8 Kilometer '] :- Dist < 8500.
|
||||||
|
distance(Dist, dativ) == ['zirka 8 Kilometern '] :- Dist < 8500.
|
||||||
|
distance(Dist, nominativ) == ['zirka 9 Kilometer '] :- Dist < 9500.
|
||||||
|
distance(Dist, dativ) == ['zirka 9 Kilometern '] :- Dist < 9500.
|
||||||
|
distance(Dist, nominativ) == ['zirka ', X, ' Kilometer '] :- D is Dist/1000, dist(D, X).
|
||||||
|
distance(Dist, dativ) == ['zirka ', X, ' Kilometern '] :- D is Dist/1000, dist(D, X).
|
||||||
|
|
||||||
%% resolve command main method
|
%% resolve command main method
|
||||||
%% if you are familar with Prolog you can input specific to the whole mechanism,
|
%% if you are familar with Prolog you can input specific to the whole mechanism,
|
||||||
|
|
Loading…
Reference in a new issue