Re: old easter egg

2000-12-02 Thread 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


___
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell

old easter egg

2000-12-01 Thread Ronald Kuwawi 

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"


:-)
Ronald

___
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell

Re: old easter egg

2000-12-01 Thread Zhanyong Wan 


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"

or

hash "HASKELL%98"

:-)

-- Zhanyong Wan

___
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell

Re: old easter egg

2000-12-01 Thread Jon Fairbairn 

On Fri, 1 Dec 2000, Zhanyong Wan wrote:

 
 Ronald Kuwawi wrote:
  
  open text editor, type
  hash :: [Char] - Int
  hash = (foldl (+) 0) . (map ord)

 hash "HASKELL%98"


hash "Haskell Ninety Eight !!" 

surely?
-- 
Jón Fairbairn [EMAIL PROTECTED]


___
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell

Re: old easter egg

2000-12-01 Thread Matthias Kilian 

On Sat, 2 Dec 2000, Jon Fairbairn wrote:

  hash "HASKELL%98"


 hash "Haskell Ninety Eight !!"

Here's the who;e truth:

hash "Turing!"

Kili

-- 
Nunja! Wenn man erst einmal anfängt zu denken, dann ist es wie
eine Sucht. Man kommt nicht mehr los davon.
[WoKo in dag°, 28.11.2000]


___
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell