A simple problem solved in Haskell

gistfile1.hs

import Data.Maybe
 
lengths :: (Int -> Bool) -> [[a]] -> [Int]
lengths pred xs = mapMaybe lengthIfLong xs
                  where
                  lengthIfLong s = let n = length s
                                   in if pred n 
                                      then Just n 
                                      else Nothing
 
main =
  print $ lengths (3 <) ["hello", "k", "baby"]

@md2perpe: +1. IMO it's common enough a case to deserve an inclusion in Prelude.

By the way, what do you think about this solution?

main = print $ mapMaybe (mfilter (3 <) . Just . length) ["hello", "k", "baby"]

Nice. You rewrote my last solution using already defined functions.

Thus, justIf p = mfilter p . Just.

@md2perpe: We can go one step further, and make it point-free. :-)

justIf = (. Just) . mfilter

Oh... :-D

A question about markup...

How do you get the code blocks in your comments to be syntax colored?

@md2perpe: See "syntax highlighting" section here: http://github.github.com/github-flavored-markdown/.

Ah, I recognize that. My eyes have seen it, but my brain hasn't memorized it.
Testing:

justIf = (. Just) . mfilter

Updated my earlier posts to have syntax highlightning.