task4, Prolog - rextester

Language: Layout:

%commands to the interpreter are submitted from stdin input ('show input' box below)
%'halt.' will be automatically appended to stdin input.
%swi-prolog 7.6.4

city("Engels",1747,226 143,113,"GMT+4").
city("Saratov",1590,838 321,838,"GMT+4").
city("Omsk",1716,1 139 897,577,"GMT+6").
city("Moscow",1147,17400000,2561,"GMT+3").
city("Saint-Petersburg",1703,4 991 000,1439,"GMT+3").

city("Kirov",1374,480 594,169,"GMT+3").
city("Yakutsk",1632,282 419,122,"GMT+9").
city("Bryansk",985,411798,186,"GMT+3").
city("Ivanovo",1871,401 505,104,"GMT+3").
city("Novosibirsk",1893,1 511 000,502,"GMT+7").

city("Vladivostok",1860,598 927,331,"GMT+10").
city("Habarovsk",1858,589 586,389,"GMT+10").
city("Kostroma",1152,270 366,144,"GMT+3").
city("Grozny",1818,276 520,324,"GMT+3").
city("Magadan",1939,95 263,295,"GMT+11").

city("Ufa",1574,1 075 000,707,"GMT+5").
city("Kaluga",1371,328 871,168,"GMT+3").
city("Kursk",1095,425 950,208,"GMT+3").
city("Pskov",903,205 062,95,"GMT+3").
city("Irkutsk",1661,601 993,280,"GMT+8").

millionnik(X):-city(X,Y,Z,C,V),Z>1000000.
is_founded_in19century(X):-city(X,Y,Z,C,V),Y>1799,Y<1900.
has_big_territory(X):-city(X,Y,Z,C,V),C>200.

[ - ] Show input
Absolute running time: 0.41 sec, cpu time: 0.22 sec, memory peak: 7 Mb, absolute service time: 0,5 sec