On Mon, Apr 2, 2012 at 16:30, Evan Laforge <span dir="ltr">&lt;<a href="mailto:qdunkan@gmail.com">qdunkan@gmail.com</a>&gt;</span> wrote:<br><div class="im">&gt; On Mon, Apr 2, 2012 at 5:41 AM, Michael Snoyman &lt;<a href="mailto:michael@snoyman.com">michael@snoyman.com</a>&gt; wrote:<br>

&gt;&gt; On Mon, Apr 2, 2012 at 3:38 PM, Alp Mestanogullari &lt;<a href="mailto:alpmestan@gmail.com">alpmestan@gmail.com</a>&gt; wrote:<br>&gt;&gt;&gt; Lesson learned: for next year, write a Haskell program that tells if a given<br>
&gt;&gt;&gt; -cafe thread or reddit discussion is a April Fool&#39;s joke or not.<br>&gt;&gt;<br>&gt;&gt; import Data.Time<br>&gt;&gt;<br>&gt;&gt; main = do<br>
&gt;&gt;    now &lt;- getCurrentTime<br>&gt;&gt;    let (_, month, day) = toGregorian $ utctDay now<br>&gt;&gt;    putStrLn $<br>&gt;&gt;        if month == 4 &amp;&amp; day == 1<br>&gt;&gt;            then &quot;It&#39;s a joke&quot;<br>
&gt;&gt;            else &quot;It&#39;s real&quot;<br>
&gt;<br>
</div>&gt; My strategy next year will be to not read any email on the 1st.  I&#39;ll<br>&gt; just wait until the 2nd to read it all.  Foolproof!<br><br>Hmm, nope, still failed. I was following along until it got to HERP at which point I scrolled back up to see that it was sent on the 1st and then continued to read and LOL.<br>
<br clear="all">-R. Kyle Murphy<br>--<br>Curiosity was framed, Ignorance killed the cat.<br>