From 7b6930dc1597aa29ed43ef21b8e9981cea962a6c Mon Sep 17 00:00:00 2001
From: Edoardo La Greca
Date: Sun, 6 Jul 2025 17:43:04 +0200
Subject: add first exercise of lecture 4

---
 lec04/hw.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 lec04/hw.hs

(limited to 'lec04/hw.hs')

diff --git a/lec04/hw.hs b/lec04/hw.hs
new file mode 100644
index 0000000..1fbdd48
--- /dev/null
+++ b/lec04/hw.hs
@@ -0,0 +1,8 @@
+-- Exercise 1
+
+fun1 :: [Integer] -> Integer
+fun1 = product . map (\n -> n-2) . filter even
+
+-- not tested
+fun2 :: Integer -> Integer
+fun2 = until (== 1) fun2 . last . takeWhile odd . iterate (\n -> 3*n + 1) . sum . takeWhile even . iterate (`div` 2)
-- 
cgit v1.2.3