Re: [Haskell-cafe] A Modest Records Proposal

On Mon, Apr 2, 2012 at 5:41 AM, Michael Snoyman wrote:

On Mon, Apr 2, 2012 at 3:38 PM, Alp Mestanogullari wrote:

...

Lesson learned: for next year, write a Haskell program that tells if a given -cafe thread or reddit discussion is a April Fool's joke or not.

import Data.Time

main = do    now <- getCurrentTime    let (_, month, day) = toGregorian $ utctDay now    putStrLn $        if month == 4 && day == 1            then "It's a joke"            else "It's real"

My strategy next year will be to not read any email on the 1st. I'll just wait until the 2nd to read it all. Foolproof!