old easter egg

[Ashley Yakeley]

At 2000-12-01 13:08, Ronald Kuwawi wrote:

>open text editor, type
>hash :: [Char] -> Int
>hash = (foldl (+) 0) . (map ord)
>
>save as hash.hs
>
>load script, type:
>hash "MSDOS 6.000"
>
>or 
>
>hash "SYSTEM 7.0"

It's not really an easter egg, is it? It's more a modern form of 
numerology. I was hoping to see the hugs environment show me a little 
dancing bunny animation or something.

letter c | ord c <= 64 = 0
letter c | ord c <= 90 = ord c - 64
letter c | ord c <= 96 = 0
letter c | ord c <= 122 = ord c - 96
letter c | otherwise = 0

renum n | n == 0 = 0
renum n | otherwise = (mod ((n - 1) * 19) 26) + 1

engql c = renum (letter c)

engq = (foldl (+) 0) . (map engql)


-- 
Ashley Yakeley, Seattle WA