[(1..6),(4..6),(7..9)].comprehension { |a, b, c| a + b + c if a % 2 == 0 }
[a + b | a <- ['n','p'..'t'], b <- %w[a i u e o]]
Just to be clear, I am not the original author. I was impressed with it myself. :)