Skip to content

Instantly share code, notes, and snippets.

@shigemk2
Created Apr 1, 2015
Embed
What would you like to do?
-- 結合性
infixr 5 :-:
data List a = Empty | a :-: (List a) deriving (Show, Read, Eq, Ord)
main = do
print $ 3 :-: 4 :-: 5 :-: Empty
let a = 3 :-: 4 :-: 5 :-: Empty
print $ 100 :-: a
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment