fixed mathematical rounding for distance announcements. OPEN: Please exchange in all lines starting with "distance(Dist) ==" the Russian for 'more than' by the equivalent of 'about' or 'roughly'. Then upload ti download server.

This commit is contained in:
sonora 2011-07-12 17:43:25 -07:00
parent d32109279d
commit ecae1aa8c2

View file

@ -66,43 +66,44 @@ nth(17, 'семнадцатый ').
%%% distance measure
distance(Dist) == T :- Dist < 1000, dist(Dist, F), append(F, ' meters',T).
dist(D, ['10 ']) :- D < 20, !.
dist(D, ['20 ']) :- D < 30, !.
dist(D, ['30 ']) :- D < 40, !.
dist(D, ['40 ']) :- D < 50, !.
dist(D, ['50 ']) :- D < 60, !.
dist(D, ['60 ']) :- D < 70, !.
dist(D, ['70 ']) :- D < 80, !.
dist(D, ['80 ']) :- D < 90, !.
dist(D, ['90 ']) :- D < 100, !.
dist(D, ['100 ']) :- D < 150, !.
dist(D, ['150 ']) :- D < 200, !.
dist(D, ['200 ']) :- D < 250, !.
dist(D, ['250 ']) :- D < 300, !.
dist(D, ['300 ']) :- D < 350, !.
dist(D, ['350 ']) :- D < 400, !.
dist(D, ['400 ']) :- D < 450, !.
dist(D, ['450 ']) :- D < 500, !.
dist(D, ['500 ']) :- D < 550, !.
dist(D, ['550 ']) :- D < 600, !.
dist(D, ['600 ']) :- D < 650, !.
dist(D, ['650 ']) :- D < 700, !.
dist(D, ['700 ']) :- D < 750, !.
dist(D, ['750 ']) :- D < 800, !.
dist(D, ['800 ']) :- D < 850, !.
dist(D, ['850 ']) :- D < 900, !.
dist(D, ['900 ']) :- D < 950, !.
dist(D, ['950 ']) :- !.
dist(D, ['10 ']) :- D < 15, !.
dist(D, ['20 ']) :- D < 25, !.
dist(D, ['30 ']) :- D < 35, !.
dist(D, ['40 ']) :- D < 45, !.
dist(D, ['50 ']) :- D < 55, !.
dist(D, ['60 ']) :- D < 65, !.
dist(D, ['70 ']) :- D < 75, !.
dist(D, ['80 ']) :- D < 85, !.
dist(D, ['90 ']) :- D < 95, !.
dist(D, ['100 ']) :- D < 125, !.
dist(D, ['150 ']) :- D < 175, !.
dist(D, ['200 ']) :- D < 225, !.
dist(D, ['250 ']) :- D < 275, !.
dist(D, ['300 ']) :- D < 325, !.
dist(D, ['350 ']) :- D < 375, !.
dist(D, ['400 ']) :- D < 425, !.
dist(D, ['450 ']) :- D < 475, !.
dist(D, ['500 ']) :- D < 525, !.
dist(D, ['550 ']) :- D < 575, !.
dist(D, ['600 ']) :- D < 625, !.
dist(D, ['650 ']) :- D < 675, !.
dist(D, ['700 ']) :- D < 725, !.
dist(D, ['750 ']) :- D < 775, !.
dist(D, ['800 ']) :- D < 825, !.
dist(D, ['850 ']) :- D < 875, !.
dist(D, ['900 ']) :- D < 925, !.
dist(D, ['950 ']) :- D < 975, !.
dist(D, ['1000 ']) :- !.
distance(Dist) == ['более одного километра '] :- Dist < 1500.
distance(Dist) == ['более двух километров '] :- Dist < 3000.
distance(Dist) == ['более трех километров '] :- Dist < 4000.
distance(Dist) == ['более четырех километров '] :- Dist < 5000.
distance(Dist) == ['более пяти километров '] :- Dist < 6000.
distance(Dist) == ['более шести километров '] :- Dist < 7000.
distance(Dist) == ['более семи километров '] :- Dist < 8000.
distance(Dist) == ['более восьми километров '] :- Dist < 9000.
distance(Dist) == ['более девяти километров '] :- Dist < 10000.
distance(Dist) == ['более двух километров '] :- Dist < 2500.
distance(Dist) == ['более трех километров '] :- Dist < 3500.
distance(Dist) == ['более четырех километров '] :- Dist < 4500.
distance(Dist) == ['более пяти километров '] :- Dist < 5500.
distance(Dist) == ['более шести километров '] :- Dist < 6500.
distance(Dist) == ['более семи километров '] :- Dist < 7500.
distance(Dist) == ['более восьми километров '] :- Dist < 8500.
distance(Dist) == ['более девяти километров '] :- Dist < 9500.
distance(Dist) == ['более чем ', X, ' километов '] :- D is Dist/1000, dist(D, X).
%% resolve command main method