belka/book-exercises
1
0
Fork 0
Code Activity

Add remaining haskell book exercises

Browse Source
This commit is contained in:
Eugen Wissner
2025-12-11 10:28:11 +01:00
parent 3624c712d7
commit 98329e0a3d
221 changed files with 8033 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Haskell-book/18/Instance/test/Spec.hs Normal file
View File

@@ -0,0 +1,29 @@
import Sum
import Nope
import qualified PhhhbbtttEither as Phhhbbttt
import Identity
import List
import Test.QuickCheck.Checkers
import Test.QuickCheck.Classes
main :: IO ()
main = do
quickBatch $ functor $ (First (1, 2, 3) :: Sum (Int, Int, Int) (Int, Int, Int))
quickBatch $ applicative $ (First (1, 2, 3) :: Sum (Int, Int, Int) (Int, Int, Int))
quickBatch $ monad $ (First (1, 2, 3) :: Sum (Int, Int, Int) (Int, Int, Int))
quickBatch $ functor $ (NopeDotJpg :: Nope (Int, Int, Int))
quickBatch $ applicative $ (NopeDotJpg :: Nope (Int, Int, Int))
quickBatch $ monad $ (NopeDotJpg :: Nope (Int, Int, Int))
quickBatch $ functor $ (Phhhbbttt.Left (1, 2, 3) :: Phhhbbttt.PhhhbbtttEither (Int, Int, Int) (Int, Int, Int))
quickBatch $ applicative $ (Phhhbbttt.Left (1, 2, 3) :: Phhhbbttt.PhhhbbtttEither (Int, Int, Int) (Int, Int, Int))
quickBatch $ monad $ (Phhhbbttt.Left (1, 2, 3) :: Phhhbbttt.PhhhbbtttEither (Int, Int, Int) (Int, Int, Int))
quickBatch $ functor $ (Identity (1, 2, 3) :: Identity (Int, Int, Int))
quickBatch $ applicative $ (Identity (1, 2, 3) :: Identity (Int, Int, Int))
quickBatch $ monad $ (Identity (1, 2, 3) :: Identity (Int, Int, Int))
quickBatch $ functor (Cons (1 :: Integer, 2 :: Integer, 3 :: Integer) Nil)
quickBatch $ applicative (Cons (1 :: Integer, 2 :: Integer, 3 :: Integer) Nil)
quickBatch $ monad (Cons (1 :: Integer, 2 :: Integer, 3 :: Integer) Nil)