dc6b9e473997866d27131ed819004a107caa99f0100330f4fdf23c80a1aee296

Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 4096

Preview (limited to 512 bytes)

"{-# LANGUAGE ScopedTypeVariables, TemplateHaskell #-}\nmodule Main where\n\n--------------------------------------------------------------------------\n-- imports\n\nimport Test.QuickCheck\n\nimport Data.List\n ( sort\n , (\\\\)\n )\n\nimport Control.Monad\n ( liftM\n , liftM2\n )\n\n--------------------------------------------------------------------------\n-- skew heaps\n\ndata Heap a\n = Node a (Heap a) (Heap a)\n | Empty\n deriving ( Eq, Ord, Show )\n\nempty :: Heap a\nempty = Empty\n\nisEmpty :: Heap a -> Bool\nisEmpty Empty "

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete