Advertisement
Guest User

getCountryFromCode

a guest
Feb 27th, 2020
439
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 9.58 KB | None | 0 0
  1. (define (getCountryFromCode code)
  2.     (cond
  3.         ((equal? code "AF") "Afghanistan")
  4.         ((equal? code "AL") "Albania")
  5.         ((equal? code "DZ") "Algeria")
  6.         ((equal? code "AS") "American Samoa")
  7.         ((equal? code "AD") "Andorra")
  8.         ((equal? code "AO") "Angola")
  9.         ((equal? code "AI") "Anguilla")
  10.         ((equal? code "AQ") "Antarctica")
  11.         ((equal? code "AG") "Antigua and Barbuda")
  12.         ((equal? code "AR") "Argentina")
  13.         ((equal? code "AM") "Armenia")
  14.         ((equal? code "AW") "Aruba")
  15.         ((equal? code "AU") "Australia")
  16.         ((equal? code "AT") "Austria")
  17.         ((equal? code "AZ") "Azerbaijan")
  18.         ((equal? code "BS") "Bahamas (the)")
  19.         ((equal? code "BH") "Bahrain")
  20.         ((equal? code "BD") "Bangladesh")
  21.         ((equal? code "BB") "Barbados")
  22.         ((equal? code "BY") "Belarus")
  23.         ((equal? code "BE") "Belgium")
  24.         ((equal? code "BZ") "Belize")
  25.         ((equal? code "BJ") "Benin")
  26.         ((equal? code "BM") "Bermuda")
  27.         ((equal? code "BT") "Bhutan")
  28.         ((equal? code "BO") "Bolivia (Plurinational State of)")
  29.         ((equal? code "BQ") "Bonaire, Sint Eustatius and Saba")
  30.         ((equal? code "BA") "Bosnia and Herzegovina")
  31.         ((equal? code "BW") "Botswana")
  32.         ((equal? code "BV") "Bouvet Island")
  33.         ((equal? code "BR") "Brazil")
  34.         ((equal? code "IO") "British Indian Ocean Territory (the)")
  35.         ((equal? code "BN") "Brunei Darussalam")
  36.         ((equal? code "BG") "Bulgaria")
  37.         ((equal? code "BF") "Burkina Faso")
  38.         ((equal? code "BI") "Burundi")
  39.         ((equal? code "CV") "Cabo Verde")
  40.         ((equal? code "KH") "Cambodia")
  41.         ((equal? code "CM") "Cameroon")
  42.         ((equal? code "CA") "Canada")
  43.         ((equal? code "KY") "Cayman Islands (the)")
  44.         ((equal? code "CF") "Central African Republic (the)")
  45.         ((equal? code "TD") "Chad")
  46.         ((equal? code "CL") "Chile")
  47.         ((equal? code "CN") "China")
  48.         ((equal? code "CX") "Christmas Island")
  49.         ((equal? code "CC") "Cocos (Keeling) Islands (the)")
  50.         ((equal? code "CO") "Colombia")
  51.         ((equal? code "KM") "Comoros (the)")
  52.         ((equal? code "CD") "Congo (the Democratic Republic of the)")
  53.         ((equal? code "CG") "Congo (the)")
  54.         ((equal? code "CK") "Cook Islands (the)")
  55.         ((equal? code "CR") "Costa Rica")
  56.         ((equal? code "HR") "Croatia")
  57.         ((equal? code "CU") "Cuba")
  58.         ((equal? code "CW") "Curaçao")
  59.         ((equal? code "CY") "Cyprus")
  60.         ((equal? code "CZ") "Czechia")
  61.         ((equal? code "CI") "Côte d'Ivoire")
  62.         ((equal? code "DK") "Denmark")
  63.         ((equal? code "DJ") "Djibouti")
  64.         ((equal? code "DM") "Dominica")
  65.         ((equal? code "DO") "Dominican Republic (the)")
  66.         ((equal? code "EC") "Ecuador")
  67.         ((equal? code "EG") "Egypt")
  68.         ((equal? code "SV") "El Salvador")
  69.         ((equal? code "GQ") "Equatorial Guinea")
  70.         ((equal? code "ER") "Eritrea")
  71.         ((equal? code "EE") "Estonia")
  72.         ((equal? code "SZ") "Eswatini")
  73.         ((equal? code "ET") "Ethiopia")
  74.         ((equal? code "FK") "Falkland Islands (the) [Malvinas]")
  75.         ((equal? code "FO") "Faroe Islands (the)")
  76.         ((equal? code "FJ") "Fiji")
  77.         ((equal? code "FI") "Finland")
  78.         ((equal? code "FR") "France")
  79.         ((equal? code "GF") "French Guiana")
  80.         ((equal? code "PF") "French Polynesia")
  81.         ((equal? code "TF") "French Southern Territories (the)")
  82.         ((equal? code "GA") "Gabon")
  83.         ((equal? code "GM") "Gambia (the)")
  84.         ((equal? code "GE") "Georgia")
  85.         ((equal? code "DE") "Germany")
  86.         ((equal? code "GH") "Ghana")
  87.         ((equal? code "GI") "Gibraltar")
  88.         ((equal? code "GR") "Greece")
  89.         ((equal? code "GL") "Greenland")
  90.         ((equal? code "GD") "Grenada")
  91.         ((equal? code "GP") "Guadeloupe")
  92.         ((equal? code "GU") "Guam")
  93.         ((equal? code "GT") "Guatemala")
  94.         ((equal? code "GG") "Guernsey")
  95.         ((equal? code "GN") "Guinea")
  96.         ((equal? code "GW") "Guinea-Bissau")
  97.         ((equal? code "GY") "Guyana")
  98.         ((equal? code "HT") "Haiti")
  99.         ((equal? code "HM") "Heard Island and McDonald Islands")
  100.         ((equal? code "VA") "Holy See (the)")
  101.         ((equal? code "HN") "Honduras")
  102.         ((equal? code "HK") "Hong Kong")
  103.         ((equal? code "HU") "Hungary")
  104.         ((equal? code "IS") "Iceland")
  105.         ((equal? code "IN") "India")
  106.         ((equal? code "ID") "Indonesia")
  107.         ((equal? code "IR") "Iran (Islamic Republic of)")
  108.         ((equal? code "IQ") "Iraq")
  109.         ((equal? code "IE") "Ireland")
  110.         ((equal? code "IM") "Isle of Man")
  111.         ((equal? code "IL") "Israel")
  112.         ((equal? code "IT") "Italy")
  113.         ((equal? code "JM") "Jamaica")
  114.         ((equal? code "JP") "Japan")
  115.         ((equal? code "JE") "Jersey")
  116.         ((equal? code "JO") "Jordan")
  117.         ((equal? code "KZ") "Kazakhstan")
  118.         ((equal? code "KE") "Kenya")
  119.         ((equal? code "KI") "Kiribati")
  120.         ((equal? code "KP") "Korea (the Democratic People's Republic of)")
  121.         ((equal? code "KR") "Korea (the Republic of)")
  122.         ((equal? code "KW") "Kuwait")
  123.         ((equal? code "KG") "Kyrgyzstan")
  124.         ((equal? code "LA") "Lao People's Democratic Republic (the)")
  125.         ((equal? code "LV") "Latvia")
  126.         ((equal? code "LB") "Lebanon")
  127.         ((equal? code "LS") "Lesotho")
  128.         ((equal? code "LR") "Liberia")
  129.         ((equal? code "LY") "Libya")
  130.         ((equal? code "LI") "Liechtenstein")
  131.         ((equal? code "LT") "Lithuania")
  132.         ((equal? code "LU") "Luxembourg")
  133.         ((equal? code "MO") "Macao")
  134.         ((equal? code "MG") "Madagascar")
  135.         ((equal? code "MW") "Malawi")
  136.         ((equal? code "MY") "Malaysia")
  137.         ((equal? code "MV") "Maldives")
  138.         ((equal? code "ML") "Mali")
  139.         ((equal? code "MT") "Malta")
  140.         ((equal? code "MH") "Marshall Islands (the)")
  141.         ((equal? code "MQ") "Martinique")
  142.         ((equal? code "MR") "Mauritania")
  143.         ((equal? code "MU") "Mauritius")
  144.         ((equal? code "YT") "Mayotte")
  145.         ((equal? code "MX") "Mexico")
  146.         ((equal? code "FM") "Micronesia (Federated States of)")
  147.         ((equal? code "MD") "Moldova (the Republic of)")
  148.         ((equal? code "MC") "Monaco")
  149.         ((equal? code "MN") "Mongolia")
  150.         ((equal? code "ME") "Montenegro")
  151.         ((equal? code "MS") "Montserrat")
  152.         ((equal? code "MA") "Morocco")
  153.         ((equal? code "MZ") "Mozambique")
  154.         ((equal? code "MM") "Myanmar")
  155.         ((equal? code "NA") "Namibia")
  156.         ((equal? code "NR") "Nauru")
  157.         ((equal? code "NP") "Nepal")
  158.         ((equal? code "NL") "Netherlands (the)")
  159.         ((equal? code "NC") "New Caledonia")
  160.         ((equal? code "NZ") "New Zealand")
  161.         ((equal? code "NI") "Nicaragua")
  162.         ((equal? code "NE") "Niger (the)")
  163.         ((equal? code "NG") "Nigeria")
  164.         ((equal? code "NU") "Niue")
  165.         ((equal? code "NF") "Norfolk Island")
  166.         ((equal? code "MP") "Northern Mariana Islands (the)")
  167.         ((equal? code "NO") "Norway")
  168.         ((equal? code "OM") "Oman")
  169.         ((equal? code "PK") "Pakistan")
  170.         ((equal? code "PW") "Palau")
  171.         ((equal? code "PS") "Palestine, State of")
  172.         ((equal? code "PA") "Panama")
  173.         ((equal? code "PG") "Papua New Guinea")
  174.         ((equal? code "PY") "Paraguay")
  175.         ((equal? code "PE") "Peru")
  176.         ((equal? code "PH") "Philippines (the)")
  177.         ((equal? code "PN") "Pitcairn")
  178.         ((equal? code "PL") "Poland")
  179.         ((equal? code "PT") "Portugal")
  180.         ((equal? code "PR") "Puerto Rico")
  181.         ((equal? code "QA") "Qatar")
  182.         ((equal? code "MK") "Republic of North Macedonia")
  183.         ((equal? code "RO") "Romania")
  184.         ((equal? code "RU") "Russian Federation (the)")
  185.         ((equal? code "RW") "Rwanda")
  186.         ((equal? code "RE") "Réunion")
  187.         ((equal? code "BL") "Saint Barthélemy")
  188.         ((equal? code "SH") "Saint Helena, Ascension and Tristan da Cunha")
  189.         ((equal? code "KN") "Saint Kitts and Nevis")
  190.         ((equal? code "LC") "Saint Lucia")
  191.         ((equal? code "MF") "Saint Martin (French part)")
  192.         ((equal? code "PM") "Saint Pierre and Miquelon")
  193.         ((equal? code "VC") "Saint Vincent and the Grenadines")
  194.         ((equal? code "WS") "Samoa")
  195.         ((equal? code "SM") "San Marino")
  196.         ((equal? code "ST") "Sao Tome and Principe")
  197.         ((equal? code "SA") "Saudi Arabia")
  198.         ((equal? code "SN") "Senegal")
  199.         ((equal? code "RS") "Serbia")
  200.         ((equal? code "SC") "Seychelles")
  201.         ((equal? code "SL") "Sierra Leone")
  202.         ((equal? code "SG") "Singapore")
  203.         ((equal? code "SX") "Sint Maarten (Dutch part)")
  204.         ((equal? code "SK") "Slovakia")
  205.         ((equal? code "SI") "Slovenia")
  206.         ((equal? code "SB") "Solomon Islands")
  207.         ((equal? code "SO") "Somalia")
  208.         ((equal? code "ZA") "South Africa")
  209.         ((equal? code "GS") "South Georgia and the South Sandwich Islands")
  210.         ((equal? code "SS") "South Sudan")
  211.         ((equal? code "ES") "Spain")
  212.         ((equal? code "LK") "Sri Lanka")
  213.         ((equal? code "SD") "Sudan (the)")
  214.         ((equal? code "SR") "Suriname")
  215.         ((equal? code "SJ") "Svalbard and Jan Mayen")
  216.         ((equal? code "SE") "Sweden")
  217.         ((equal? code "CH") "Switzerland")
  218.         ((equal? code "SY") "Syrian Arab Republic")
  219.         ((equal? code "TW") "Taiwan (Province of China)")
  220.         ((equal? code "TJ") "Tajikistan")
  221.         ((equal? code "TZ") "Tanzania, United Republic of")
  222.         ((equal? code "TH") "Thailand")
  223.         ((equal? code "TL") "Timor-Leste")
  224.         ((equal? code "TG") "Togo")
  225.         ((equal? code "TK") "Tokelau")
  226.         ((equal? code "TO") "Tonga")
  227.         ((equal? code "TT") "Trinidad and Tobago")
  228.         ((equal? code "TN") "Tunisia")
  229.         ((equal? code "TR") "Turkey")
  230.         ((equal? code "TM") "Turkmenistan")
  231.         ((equal? code "TC") "Turks and Caicos Islands (the)")
  232.         ((equal? code "TV") "Tuvalu")
  233.         ((equal? code "UG") "Uganda")
  234.         ((equal? code "UA") "Ukraine")
  235.         ((equal? code "AE") "United Arab Emirates (the)")
  236.         ((equal? code "GB") "United Kingdom of Great Britain and Northern Ireland (the)")
  237.         ((equal? code "UM") "United States Minor Outlying Islands (the)")
  238.         ((equal? code "US") "United States of America (the)")
  239.         ((equal? code "UY") "Uruguay")
  240.         ((equal? code "UZ") "Uzbekistan")
  241.         ((equal? code "VU") "Vanuatu")
  242.         ((equal? code "VE") "Venezuela (Bolivarian Republic of)")
  243.         ((equal? code "VN") "Viet Nam")
  244.         ((equal? code "VG") "Virgin Islands (British)")
  245.         ((equal? code "VI") "Virgin Islands (U.S.)")
  246.         ((equal? code "WF") "Wallis and Futuna")
  247.         ((equal? code "EH") "Western Sahara")
  248.         ((equal? code "YE") "Yemen")
  249.         ((equal? code "ZM") "Zambia")
  250.         ((equal? code "ZW") "Zimbabwe")
  251.         ((equal? code "AX") "Åland Islands")
  252.         (else #\null)
  253.     )
  254. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement