On Mon, Apr 2, 2012 at 3:38 PM, Alp Mestanogullari <alpmes...@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"
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
