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