tA/Boom
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixups

Browse Source
This commit is contained in:
Thorn Avery 2019-07-06 04:41:05 +12:00
parent caea8b5545
commit 7797b8ff3f
1 changed files with 0 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
boom.hs
View File

@ -139,78 +139,3 @@ class Reverse i l r | i l -> r
instance Reverse i Nil i instance Reverse i Nil i
instance (Reverse (Cons x i) xs r) instance (Reverse (Cons x i) xs r)
=> Reverse i (Cons x xs) r => Reverse i (Cons x xs) r
{-
*Main> :t solution (nil :: (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S Z))))))))))))))))))))))))))
solution (nil :: (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S (S Z))))))))))))))))))))))))))
:: Cons
(Cons Z Nil)
(Cons
(Cons (S Z) Nil)
(Cons
(Cons (S (S Z)) Nil)
(Cons
Boom
(Cons
(Cons (S (S (S (S Z)))) Nil)
(Cons
(Cons (S (S (S (S (S Z))))) Nil)
(Cons
(Cons (S (S (S (S (S (S Z)))))) Nil)
(Cons
(Cons (S (S (S (S (S (S (S Z))))))) Nil)
(Cons
(Cons (S (S (S (S (S (S (S (S Z)))))))) Nil)
(Cons
(Cons (S (S (S (S (S (S (S (S (S Z))))))))) Nil)
(Cons
(Cons (S Z)
(Cons Z Nil))
(Cons
(Cons (S Z)
(Cons (S Z) Nil))
(Cons
(Cons (S Z)
(Cons (S (S Z)) Nil))
(Cons
Boom
(Cons
(Cons (S Z)
(Cons (S (S (S (S Z)))) Nil))
(Cons
(Cons (S Z)
(Cons (S (S (S (S (S Z))))) Nil))
(Cons
(Cons (S Z)
(Cons (S (S (S (S (S (S Z)))))) Nil))
(Cons
(Cons (S Z)
(Cons (S (S (S (S (S (S (S Z))))))) Nil))
(Cons
(Cons (S Z)
(Cons (S (S (S (S (S (S (S (S Z)))))))) Nil))
(Cons
(Cons (S Z)
(Cons (S (S (S (S (S (S (S (S (S Z))))))))) Nil))
(Cons
(Cons (S (S Z))
(Cons Z Nil))
(Cons
(Cons (S (S Z))
(Cons (S Z) Nil))
(Cons
(Cons (S (S Z))
(Cons (S (S Z)) Nil))
(Cons
Boom
(Cons
(Cons (S (S Z))
(Cons (S (S (S (S Z)))) Nil))
(Cons
(Cons (S (S Z))
(Cons (S (S (S (S (S Z))))) Nil))
Nil)))))))))))))))))))))))))
*Main>
-}