Poor man's ASCII table

If you don't have your ASCII table at hand:

 (0..16).each do |i|
   vals = (i*8 .. i*8 + 7)
   puts (i*8).to_s + " " + vals.map {|i| i.chr}.join(" ") + "\n"
 end

List comprehensions in Haskell

List comprehensions in Haskell sind schon verdammt praktisch:

[(i,j,k) |i <- [1..10], j <- [1..10], k <- [1..10], i*i + j*j = k*k]
 liefert alle Tripel a,b,c, für die

  a² + b² = c²

gilt