From: matz@... (Yukihiro Matsumoto)
Date: 2000-09-16T09:22:37+09:00
Subject: [ruby-talk:4931] Re: Perl 6 rumblings -- RFC 225 (v1) Data: Superpositions

Hi,

In message "[ruby-talk:4930] Perl 6 rumblings -- RFC 225 (v1) Data: Superpositions"
    on 00/09/16, Conrad Schneiker <schneik@austin.ibm.com> writes:

|>         if (any(@value) < 10) { ... }
|> 
|> or:
|> 
|>         die unless all(@tests)->($data);
|> 
|> ought to be available to all Perl users.

This can be easily accomplished by the method like

  module Enumerable
    def any
      self.each do |item|
        return true if yield(item)
      end
      return false
    end
    def all
      self.each do |item|
        return false unless yield(item)
      end
      return true
    end
  end

  if tests.all{|x| x < 10} then
    ...
  end

Pretty easy huh?

							matz.