deobfuscate haskell golf a bit

[unicode-sampler.git] / unicode.txt

diff --git a/unicode.txt b/unicode.txt
index 0bd2d311f1c9dd26ce97d32a5a8eb10b26989277..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
 
@@ -336,6 +336,7 @@ Chinese:
   龙 ㄌㄨㄥˊ 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丄㦰𠁣𬔭