deobfuscate haskell golf a bit

[unicode-sampler.git] / unicode.txt

diff --git a/unicode.txt b/unicode.txt
index c99e9d598cc88bae387fb79337597e95ae65a64e..2c29f9431c20392aef116cdac2139e509ef0744b 100644 (file)
--- a/unicode.txt
+++ b/unicode.txt
@@ -32,7 +32,7 @@ Code:
 
   perl -pe's/\w/$^ =~ $& > chop($^ = $& . $^) ? "@-" : $&/ge'
 
-  fix$(<$>)<$>(:)<*>((<$>((:[{- hs -}])<$>))(=<<)<$>(*)<$>(>>=)(+)($))$1
+  {- haskell -}fix$(.)<$>(:)<*>((.((:[]).))(=<<).(*).(>>=)(+)($))$1
 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life
 
@@ -329,21 +329,19 @@ Chinese:
   閏餘成歲律召調陽 雲騰致雨露結為霜 金生麗水玉出崑崗
   劍號巨闕珠稱夜光 果珍李柰菜重芥薑 海鹹河淡鱗潛羽翔
 
-  ‣ Transliteration test: (Zhuyin/Pinyin/Mandarin, Jyutping/Cantonese)
-  宣 　 • ㄒㄩㄢ xuān /ɕy̯ɛn˥/ • syun¹ /ɕyːn˥/
-  女 　 • ㄋㄩˇ  nǚ   /ny˨˩˦/ • neoi⁵ /nɵy˩˧/
-  律 　 • ㄌㄩˋ  lǜ   /ly˥˩/  • leot⁶ /løt̚˨/
-  驢/驴 • ㄌㄩˊ  lǘ   /ly˧˥/  • leoi⁴ /løy˨˩/
+  ‣ Transliteration: (mandarin, japanese, cantonese)
+  简 zhuyin  pinyin/IPA   dng shinjitai 繁 jyutping/IPA  √  IDS
+  单 ㄉㄢ    dān  tän˥        単 ひとえ 單 daan¹ täːn˥˥     ⿱吅⿻日十
+  恐 ㄎㄨㄥˇ kǒng kʰʊŋ˨˩˦ кон 恐 きょう 恐 hung² hʊŋ˧˥      ⿱⿰工⿹⺄㐅心
+  龙 ㄌㄨㄥˊ lóng lʊŋ˧˥   лун 竜 りゅう 龍 lung⁴ lʊŋ˩    ⿓ ⿰⿱立⺼⿱⺊⿷己三
+  齿 ㄔˇ     chǐ  ʈ͡ʂʰʐ̩˨˩˦ цы  歯 し     齒 ci²   t͡sʰiː˧˥ ⿒ ⿱止𠚕
+  缕 ㄌㄩˇ   lǚ   ly˧˩˧   лү  𫃵 る     縷 leoi⁵ lɵy˩˧      ⿰糹婁
+  𰻝 ㄅㄧㄤˊ biáng pjɑŋ˧˥ бян 𰻞 ビャン 𰻞                  ⿺辶⿳穴⿲月⿱⿲幺言幺⿲長馬長刂心
 
   ‣ kStrange:
   A𠝎𡳿𦨃𦭩 B丂巜㞢𡰣 C乄𡆢𠆭𮥹 F臦𢇖𫤵𭖲 H巪㔔𪢳𭤹 I丄㦰𠁣𬔭
   K𡆥𪜈𫝂𭛝 M仺𠂜𨙨𩁿 O㐃𠄷𦮙𮍍 R𠄔𧹂𫩦𮗙 S龘䨻𪚥𬚩 U壨㞡𠁠𮭟
 
-  ‣ shinjitai differences:
-  兩惡單嚴傳價兒圓勞壓營團圖圍賣廣絲覽豐關齒廳辯
-  两恶单严传价儿圆劳压营团图围卖广丝览丰关齿厅辩
-  両悪単厳伝価児円労圧営団図囲売広糸覧豊関歯庁弁
-
 Alternate English (Deseret):
 
   𐐖𐐲𐑅𐐻 𐐰𐑆 𐑄 𐐙𐑉𐐯𐑌𐐽 𐐿𐐶𐐨𐑌 𐑊𐐳𐐿𐐼 𐑁𐐫𐑉 𐐮𐐻, 𐑇𐐨 𐐸𐐲𐑉𐐼 𐑄𐐰𐐻 𐑅𐐮𐑋𐑁𐐲𐑌𐐨 𐐰𐑀𐐯𐑌.