Fix russian plural km

This commit is contained in:
Victor Shcherb 2011-08-14 22:56:22 +02:00
parent a56c345488
commit d2c3c81469

View file

@ -70,7 +70,7 @@ distance(Dist) == ['около ', X, Km] :- Dist < 10000, D is round(Dist/1000),
plural_km(D, Km). plural_km(D, Km).
plural_km(D, ' километр ') :- 1 is D mod 10. plural_km(D, ' километр ') :- 1 is D mod 10.
plural_km(D, ' километра ') :- Mod is D mod 10, Mod < 5. plural_km(D, ' километра ') :- Mod is D mod 10, Mod < 5, Mod > 1.
plural_km(_D, ' километров '). plural_km(_D, ' километров ').
distance(Dist) == [ X, ' километров '] :- D is round(Dist/1000), num_atom(D, X). distance(Dist) == [ X, ' километров '] :- D is round(Dist/1000), num_atom(D, X).