snippets/Fullwidth.hs at master · RichardBarrell/snippets · GitHub

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
module Main where

-- maps ordinary latin characters to fullwidth equivalents
-- takes no parameters, goes from stdin to stdio
-- build with: ghc --make Fullwidth

import qualified Data.IntMap as I
import Data.Maybe (maybe)

fullW = I.fromList . map (\(s:t:[]) -> (fromEnum s, fromEnum t)) $ [
	"!！",
	"\"＂",
	"#＃",
	"$＄",
	"%％",
	"&＆",
	"'＇",
	"(（",
	")）",
	"*＊",
	"+＋",
	",，",
	"-－",
	".．",
	"/／",
	"0０",
	"1１",
	"2２",
	"3３",
	"4４",
	"5５",
	"6６",
	"7７",
	"8８",
	"9９",
	":：",
	";；",
	"<＜",
	"=＝",
	">＞",
	"?？",
	"@＠",
	"AＡ",
	"BＢ",
	"CＣ",
	"DＤ",
	"EＥ",
	"FＦ",
	"GＧ",
	"HＨ",
	"IＩ",
	"JＪ",
	"KＫ",
	"LＬ",
	"MＭ",
	"NＮ",
	"OＯ",
	"PＰ",
	"QＱ",
	"RＲ",
	"SＳ",
	"TＴ",
	"UＵ",
	"VＶ",
	"WＷ",
	"XＸ",
	"YＹ",
	"ZＺ",
	"[［",
	"\\＼",
	"]］",
	"^＾",
	"_＿",
	"`｀",
	"aａ",
	"bｂ",
	"cｃ",
	"dｄ",
	"eｅ",
	"fｆ",
	"gｇ",
	"hｈ",
	"iｉ",
	"jｊ",
	"kｋ",
	"lｌ",
	"mｍ",
	"nｎ",
	"oｏ",
	"pｐ",
	"qｑ",
	"rｒ",
	"sｓ",
	"tｔ",
	"uｕ",
	"vｖ",
	"wｗ",
	"xｘ",
	"yｙ",
	"zｚ",
	"{｛",
	"|｜",
	"}｝",
	"~～",
        "¢￠",
        "£￡",
        "¬￢",
        "¯￣",
        "¦￤",
        "¥￥",
        "₩￦"]

main = interact (map fullLook)

fullLook c = maybe c toEnum . flip I.lookup fullW . fromEnum $ c