From 90dc9e1e36cddadee9f93141b29cc26e6c49885e Mon Sep 17 00:00:00 2001
From: Edoardo La Greca
Date: Tue, 1 Apr 2025 18:03:09 +0200
Subject: add exercise 5 to first lecture's homework

---
 lec01/hw.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lec01/hw.hs b/lec01/hw.hs
index 8f4197d..19dd24f 100644
--- a/lec01/hw.hs
+++ b/lec01/hw.hs
@@ -40,3 +40,14 @@ sumDigits (x:xs)
 
 validate :: Integer -> Bool
 validate n = sumDigits (doubleEveryOther (toDigits n)) `mod` 10 == 0
+
+
+-- exercise 5
+
+type Peg = String
+type Move = (Peg, Peg)
+hanoi :: Integer -> Peg -> Peg -> Peg -> [Move]
+hanoi 0 _ _ _ = []
+hanoi 1 a b c = [(a,c)]
+hanoi 2 a b c = [(a,b), (a,c), (b,c)]
+hanoi n a b c = hanoi (n-1) a c b ++ [(a,c)] ++ hanoi (n-1) b a c
-- 
cgit v1.2.3