3 peg hanoi solver

2016-03-27 14:11:47 +02:00 · 2016-03-27 14:11:47 +02:00 · 4127c9dad6
parent c698ebb625
commit 4127c9dad6
1 changed files with 13 additions and 0 deletions
--- a/1/hanoi.hs
+++ b/1/hanoi.hs
@ -0,0 +1,13 @@
+
+type Peg = String
+type Move = (Peg, Peg)
+
+hanoi :: Integer -> Peg -> Peg -> Peg -> [Move]
+hanoi 1 a b c = [(a, c)]
+hanoi n a b c = concat [
+  hanoi (n-1) a c b,
+  hanoi 1 a b c,
+  hanoi (n-1) b a c ]
+
+
+