diff --git a/Unit 1/Lesson 3/lambda/lambda.hs b/Unit 1/Lesson 3/lambda/lambda.hs index 83e2523..17b401d 100644 --- a/Unit 1/Lesson 3/lambda/lambda.hs +++ b/Unit 1/Lesson 3/lambda/lambda.hs @@ -23,6 +23,7 @@ double = (\x -> x * 2) square :: Integer -> Integer square = (\x -> x ^ 2) +counter :: Num a => a -> a counter x = (\x -> x + 1) ((\x -> x + 1) ((\x -> x) x)) \ No newline at end of file