praxis

Various programming exercises.
git clone git://git.jtobin.io/praxis.git
Log | Files | Refs

Hash.hs (2052B)

      1 {-# OPTIONS_GHC -Wall #-}
      2 {-# LANGUAGE ViewPatterns #-}
      3 
      4 import Data.Char as C
      5 import Data.List as L (foldl')
      6 import Data.Monoid ((<>))
      7 import qualified Data.Map.Strict as MS
      8 
      9 ptable :: MS.Map Int Int
     10 ptable = MS.fromList $
     11   zip [0..255]
     12     [ 1, 87, 49, 12, 176, 178, 102, 166, 121, 193, 6, 84, 249, 230, 44, 163
     13     , 14, 197, 213, 181, 161, 85, 218, 80, 64, 239, 24, 226, 236, 142, 38, 200
     14     , 110, 177, 104, 103, 141, 253, 255, 50, 77, 101, 81, 18, 45, 96, 31, 222
     15     , 25, 107, 190, 70, 86, 237, 240, 34, 72, 242, 20, 214, 244, 227, 149, 235
     16     , 97, 234, 57, 22, 60, 250, 82, 175, 208, 5, 127, 199, 111, 62, 135, 248
     17     , 174, 169, 211, 58, 66, 154, 106, 195, 245, 171, 17, 187, 182, 179, 0, 243
     18     , 132, 56, 148, 75, 128, 133, 158, 100, 130, 126, 91, 13, 153, 246, 216, 219
     19     , 119, 68, 223, 78, 83, 88, 201, 99, 122, 11, 92, 32, 136, 114, 52, 10
     20     , 138, 30, 48, 183, 156, 35, 61, 26, 143, 74, 251, 94, 129, 162, 63, 152
     21     , 170, 7, 115, 167, 241, 206, 3, 150, 55, 59, 151, 220, 90, 53, 23, 131
     22     , 125, 173, 15, 238, 79, 95, 89, 16, 105, 137, 225, 224, 217, 160, 37, 123
     23     , 118, 73, 2, 157, 46, 116, 9, 145, 134, 228, 207, 212, 202, 215, 69, 229
     24     , 27, 188, 67, 124, 168, 252, 42, 4, 29, 108, 21, 247, 19, 205, 39, 203
     25     , 233, 40, 186, 147, 198, 192, 155, 33, 164, 191, 98, 204, 165, 180, 117, 76
     26     , 140, 36, 210, 172, 41, 54, 159, 8, 185, 232, 113, 196, 231, 47, 146, 120
     27     , 51, 65, 28, 144, 254, 221, 93, 189, 194, 139, 112, 43, 71, 109, 184, 209
     28     ]
     29 
     30 hash8 :: String -> String
     31 hash8 (fmap C.ord -> bytes) = show (L.foldl' alg 0 bytes) where
     32   alg acc byte =
     33     let key = (acc + byte) `mod` 256
     34     in  case MS.lookup key ptable of
     35           Nothing  -> error "hash8: missing key"
     36           Just val -> val
     37 
     38 hash16 :: String -> String
     39 hash16 input = hash8 input <> hash8 modified where
     40   modified = fmap C.chr mbytes
     41   mbytes   = case fmap C.ord input of
     42     []    -> []
     43     (h:t) -> (h + 1) `mod` 256 : t
     44 
     45 main :: IO ()
     46 main = do
     47   print (hash8 "Programming Praxis")
     48   print (hash16 "Programming Praxis")
     49