From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 31 Oct 2020 08:08:33 +0000 (+0100)
Subject: deobfuscate haskell golf a bit
X-Git-Url: http://git.shiar.nl/unicode-sampler.git/commitdiff_plain/589a47d18d7a24654e3d3ed72cd9ad13ed5af118

deobfuscate haskell golf a bit

Keep only a single <$> to test its ligature.
Language comment in front and in full.
---

diff --git a/unicode.txt b/unicode.txt
index c2be4c9..2c29f94 100644
--- 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