fork download
copy 
  1. findCapital("Afghanistan");
  2. sub findCapital {
  3. 		my ($sCapital) = @_;
  4. 		my @countries = ("Afghanistan	", "Albania	", "Algeria	", "Andorra	", "Angola	", "Antigua and Barbuda	", "Argentina	", "Armenia	", "Australia	", "Austria	", "Azerbaijan	", "The Bahamas	", "Bahrain	", "Bangladesh	", "Barbados	", "Belarus	", "Belgium	", "Belize	", "Benin	", "Bhutan	", "Bolivia	", "Bosnia and Herzegovina	", "Botswana	", "Brazil	", "Brunei	", "Bulgaria	", "Burkina Faso	", "Burundi	", "Cambodia	", "Cameroon	", "Canada	", "Cape Verde	", "Central African Republic	", "Chad	", "Chile	", "China	", "Colombia	", "Comoros	", "Congo, Republic of the	", "Congo, Democratic Republic of the	", "Costa Rica	", "Cote d'Ivoire	", "Croatia	", "Cuba	", "Cyprus	", "Czech Republic	", "Denmark	", "Djibouti	", "Dominica	", "Dominican Republic	", "East Timor (Timor-Leste)	", "Ecuador	", "Egypt	", "El Salvador	", "Equatorial Guinea	", "Eritrea	", "Estonia	", "Ethiopia	", "Fiji	", "Finland	", "France	", "Gabon	", "The Gambia	", "Georgia	", "Germany	", "Ghana	", "Greece	", "Grenada	", "Guatemala	", "Guinea	", "Guinea-Bissau	", "Guyana	", "Haiti	", "Honduras	", "Hungary	", "Iceland	", "India	", "Indonesia	", "Iran	", "Iraq	", "Ireland	", "Israel	", "Italy	", "Jamaica	", "Japan	", "Jordan	", "Kazakhstan	", "Kenya	", "Kiribati	", "Korea, North	", "Korea, South	", "Kosovo	", "Kuwait	", "Kyrgyzstan	", "Laos	", "Latvia	", "Lebanon	", "Lesotho	", "Liberia	", "Libya	", "Liechtenstein	", "Lithuania	", "Luxembourg	", "Macedonia	", "Madagascar	", "Malawi	", "Malaysia	", "Maldives	", "Mali	", "Malta	", "Marshall Islands	", "Mauritania	", "Mauritius	", "Mexico	", "Micronesia, Federated States of	", "Moldova	", "Monaco	", "Mongolia	", "Montenegro	", "Morocco	", "Mozambique	", "Myanmar (Burma)	", "Namibia	", "Nauru	", "Nepal	", "Netherlands	", "New Zealand	", "Nicaragua	", "Niger	", "Nigeria	", "Norway	", "Oman	", "Pakistan	", "Palau	", "Panama	", "Papua New Guinea	", "Paraguay	", "Peru	", "Philippines	", "Poland	", "Portugal	", "Qatar	", "Romania	", "Russia	", "Rwanda	", "Saint Kitts and Nevis	", "Saint Lucia	", "Saint Vincent and the Grenadines	", "Samoa	", "San Marino	", "Sao Tome and Principe	", "Saudi Arabia	", "Senegal	", "Serbia	", "Seychelles	", "Sierra Leone	", "Singapore	", "Slovakia	", "Slovenia	", "Solomon Islands	", "Somalia	", "South Africa	", "South Sudan	", "Spain	", "Sri Lanka	", "Sudan	", "Suriname	", "Swaziland	", "Sweden	", "Switzerland	", "Syria	", "Taiwan	", "Tajikistan	", "Tanzania	", "Thailand	", "Togo	", "Tonga	", "Trinidad and Tobago	", "Tunisia	", "Turkey	", "Turkmenistan	", "Tuvalu	", "Uganda	", "Ukraine	", "United Arab Emirates	", "United Kingdom	", "United States of America	", "Uruguay	", "Uzbekistan	", "Vanuatu	", "Vatican City (Holy See)	", "Venezuela	", "Vietnam	", "Yemen	", "Zambia	", "Zimbabwe");
  5. 		my @capitals = ("Kabul", "Tirane", "Algiers", "Andorra la Vella", "Luanda", "Saint John's", "Buenos Aires", "Yerevan", "Canberra", "Vienna", "Baku", "Nassau", "Manama", "Dhaka", "Bridgetown", "Minsk", "Brussels", "Belmopan", "Porto-Novo", "Thimphu", "La Paz (administrative); Sucre (judicial)", "Sarajevo", "Gaborone", "Brasilia", "Bandar Seri Begawan", "Sofia", "Ouagadougou", "Bujumbura", "Phnom Penh", "Yaounde", "Ottawa", "Praia", "Bangui", "N'Djamena", "Santiago", "Beijing", "Bogota", "Moroni", "Brazzaville", "Kinshasa", "San Jose", "Yamoussoukro (official); Abidjan (de facto)", "Zagreb", "Havana", "Nicosia", "Prague", "Copenhagen", "Djibouti", "Roseau", "Santo Domingo", "Dili", "Quito", "Cairo", "San Salvador", "Malabo", "Asmara", "Tallinn", "Addis Ababa", "Suva", "Helsinki", "Paris", "Libreville", "Banjul", "Tbilisi", "Berlin", "Accra", "Athens", "Saint George's", "Guatemala City", "Conakry", "Bissau", "Georgetown", "Port-au-Prince", "Tegucigalpa", "Budapest", "Reykjavik", "New Delhi", "Jakarta", "Tehran", "Baghdad", "Dublin", "Jerusalem*", "Rome", "Kingston", "Tokyo", "Amman", "Astana", "Nairobi", "Tarawa Atoll", "Pyongyang", "Seoul", "Pristina", "Kuwait City", "Bishkek", "Vientiane", "Riga", "Beirut", "Maseru", "Monrovia", "Tripoli", "Vaduz", "Vilnius", "Luxembourg", "Skopje", "Antananarivo", "Lilongwe", "Kuala Lumpur", "Male", "Bamako", "Valletta", "Majuro", "Nouakchott", "Port Louis", "Mexico City", "Palikir", "Chisinau", "Monaco", "Ulaanbaatar", "Podgorica", "Rabat", "Maputo", "Rangoon (Yangon); Naypyidaw or Nay Pyi Taw (administrative)", "Windhoek", "no official capital; government offices in Yaren District", "Kathmandu", "Amsterdam; The Hague (seat of government)", "Wellington", "Managua", "Niamey", "Abuja", "Oslo", "Muscat", "Islamabad", "Melekeok", "Panama City", "Port Moresby", "Asuncion", "Lima", "Manila", "Warsaw", "Lisbon", "Doha", "Bucharest", "Moscow", "Kigali", "Basseterre", "Castries", "Kingstown", "Apia", "San Marino", "Sao Tome", "Riyadh", "Dakar", "Belgrade", "Victoria", "Freetown", "Singapore", "Bratislava", "Ljubljana", "Honiara", "Mogadishu", "Pretoria (administrative); Cape Town (legislative); Bloemfontein (judiciary)", "Juba (Relocating to Ramciel)", "Madrid", "Colombo; Sri Jayewardenepura Kotte (legislative)", "Khartoum", "Paramaribo", "Mbabane", "Stockholm", "Bern", "Damascus", "Taipei", "Dushanbe", "Dar es Salaam; Dodoma (legislative)", "Bangkok", "Lome", "Nuku'alofa", "Port-of-Spain", "Tunis", "Ankara", "Ashgabat", "Vaiaku village, Funafuti province", "Kampala", "Kyiv", "Abu Dhabi", "London", "Washington D.C.", "Montevideo", "Tashkent", "Port-Vila", "Vatican City", "Caracas", "Hanoi", "Sanaa", "Lusaka", "Harare");
  6. 		if (grep {$sCapital eq @countries} @countries) {
  7. 			print "$sCapital is found! \n";
  8. 		}
  9. 		print "Capital: $sCapital";
  10. }
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Capital: Afghanistan
https://ideone.com/8UTu8a
language:
Perl (perl 5.28.1)
created:
46 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!