1:- module(country_language, [top_country_language/2]). 2:- encoding(utf8).
3
4top_country_language(Country, Language):- country_languages(Country, Languages), top_language(Languages, Language).
5
6top_language(Languages, Language):-
7 order_by([desc(P)], member(Language/P, Languages)), !;
8 member(Language, Languages).
9
10country_languages('Afghanistan',['Dari'/50, 'Pashto'/35, 'Turkic languages'/11]).
11country_languages('Albania',['Albanian', 'Greek', 'Vlach', 'Romani', 'Slavic dialects']).
12country_languages('Algeria',['Arabic', 'French', 'Berber dialects']).
13country_languages('American Samoa',['Samoan'/90.6, 'English'/2.9, 'Tongan'/2.4]).
14country_languages('Andorra',['Catalan', 'French', 'Castilian', 'Portuguese']).
15country_languages('Angola',['Portuguese', 'Bantu']).
16country_languages('Anguilla',['English']).
17country_languages('Antigua and Barbuda',['English', 'local dialects']).
18country_languages('Argentina',['Spanish', 'Italian', 'English', 'German', 'French']).
19country_languages('Armenia',['Armenian'/97.7, 'Yezidi'/1, 'Russian'/0.9]).
20country_languages('Aruba',['Papiamento'/66.3, 'Spanish'/12.6, 'English'/7.7, 'Dutch'/5.8]).
21country_languages('Australia',['English'/78.5, 'Chinese'/2.5, 'Italian'/1.6, 'Greek'/1.3, 'Arabic'/1.2, 'Vietnamese'/1]).
22country_languages('Austria',['German'/88.6, 'Turkish'/2.3, 'Serbian'/2.2, 'Croatian'/1.6]).
23country_languages('Azerbaijan',['Azerbaijani'/90.3, 'Lezgi'/2.2, 'Russian'/1.8, 'Armenian'/1.5]).
24country_languages('Bahamas, The',['English', 'Creole']).
25country_languages('Bahrain',['Arabic', 'English', 'Farsi', 'Urdu']).
26country_languages('Bangladesh',['Bangla', 'English']).
27country_languages('Barbados',['English']).
28country_languages('Belarus',['Belarusian'/36.7, 'Russian'/62.8]).
29country_languages('Belgium',['Dutch'/60, 'French'/40]).
30country_languages('Belize',['Spanish'/46, 'Creole'/32.9, 'Mayan dialects'/8.9, 'English'/3.9, 'Garifuna'/3.4, 'German'/3.3]).
31country_languages('Benin',['French', 'Fon', 'Yoruba']).
32country_languages('Bermuda',['English', 'Portuguese']).
33country_languages('Bhutan',['Dzongkha', 'Tibetan dialects', 'Nepalese dialects']).
34country_languages('Bolivia',['Spanish'/60.7, 'Quechua'/21.2, 'Aymara'/14.6]).
35country_languages('Bosnia and Herzegovina',['Bosnian', 'Croatian', 'Serbian']).
36country_languages('Botswana',['Setswana'/78.2, 'Kalanga'/7.9, 'Sekgalagadi'/2.8, 'English'/2.1]).
37country_languages('Brazil',['Portuguese']).
38country_languages('British Virgin Islands',['English']).
39country_languages('Brunei',['Malay', 'English', 'Chinese']).
40country_languages('Bulgaria',['Bulgarian'/84.5, 'Turkish'/9.6, 'Roma'/4.1]).
41country_languages('Burkina Faso',['French']).
42country_languages('Burma',['Burmese']).
43country_languages('Burundi',['Kirundi', 'French', 'Swahili']).
44country_languages('Cambodia',['Khmer'/95, 'French', 'English']).
45country_languages('Cameroon',['English', 'French']).
46country_languages('Canada',['English'/58.8, 'French'/21.6]).
47country_languages('Cape Verde',['Portuguese', 'Crioulo']).
48country_languages('Cayman Islands',['English'/95, 'Spanish'/3.2]).
49country_languages('Central African Republic',['French', 'Sangho']).
50country_languages('Chad',['French', 'Arabic', 'Sara']).
51country_languages('Chile',['Spanish', 'Mapudungun', 'German', 'English']).
52country_languages('China',['Mandarin', 'Yue', 'Wu', 'Minbei', 'Minnan', 'Xiang', 'Gan', 'Hakka dialects']).
53country_languages('Christmas Island',['English', 'Chinese', 'Malay']).
54country_languages('Cocos Islands',['Malay', 'English']).
55country_languages('Colombia',['Spanish']).
56country_languages('Comoros',['Arabic', 'French', 'Shikomoro']).
57country_languages('Congo, Democratic Republic of the',['French', 'Lingala', 'Kingwana', 'Kikongo', 'Tshiluba']).
58country_languages('Congo, Republic of the',['French', 'Lingala', 'Monokutuba']).
59country_languages('Cook Islands',['English', 'Maori']).
60country_languages('Costa Rica',['Spanish', 'English']).
61country_languages('Cote d\'Ivoire',['French', 'Dioula']).
62country_languages('Croatia',['Croatian'/96.1, 'Serbian'/1, 'undesignated'/2.9]).
63country_languages('Cuba',['Spanish']).
64country_languages('Curacao',['Papiamento'/81.2, 'Dutch'/8, 'Spanish'/4, 'English'/2.9]).
65country_languages('Cyprus',['Greek', 'Turkish', 'English']).
66country_languages('Czech Republic',['Czech'/94.9, 'Slovak'/2]).
67country_languages('Denmark',['Danish', 'Faroese', 'Greenlandic', 'German']).
68country_languages('Dhekelia',['English', 'Greek']).
69country_languages('Djibouti',['French', 'Arabic', 'Somali', 'Afar']).
70country_languages('Dominica',['English', 'French patois']).
71country_languages('Dominican Republic',['Spanish']).
72country_languages('Ecuador',['Spanish', 'Amerindian languages']).
73country_languages('Egypt',['Arabic', 'English', 'French']).
74country_languages('El Salvador',['Spanish', 'Nahua']).
75country_languages('Equatorial Guinea',['Spanish'/67.6 , 'Fang', 'Bubi']).
76country_languages('Eritrea',['Tigrinya', 'Arabic', 'English', 'Tigre', 'Kunama', 'Afar']).
77country_languages('Estonia',['Estonian'/67.3, 'Russian'/29.7]).
78country_languages('Ethiopia',['Amarigna'/32.7, 'Oromigna'/31.6, 'Tigrigna'/6.1, 'Somaligna'/6, 'Guaragigna'/3.5, 'Sidamigna'/3.5, 'Hadiyigna'/1.7 , 'English', 'Arabic']).
79country_languages('Falkland Islands',['English']).
80country_languages('Faroe Islands',['Faroese', 'Danish']).
81country_languages('Fiji',['English', 'Fijian', 'Hindustani']).
82country_languages('Finland',['Finnish'/91.2, 'Swedish'/5.5]).
83country_languages('France',['French'/100]).
84country_languages('French Polynesia',['French'/61.1, 'Polynesian'/31.4]).
85country_languages('Gabon',['French', 'Fang', 'Myene', 'Nzebi', 'Bapounou'/'Eschira', 'Bandjabi']).
86country_languages('Gambia, The',['English', 'Mandinka', 'Wolof', 'Fula']).
87country_languages('Gaza Strip',['Arabic', 'Hebrew', 'English']).
88country_languages('Georgia',['Georgian'/71, 'Russian'/9, 'Armenian'/7, 'Azeri'/6]).
89country_languages('Germany',['German']).
90country_languages('Ghana',['Asante'/14.8, 'Ewe'/12.7, 'Fante'/9.9, 'Boron'/4.6, 'Dagomba'/4.3, 'Dangme'/4.3, 'Dagarte'/3.7, 'Akyem'/3.4, 'Ga'/3.4, 'Akuapem'/2.9]).
91country_languages('Gibraltar',['English', 'Spanish', 'Italian', 'Portuguese']).
92country_languages('Greece',['Greek'/99]).
93country_languages('Greenland',['Greenlandic', 'Danish', 'English']).
94country_languages('Grenada',['English', 'French patois']).
95country_languages('Guam',['English'/38.3, 'Chamorro'/22.2, 'Philippine languages'/22.2]).
96country_languages('Guatemala',['Spanish'/60, 'Amerindian languages'/40]).
97country_languages('Guernsey',['English', 'French', 'Norman-French']).
98country_languages('Guinea',['French']).
99country_languages('Guinea-Bissau',['Portuguese', 'Crioulo', 'African languages']).
100country_languages('Guyana',['English', 'Amerindian dialects', 'Creole', 'Caribbean Hindustani', 'Urdu']).
101country_languages('Haiti',['French', 'Creole']).
102country_languages('Holy See',['Italian', 'Latin', 'French']).
103country_languages('Honduras',['Spanish', 'Amerindian dialects']).
104country_languages('Hong Kong',['Cantonese'/90.8, 'English'/2.8, 'Putonghua'/0.9]).
105country_languages('Hungary',['Hungarian'/93.6]).
106country_languages('Iceland',['Icelandic', 'English', 'Nordic languages', 'German']).
107country_languages('India',['Hindi'/41, 'Bengali'/8.1, 'Telugu'/7.2, 'Marathi'/7, 'Tamil'/5.9, 'Urdu'/5, 'Gujarati'/4.5, 'Kannada'/3.7, 'Malayalam'/3.2, 'Oriya'/3.2, 'Punjabi'/2.8, 'Assamese'/1.3, 'Maithili'/1.2]).
108country_languages('Indonesia',['Bahasa Indonesia', 'English', 'Dutch']).
109country_languages('Iran',['Persian'/58, 'Turkic'/26, 'Kurdish'/9, 'Luri'/2, 'Balochi'/1, 'Arabic'/1, 'Turkish'/1]).
110country_languages('Iraq',['Arabic', 'Kurdish', 'Turkoman', 'Assyrian', 'Armenian']).
111country_languages('Ireland',['English', 'Irish']).
112country_languages('Isle of Man',['English', 'Manx Gaelic']).
113country_languages('Israel',['Hebrew', 'Arabic', 'English']).
114country_languages('Italy',['Italian', 'German', 'French', 'Slovene']).
115country_languages('Jamaica',['English', 'English patois']).
116country_languages('Japan',['Japanese']).
117country_languages('Jersey',['English'/94.5, 'Portuguese'/4.6]).
118country_languages('Jordan',['Arabic', 'English']).
119country_languages('Kazakhstan',['Kazakh'/64.4, 'Russian'/95]).
120country_languages('Kenya',['English', 'Swahili']).
121country_languages('Kiribati',['I-Kiribati', 'English']).
122country_languages('Korea, North',['Korean']).
123country_languages('Korea, South',['Korean', 'English']).
124country_languages('Kosovo',['Albanian', 'Serbian', 'Bosnian', 'Turkish', 'Roma']).
125country_languages('Kuwait',['Arabic', 'English']).
126country_languages('Kyrgyzstan',['Kyrgyz'/64.7, 'Uzbek'/13.6, 'Russian'/12.5, 'Dungun'/1]).
127country_languages('Laos',['Lao', 'French', 'English']).
128country_languages('Latvia',['Latvian'/58.2, 'Russian'/37.5, 'Lithuanian'/4.3]).
129country_languages('Lebanon',['Arabic', 'French', 'English', 'Armenian']).
130country_languages('Lesotho',['Sesotho', 'English', 'Zulu', 'Xhosa']).
131country_languages('Liberia',['English'/20]).
132country_languages('Libya',['Arabic', 'Italian', 'English']).
133country_languages('Liechtenstein',['German', 'Alemannic dialect']).
134country_languages('Lithuania',['Lithuanian'/82, 'Russian'/8, 'Polish'/5.6]).
135country_languages('Luxembourg',['Luxembourgish', 'German', 'French']).
136country_languages('Macau',['Cantonese'/85.7, 'Hokkien'/4, 'Mandarin'/3.2, 'English'/1.5, 'Tagalog'/1.3]).
137country_languages('Macedonia',['Macedonian'/66.5, 'Albanian'/25.1, 'Turkish'/3.5, 'Roma'/1.9, 'Serbian'/1.2]).
138country_languages('Madagascar',['French', 'Malagasy', 'English']).
139country_languages('Malawi',['Chichewa'/57.2, 'Chinyanja'/12.8, 'Chiyao'/10.1, 'Chitumbuka'/9.5, 'Chisena'/2.7, 'Chilomwe'/2.4, 'Chitonga'/1.7]).
140country_languages('Malaysia',['Bahasa Malaysia', 'English', 'Chinese', 'Tamil', 'Telugu', 'Malayalam', 'Panjabi', 'Thai']).
141country_languages('Maldives',['Maldivian Dhivehi', 'English']).
142country_languages('Mali',['French', 'Bambara'/80]).
143country_languages('Malta',['Maltese'/90.2, 'English'/6, 'multilingual'/3]).
144country_languages('Marshall Islands',['Marshallese'/98.2]).
145country_languages('Mauritania',['Arabic', 'Pulaar', 'Soninke', 'Wolof', 'French', 'Hassaniya']).
146country_languages('Mauritius',['Creole'/80.5, 'Bhojpuri'/12.1, 'French'/3.4, 'English']).
147country_languages('Mayotte',['Mahorian', 'French'/35]).
148country_languages('Mexico',['Spanish']).
149country_languages('Micronesia, Federated States of',['English', 'Chuukese', 'Kosrean', 'Pohnpeian', 'Yapese', 'Ulithian', 'Woleaian', 'Nukuoro', 'Kapingamarangi']).
150country_languages('Moldova',['Moldovan', 'Russian', 'Gagauz']).
151country_languages('Monaco',['French', 'English', 'Italian', 'Monegasque']).
152country_languages('Mongolia',['Khalkha Mongol'/90, 'Turkic', 'Russian']).
153country_languages('Montenegro',['Serbian'/63.6, 'Montenegrin'/22, 'Bosnian'/5.5, 'Albanian'/5.3, 'unspecified'/3.7]).
154country_languages('Montserrat',['English']).
155country_languages('Morocco',['Arabic', 'Berber dialects', 'French']).
156country_languages('Mozambique',['Emakhuwa'/26.1, 'Xichangana'/11.3, 'Portuguese'/8.8, 'Elomwe'/7.6, 'Cisena'/6.8, 'Echuwabo'/5.8, 'unspecified'/1.3]).
157country_languages('Namibia',['English'/7, 'Afrikaans'/60, 'German'/32]).
158country_languages('Nauru',['Nauruan', 'English']).
159country_languages('Nepal',['Nepali'/47.8, 'Maithali'/12.1, 'Bhojpuri'/7.4, 'Tharu'/5.8, 'Tamang'/5.1, 'Newar'/3.6, 'Magar'/3.3, 'Awadhi'/2.4]).
160country_languages('Netherlands',['Dutch', 'Frisian']).
161country_languages('Netherlands Antilles',['Papiamento'/65.4, 'English'/15.9, 'Dutch'/7.3, 'Spanish'/6.1, 'Creole'/1.6]).
162country_languages('New Caledonia',['French'/33, 'Melanesian-Polynesian dialects']).
163country_languages('New Zealand',['English'/91.2, 'Maori'/3.9, 'Samoan'/2.1, 'French'/1.3, 'Hindi'/1.1, 'Yue'/1.1, 'Northern Chinese'/1 , 'New Zealand Sign Language']).
164country_languages('Nicaragua',['Spanish'/97.5, 'Miskito'/1.7]).
165country_languages('Niger',['French', 'Hausa', 'Djerma']).
166country_languages('Nigeria',['English', 'Hausa', 'Yoruba', 'Igbo', 'Fulani']).
167country_languages('Niue',['English', 'Niuean', 'English']).
168country_languages('Norfolk Island',['English', 'Norfolk']).
169country_languages('Northern Mariana Islands',['Philippine languages'/24.4, 'Chinese'/23.4, 'Chamorro'/22.4, 'English'/10.8, 'other'/9.6]).
170country_languages('Norway',['Bokmal Norwegian', 'Nynorsk Norwegian', 'small Sami']).
171country_languages('Oman',['Arabic', 'English', 'Baluchi', 'Urdu', 'Indian dialects']).
172country_languages('Pakistan',['Punjabi'/48, 'Sindhi'/12, 'Siraiki'/10, 'Pashtu'/8, 'Urdu'/8, 'Balochi'/3, 'Hindko'/2, 'Brahui'/1, 'English', 'Burushaski']).
173country_languages('Palau',['Palauan'/64.7, 'Tobi', 'Angaur', 'Filipino'/13.5, 'English'/9.4, 'Chinese'/5.7, 'Carolinian'/1.5, 'Japanese'/1.5]).
174country_languages('Panama',['Spanish', 'English']).
175country_languages('Papua New Guinea',['Tok Pisin', 'English', 'Hiri Motu']).
176country_languages('Paraguay',['Spanish', 'Guarani']).
177country_languages('Peru',['Spanish'/84.1, 'Quechua'/13, 'Aymara'/1.7, 'Ashaninka'/0.3, 'other'/0.2]).
178country_languages('Philippines',['Filipino', 'English', 'Tagalog', 'Cebuano', 'Ilocano', 'Hiligaynon', 'Bicol', 'Waray', 'Pampango', 'Pangasinan']).
179country_languages('Pitcairn Islands',['English', 'Pitkern']).
180country_languages('Poland',['Polish'/97.8]).
181country_languages('Portugal',['Portuguese', 'Mirandese']).
182country_languages('Puerto Rico',['Spanish', 'English']).
183country_languages('Qatar',['Arabic', 'English']).
184country_languages('Romania',['Romanian'/91, 'Hungarian'/6.7, 'Romany'/1.1]).
185country_languages('Russia',['Russian']).
186country_languages('Rwanda',['Kinyarwanda', 'Bantu', 'French', 'English', 'Swahili']).
187country_languages('Saint Barthelemy',['French', 'English']).
188country_languages('Saint Helena, Ascension, and Tristan da Cunha',['English']).
189country_languages('Saint Kitts and Nevis',['English']).
190country_languages('Saint Lucia',['English', 'French patois']).
191country_languages('Saint Martin',['French', 'English', 'Dutch', 'French Patois', 'Spanish', 'Papiamento']).
192country_languages('Saint Pierre and Miquelon',['French']).
193country_languages('Saint Vincent and the Grenadines',['English', 'French patois']).
194country_languages('Samoa',['Samoan', 'English']).
195country_languages('San Marino',['Italian']).
196country_languages('Sao Tome and Principe',['Portuguese']).
197country_languages('Saudi Arabia',['Arabic']).
198country_languages('Senegal',['French', 'Wolof', 'Pulaar', 'Jola', 'Mandinka']).
199country_languages('Serbia',['Serbian'/88.3, 'Hungarian'/3.8, 'Bosniak'/1.8, 'Romany'/1.1]).
200country_languages('Seychelles',['Creole'/91.8, 'English'/4.9]).
201country_languages('Sierra Leone',['English', 'Mende', 'Temne', 'Krio']).
202country_languages('Singapore',['Mandarin'/35, 'English'/23, 'Malay'/14.1, 'Hokkien'/11.4, 'Cantonese'/5.7, 'Teochew'/4.9, 'Tamil'/3.2]).
203country_languages('Sint Maarten',['English'/67.5, 'Spanish'/12.9, 'Creole'/8.2, 'Dutch'/4.2, 'Papiamento'/2.2, 'French'/1.5]).
204country_languages('Slovakia',['Slovak'/83.9, 'Hungarian'/10.7, 'Roma'/1.8, 'Ukrainian'/1]).
205country_languages('Slovenia',['Slovenian'/91.1, 'Serbo-Croatian'/4.5]).
206country_languages('Solomon Islands',['Melanesian pidgin', 'English']).
207country_languages('Somalia',['Somali', 'Arabic', 'Italian', 'English']).
208country_languages('South Africa',['IsiZulu'/23.8, 'IsiXhosa'/17.6, 'Afrikaans'/13.3, 'Sepedi'/9.4, 'English'/8.2, 'Setswana'/8.2, 'Sesotho'/7.9, 'Xitsonga'/4.4 , 'isiNdebele', 'Tshivenda', 'siSwati']).
209country_languages('Spain',['Castilian Spanish'/74, 'Catalan'/17, 'Galician'/7, 'Basque'/2]).
210country_languages('Sri Lanka',['Sinhala'/74, 'Tamil'/18]).
211country_languages('Sudan',['Arabic', 'English', 'Nubian', 'Ta Bedawie', 'diverse dialects of Nilotic', 'Nilo-Hamitic', 'Sudanic languages']).
212country_languages('Suriname',['Dutch', 'English', 'Sranang Tongo', 'Caribbean Hindustani', 'Javanese']).
213country_languages('Svalbard',['Norwegian', 'Russian']).
214country_languages('Swaziland',['English', 'siSwati']).
215country_languages('Sweden',['Swedish', 'Sami', 'Finnish']).
216country_languages('Switzerland',['German'/63.7, 'French'/20.4, 'Italian'/6.5, 'Serbo-Croatian'/1.5, 'Albanian'/1.3, 'Portuguese'/1.2, 'Spanish'/1.1, 'English'/1, 'Romansch'/0.5]).
217country_languages('Syria',['Arabic', 'Kurdish', 'Armenian', 'Aramaic', 'Circassian', 'French']).
218country_languages('Taiwan',['Mandarin Chinese', 'Taiwanese', 'Hakka dialects']).
219country_languages('Tajikistan',['Tajik', 'Russian']).
220country_languages('Tanzania',['Swahili', 'Kiunguja', 'English', 'Arabic']).
221country_languages('Thailand',['Thai', 'English']).
222country_languages('Timor-Leste',['Tetum', 'Portuguese', 'Indonesian', 'English']).
223country_languages('Togo',['French', 'Ewe', 'Mina', 'Kabye', 'Dagomba']).
224country_languages('Tokelau',['Tokelauan', 'English']).
225country_languages('Tonga',['Tongan', 'English']).
226country_languages('Trinidad and Tobago',['English', 'Caribbean Hindustani', 'French', 'Spanish', 'Chinese']).
227country_languages('Tunisia',['Arabic', 'French']).
228country_languages('Turkey',['Turkish', 'Kurdish']).
229country_languages('Turkmenistan',['Turkmen'/72, 'Russian'/12, 'Uzbek'/9]).
230country_languages('Turks and Caicos Islands',['English']).
231country_languages('Tuvalu',['Tuvaluan', 'English', 'Samoan', 'Kiribati']).
232country_languages('Uganda',['English', 'Ganda', 'Swahili', 'Arabic']).
233country_languages('Ukraine',['Ukrainian'/67, 'Russian'/24]).
234country_languages('United Arab Emirates',['Arabic', 'Persian', 'English', 'Hindi', 'Urdu']).
235country_languages('United Kingdom',['English']).
236country_languages('United States',['English'/82.1, 'Spanish'/10.7]).
237country_languages('Uruguay',['Spanish', 'Portunol', 'Brazilero']).
238country_languages('Uzbekistan',['Uzbek'/74.3, 'Russian'/14.2, 'Tajik'/4.4]).
239country_languages('Vanuatu',['local languages'/72.6, 'pidgin'/23.1, 'English'/1.9, 'French'/1.4]).
240country_languages('Venezuela',['Spanish']).
241country_languages('Vietnam',['Vietnamese', 'English', 'some French', 'Chinese', 'Khmer']).
242country_languages('Virgin Islands',['English'/74.7, 'Spanish'/16.8, 'French'/6.6]).
243country_languages('Wallis and Futuna',['Wallisian'/58.9, 'Futunian'/30.1, 'French'/10.8]).
244country_languages('West Bank',['Arabic', 'Hebrew', 'English']).
245country_languages('Western Sahara',['Hassaniya Arabic', 'Moroccan Arabic']).
246country_languages('Yemen',['Arabic']).
247country_languages('Zambia',['Bemba'/30.1, 'Nyanja'/10.7, 'Tonga'/10.6, 'Lozi'/5.7, 'Chewa'/4.9, 'Nsenga'/3.4, 'Tumbuka'/2.5, 'Lunda'/2.2, 'Kaonde'/2, 'Lala'/2, 'Luvale'/1.7, 'English'/1.7]).
248country_languages('Zimbabwe',['English', 'Shona', 'Sindebele'])