[Haskell-cafe] A Modest Records Proposal

[Evan Laforge]

On Mon, Apr 2, 2012 at 5:41 AM, Michael Snoyman <michael at snoyman.com> wrote:
> On Mon, Apr 2, 2012 at 3:38 PM, Alp Mestanogullari <alpmestan at gmail.com> 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!