Fun inline list comprehension in Haskell

gistfile1.hs

[x | x <- (zip [1..] ['A'..'Z']), even (fst x)]

In ruby:

((1..('A'..'Z').to_a.size).zip ('A'..'Z').to_a).select { |(x,y)| x.even? }

Tightened up ruby version:

xs = ('A'..'Z'); (1..xs.count).zip(xs).select { |i,x| i.even? }

Alternative approach:

('A'..'Z').each_with_index.map { |x,i| [i+1,x] if (i+1).even? }.compact

Neither is quite as elegant as the Haskell, of course.

Thanks John!