ChibiHash-0.1.0.0: example/Main.hs

module Main (main) where

import ChibiHash (chibihash64)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as C8

main :: IO ()
main = do
    -- Example 1: Hash a simple string
    let text = "Hello, ChibiHash!"
    putStrLn $ "Input text: " ++ show text
    putStrLn $ "Hash (seed 0): " ++ show (chibihash64 (C8.pack text) 0)
    putStrLn $ "Hash (seed 42): " ++ show (chibihash64 (C8.pack text) 42)
    putStrLn ""

    -- Example 2: Hash some binary data
    let binary = BS.pack [1, 2, 3, 4, 5]
    putStrLn $ "Input bytes: " ++ show binary
    putStrLn $ "Hash (seed 0): " ++ show (chibihash64 binary 0)
    
    -- Example 3: Hash an empty string
    putStrLn $ "\nHash of empty string: " ++ show (chibihash64 BS.empty 0)