[Haskell-beginners] shortening code

[Michael Mossey]

rizwan hudda wrote:
> I have recently started learning haskell, and was trying to write a code 
> for this problem http://www.spoj.pl/problems/KAMIL 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's my code in HASKELL:
> 
> main = interact $ unlines. map (show.foldl (\a x-> if null $ filter 
> (==x) "TDLF" then a else a+a) 1) .lines
> 
> It is 107 characters [ non white space and newline ]. I was interested 
> in knowing how i could further optimize the size of this code.

This kind of contest is fun, but I can't help thinking I hope you are 
learning Haskell to appreciate the things that functional programming is 
good at. Real-world Haskell is often more concise than other languages 
because Haskell has mechanisms for eliminating unnecessary and redundant 
code, but Haskell's strength is not winning "shortest program" contests.

Mike