Add remaining haskell book exercises

2025-12-11 10:28:11 +01:00
parent 3624c712d7
commit 98329e0a3d
221 changed files with 8033 additions and 2 deletions
--- a/Haskell-book/21/instances/test/Spec.hs
+++ b/Haskell-book/21/instances/test/Spec.hs
@@ -0,0 +1,35 @@
+import Lib
+import Data.Monoid
+import Test.QuickCheck
+import Test.QuickCheck.Checkers
+import Test.QuickCheck.Classes
+import SkiFree
+import Tree
+
+main :: IO ()
+main = do
+    sample' (arbitrary :: Gen (S [] Int))
+
+    quickBatch $ traversable $ (Identity (['a'], ['b'], ['c']))
+
+    quickBatch $ applicative $ (undefined :: Constant (String, String, String) (String, String, String))
+    quickBatch $ traversable $ (undefined :: Constant (String, String, String) (String, String, String))
+
+    quickBatch $ traversable $ (undefined :: Optional (String, String, String))
+
+    quickBatch $ traversable $ (undefined :: List (String, String, String))
+
+    quickBatch $ traversable $ (undefined :: Three (String, String, String)
+                                                   (String, String, String)
+                                                   (String, String, String))
+    quickBatch $ traversable $ (undefined :: Pair (String, String, String)
+                                                  (String, String, String))
+    quickBatch $ traversable $ (undefined :: Big (String, String, String)
+                                                 (String, String, String))
+    quickBatch $ traversable $ (undefined :: Bigger (String, String, String)
+                                                    (String, String, String))
+
+    quickBatch $ functor $ S [("a", "q", "y")] ("a", "b", "c")
+    quickBatch $ traversable $ S [("a", "q", "y")] ("a", "b", "c")
+
+    quickBatch $ traversable $ Leaf ("a", "q", "y")