<div style="text-align: left;">I have recently started learning haskell, and was trying to write a code for this problem <a href="http://www.spoj.pl/problems/KAMIL">http://www.spoj.pl/problems/KAMIL</a> in haskell. The aim is to write a shortest possible code for the given task. I have previously solved this in c,c++,perl,python.My best was 57 characters using perl. So here&#39;s my code in HASKELL:<br>

<br>main = interact $ unlines. map (show.foldl (\a x-&gt; if null $ filter (==x) &quot;TDLF&quot; then a else a+a) 1) .lines<br><br>It is 107 characters [ non white space and newline ]. I was interested in knowing how i could further optimize the size of this code. <br>

<br><br>Thanks in advance.<br><br clear="all"></div><br>-- <br>Thanks and regards<br>Rizwan A Hudda<br><a href="http://sites.google.com/site/rizwanhudda">http://sites.google.com/site/rizwanhudda</a><br><br><br><br>