module Data where

import Data.Tree
import Data.Word
import Numeric.Natural (Natural)
import Data.List.NonEmpty (NonEmpty (..))
import qualified Data.ByteString as ByteString
import qualified Data.ByteString.Lazy as ByteString.Lazy

mapdata :: [(Int, Rational)]
mapdata = [(10, 20), (3,13), (2242,234), (324, 543.3)]

setdata :: [Int]
setdata = [1,2,3,4,1,2,6,1,4367,832,23,56]

treedata :: Tree Double
treedata = Node 1 [Node 2 [], Node 5 [], Node 6 [Node 7 [], Node 8.9 []]]

textdata :: String
textdata = "Some text! Hello world!"

bytedata :: [Word8]
bytedata = map fromIntegral setdata

bigByteString :: ByteString.ByteString
bigByteString = ByteString.pack $ replicate 16384 97 -- 'a'

bigLazyByteString :: ByteString.Lazy.ByteString
bigLazyByteString = ByteString.Lazy.pack $ replicate 16384 98 -- 'b'

nonEmptyNatural :: NonEmpty Natural
nonEmptyNatural = 0 :| [1, 2, 3]

natural1 :: Natural
natural1 = 1