1#lang typed/racket/base 2 3(provide (all-defined-out)) 4 5(: currency-code->sign (HashTable Symbol String)) 6(define currency-code->sign 7 #hash((ALL . "Lek") 8 (AFN . "\u60b") 9 (ARS . "$") 10 (AWG . "\u192") 11 (AUD . "$") 12 (AZN . "\u43c\u430\u43d") 13 (BSD . "$") 14 (BBD . "$") 15 (BYR . "p.") 16 (BZD . "BZ$") 17 (BMD . "$") 18 (BOB . "$b") 19 (BAM . "KM") 20 (BWP . "P") 21 (BGN . "\u43b\u432") 22 (BRL . "R$") 23 (BND . "$") 24 (KHR . "\u17db") 25 (CAD . "$") 26 (KYD . "$") 27 (CLP . "$") 28 (CNY . "\ua5") 29 (COP . "$") 30 (CRC . "\u20a1") 31 (HRK . "kn") 32 (CUP . "\u20b1") 33 (CZK . "\u4b\u10d") 34 (DKK . "kr") 35 (DOP . "RD$") 36 (XCD . "$") 37 (EGP . "\ua3") 38 (SVC . "$") 39 (EEK . "kr") 40 (EUR . "\u20ac") 41 (FKP . "\ua3") 42 (FJD . "$") 43 (GHC . "\ua2") 44 (GIP . "\ua3") 45 (GTQ . "Q") 46 (GGP . "\ua3") 47 (GYD . "$") 48 (HNL . "L") 49 (HKD . "$") 50 (HUF . "Ft") 51 (ISK . "kr") 52 (INR . "\u20B9") 53 (IDR . "Rp") 54 (IRR . "\ufdfc") 55 (IMP . "\ua3") 56 (ILS . "\u20aa") 57 (JMD . "J$") 58 (JPY . "\ua5") 59 (JEP . "\ua3") 60 (KZT . "\u43b\u432") 61 (KPW . "\u20a9") 62 (KRW . "\u20a9") 63 (KGS . "\u43b\u432") 64 (LAK . "\u20ad") 65 (LVL . "Ls") 66 (LBP . "\ua3") 67 (LRD . "$") 68 (LTL . "Lt") 69 (MKD . "\u434\u435\u43d") 70 (MYR . "RM") 71 (MUR . "\u20a8") 72 (MXN . "$") 73 (MNT . "\u20ae") 74 (MZN . "MT") 75 (NAD . "$") 76 (NPR . "\u20a8") 77 (ANG . "\u192") 78 (NZD . "$") 79 (NIO . "C$") 80 (NGN . "\u20a6") 81 (KPW . "\u20a9") 82 (NOK . "kr") 83 (OMR . "\ufdfc") 84 (PKR . "\u20a8") 85 (PAB . "B/.") 86 (PYG . "Gs") 87 (PEN . "S/.") 88 (PHP . "\u20b1") 89 (PLN . "z\u142") 90 (QAR . "\ufdfc") 91 (RON . "lei") 92 (RUB . "\u440\u443\u431") 93 (SHP . "\ua3") 94 (SAR . "\ufdfc") 95 (RSD . "\u414\u438\u43d.") 96 (SCR . "\u20a8") 97 (SGD . "$") 98 (SBD . "$") 99 (SOS . "S") 100 (ZAR . "R") 101 (KRW . "\u20a9") 102 (LKR . "\u20a8") 103 (SEK . "kr") 104 (CHF . "CHF") 105 (SRD . "$") 106 (SYP . "\ua3") 107 (TWD . "NT$") 108 (THB . "\ue3f") 109 (TTD . "TT$") 110 (TRY . "TL") 111 (TRL . "\u20a4") 112 (TVD . "$") 113 (UAH . "\u20b4") 114 (GBP . "\ua3") 115 (USD . "$") 116 (UYU . "$U") 117 (UZS . "\u43b\u432") 118 (VEF . "Bs") 119 (VND . "\u20ab") 120 (YER . "\ufdfc") 121 (ZWD . "Z$"))) 122 123(define known-currency-codes 124 (sort (hash-keys currency-code->sign) symbol<?)) 125