[Haskell-cafe] A Modest Records Proposal

Evan Laforge qdunkan at gmail.com
Mon Apr 2 22:30:53 CEST 2012


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!



More information about the Glasgow-haskell-users mailing list