rinx · September 30, 2016 08:32
diff --git a/sushi-soku-enzan.hs b/sushi-soku-enzan.hs
 --
 -- 🍣-soku-enzan.hs
 --

 (🍣)                = (+)
 (🍣🍣)           = (-)
 (🍣🍣🍣)      = (*)
 (🍣🍣🍣🍣) = (/)

 main :: IO ()
 main = do
    print $ (++) "42 🍣 36 = " $ show $ 42 🍣 36
    print $ (++) "42 🍣🍣 36 = " $ show $ 42 🍣🍣 36
    print $ (++) "42 🍣🍣🍣 36 = " $ show $ 42 🍣🍣🍣 36
    print $ (++) "42 🍣🍣🍣🍣 36 = " $ show $ 42 🍣🍣🍣🍣 36
	--
	-- 🍣-soku-enzan.hs
	--

	(🍣) = (+)
	(🍣🍣) = (-)
	(🍣🍣🍣) = (*)
	(🍣🍣🍣🍣) = (/)

	main :: IO ()
	main = do
	print $ (++) "42 🍣 36 = " $ show $ 42 🍣 36
	print $ (++) "42 🍣🍣 36 = " $ show $ 42 🍣🍣 36
	print $ (++) "42 🍣🍣🍣 36 = " $ show $ 42 🍣🍣🍣 36
	print $ (++) "42 🍣🍣🍣🍣 36 = " $ show $ 42 🍣🍣🍣🍣 36