deobfuscate haskell golf a bit

[unicode-sampler.git] / unicode.txt

diff --git a/unicode.txt b/unicode.txt
index 7588670a89623afeb832bdd4bdd86ae390eaa59e..2c29f9431c20392aef116cdac2139e509ef0744b 100644 (file)
--- a/unicode.txt
+++ b/unicode.txt
@@ -32,7 +32,7 @@ Code:
 
   perl -pe's/\w/$^ =~ $& > chop($^ = $& . $^) ? "@-" : $&/ge'
 
 
   perl -pe's/\w/$^ =~ $& > chop($^ = $& . $^) ? "@-" : $&/ge'
 

-  fix$(<$>)<$>(:)<*>((<$>((:[{- hs -}])<$>))(=<<)<$>(*)<$>(>>=)(+)($))$1
+  {- haskell -}fix$(.)<$>(:)<*>((.((:[]).))(=<<).(*).(>>=)(+)($))$1

 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life
 
 
   ↑1 ⍵∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1⌽¨⊂⍵ ⍝ game of life
 


@@ -48,9 +48,9 @@ Mathematics and sciences:
                                             ⎪⎢⎜ ⎳aⁱ-bⁱ⎟⎥⎪
   2H₂ + O₂ ⇌ 2H₂O, R = 4.7 kΩ, ⌀ 200 µm     ⎩⎣⎝i=1    ⎠⎦⎭
 
                                             ⎪⎢⎜ ⎳aⁱ-bⁱ⎟⎥⎪
   2H₂ + O₂ ⇌ 2H₂O, R = 4.7 kΩ, ⌀ 200 µm     ⎩⎣⎝i=1    ⎠⎦⎭
 

-Proper typography:
+Typography:

 
 

-  • Lookalikes: 1lI|, 0ODØ, 8B, 2Z, 5S$, AАΑꓮᎪ����𖽀
+  • Lookalikes: 1lI|, 0ODØ, 8B, 2Z, 5S$, AАΑꓮᎪ����𑫘𐊠𐤠𐌀𝖠𝙰

   • “It’s ‘quoted’”, „deutsche ‚Gänsefüßchen‘“, « guillemets ‹comme ci› »
   • u + ¨ + ´ = ǘ, o + ~ + ¯ = ȭ, e + ^ + ` = ề, e + ¸ + ˘ = ḝ
   • 1 + 2 − 3 × 4 ÷ 5 ≈ 0–1‰ — 0° 21′ 36″
   • “It’s ‘quoted’”, „deutsche ‚Gänsefüßchen‘“, « guillemets ‹comme ci› »
   • u + ¨ + ´ = ǘ, o + ~ + ¯ = ȭ, e + ^ + ` = ề, e + ¸ + ˘ = ḝ
   • 1 + 2 − 3 × 4 ÷ 5 ≈ 0–1‰ — 0° 21′ 36″


@@ -82,7 +82,7 @@ Precomposed and combining diacritics:
   Muļķa hipiji mēģina nogaršot žņaudzējčūsku. Trâu chậm uống nước đục.
   Mul̦k̦a hipiji mēg̓ina nogaršot žn̦audzējčūsku. Trâu chậm uống nước đục.
 
   Muļķa hipiji mēģina nogaršot žņaudzējčūsku. Trâu chậm uống nước đục.
   Mul̦k̦a hipiji mēg̓ina nogaršot žn̦audzējčūsku. Trâu chậm uống nước đục.
 

-  STARGɅ̊TE • a = v̇ = r̈, a⃑ ⊥ b⃑ • 1̴·2⃯⃗·3̶̮̑·4̣̤̇̈·5⃘̜̹͑͗ • Z̴͔̎a̷̤̲̙̟̼̯͑̌̈́̎͋͟l̸̮̲͉̪͆̿̉̐͆͛̈͊͘͟͜͡ģ̸̖̬̘̈͛̂̄̃̚͟ǫ̸̨̨̠͕̤̫̜̩̟̋͌̔͐͑̈́̉͑!͓͇̠͈̬̪̇̂̎̎̒͘̕͠͝
+  STARGɅ̊TE • U̲n̲d̲e̲r̲ T̶h̶r̶u̶ O̅v̅e̅r̅ • a = v̇ = r̈, a⃑ ⊥ b⃑ • 1̴·2⃯⃗·3̶̮̑·4̣̤̇̈·5⃘̜̹͑͗ • Z̴͔̎a̷̤̲̙̟̼̯͑̌̈́̎͋͟l̸̮̲͉̪͆̿̉̐͆͛̈͊͘͟͜͡ģ̸̖̬̘̈͛̂̄̃̚͟ǫ̸̨̨̠͕̤̫̜̩̟̋͌̔͐͑̈́̉͑!͓͇̠͈̬̪̇̂̎̎̒͘̕͠͝

 
 Pangrams:
 
 
 Pangrams:
 


@@ -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壨㞡𠁠𮭟
 
 
   ‣ kStrange:
   A𠝎𡳿𦨃𦭩 B丂巜㞢𡰣 C乄𡆢𠆭𮥹 F臦𢇖𫤵𭖲 H巪㔔𪢳𭤹 I丄㦰𠁣𬔭
   K𡆥𪜈𫝂𭛝 M仺𠂜𨙨𩁿 O㐃𠄷𦮙𮍍 R𠄔𧹂𫩦𮗙 S龘䨻𪚥𬚩 U壨㞡𠁠𮭟
 

-  ‣ shinjitai differences:
-  兩惡單嚴傳價兒圓勞壓營團圖圍賣廣絲覽豐關齒廳辯
-  两恶单严传价儿圆劳压营团图围卖广丝览丰关齿厅辩
-  両悪単厳伝価児円労圧営団図囲売広糸覧豊関歯庁弁
-

 Alternate English (Deseret):
 
   𐐖𐐲𐑅𐐻 𐐰𐑆 𐑄 𐐙𐑉𐐯𐑌𐐽 𐐿𐐶𐐨𐑌 𐑊𐐳𐐿𐐼 𐑁𐐫𐑉 𐐮𐐻, 𐑇𐐨 𐐸𐐲𐑉𐐼 𐑄𐐰𐐻 𐑅𐐮𐑋𐑁𐐲𐑌𐐨 𐐰𐑀𐐯𐑌.
 Alternate English (Deseret):
 
   𐐖𐐲𐑅𐐻 𐐰𐑆 𐑄 𐐙𐑉𐐯𐑌𐐽 𐐿𐐶𐐨𐑌 𐑊𐐳𐐿𐐼 𐑁𐐫𐑉 𐐮𐐻, 𐑇𐐨 𐐸𐐲𐑉𐐼 𐑄𐐰𐐻 𐑅𐐮𐑋𐑁𐐲𐑌𐐨 𐐰𐑀𐐯𐑌.