Self-descriptive numbers

gistfile1.rb

# Searches for self-descriptive numbers
# http://en.wikipedia.org/wiki/Self-descriptive_number 

module Enumerable
  def all_with_index?
    each_with_index{|e,i| return false unless yield(e,i)}
    true
  end
end
    
puts "Self-descriptive numbers"
(0..21212).each do |number|
  number_array=number.to_s.split(//).map(&:to_i)
  self_descriptive = number_array.all_with_index? do |v,i|
    number_array.count(i)==v
  end
  puts number.to_s if self_descriptive
end