Exact kilometer announcements (cs) - needs nighly build 2011-08-14 or later!

This commit is contained in:
sonora 2011-08-14 20:53:06 +03:00
parent 145896d32a
commit 2de2f0a4e5

View file

@ -75,6 +75,7 @@ nth(17, 'sedmnáctý').
distance(Dist) == [ X, 'metrů'] :- Dist < 100, D is round(Dist/10)*10, num_atom(D, X).
distance(Dist) == [ X, 'metrů'] :- Dist < 1000, D is round(2*Dist/100)*50, num_atom(D, X).
distance(Dist) == ['přibližně jeden kilometr'] :- Dist < 1500.
distance(Dist) == ['přibližně', X, 'kilometry'] :- Dist < 4500, D is round(Dist/1000), num_atom(D, X).
distance(Dist) == ['přibližně', X, 'kilometrů'] :- Dist < 10000, D is round(Dist/1000), num_atom(D, X).
distance(Dist) == [ X, 'kilometrů'] :- D is round(Dist/1000), num_atom(D, X).