From 589a47d18d7a24654e3d3ed72cd9ad13ed5af118 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 31 Oct 2020 09:08:33 +0100
Subject: [PATCH] deobfuscate haskell golf a bit

Keep only a single <$> to test its ligature.
Language comment in front and in full.
---
 unicode.txt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 
-- 
2.30.0