Files

 master

/

06.14-type-kwon-do-two.hs

Copy path

Blame

Blame

Latest commit

 

History

History

5 lines (4 loc) · 147 Bytes

 master

/

06.14-type-kwon-do-two.hs

Top

File metadata and controls

• Code
• Blame

5 lines (4 loc) · 147 Bytes

Raw

1

2

3

4

5

chk :: Eq b => (a -> b) -> a -> b -> Bool

chk f x y = f x == y

arith :: Num b => (a -> b) -> Integer -> a -> b

arith f n x = fromIntegral n + f x