facets 2.4.5 → 2.5.0

data/demo/bench/bench_load.rb

@@ -1,56 +0,0 @@
-require 'benchmark'
-
-# Load check all libs.
-
-def test_load
-
-  while !File.directory?('lib/core/facets') do
-    Dir.chdir('..')
-  end
-
-  abort "Can't find project root." unless File.directory?('lib/core/facets')
-
-  @scripts = {}
-
-  Dir.chdir('lib/core') do
-    @scripts[:core] = Dir.glob('facets/*.rb')
-    @scripts[:core].uniq!
-  end
-
-  Dir.chdir('lib/lore') do
-    @scripts[:lore] = Dir.glob('facets/*.rb')
-    @scripts[:lore].uniq!
-  end
-
-  Dir.chdir('lib/more') do
-    @scripts[:more] = Dir.glob('facets/*.rb')
-    @scripts[:more].uniq!
-  end
-
-  $:.unshift('lib/core')
-  $:.unshift('lib/lore')
-  $:.unshift('lib/more')
-
-  $VERBOSE = nil
-
-  Benchmark.bm do |x|
-    x.report("core"){ require_scripts(:core) }
-    x.report("lore"){ require_scripts(:lore) }
-    x.report("more"){ require_scripts(:more) }
-  end
-end
-
-def require_scripts(key)
-  @scripts[key].each do |file|
-    begin
-      require file
-    rescue Exception => e
-      puts file
-      puts e.message
-    end
-  end
-end
-
-if $0 == __FILE__
-  test_load
-end

data/demo/bench/enumerable/bench_collect.rb

@@ -1,84 +0,0 @@
-require 'benchmark'
-
-module Enumerable
-
-  # group_by
-
-  def group_by_1(&block)
-    h = k = e = nil
-    r = Hash.new
-    each{|e| (r[yield(e)] ||= []) << e}
-    r
-  end
-
-  def group_by_2(&block)
-    r = Hash.new{ |h,k| h[k]=[] }
-    each{|e| r[yield(e)] << e}
-    r
-  end
-
-  # cluster_by
-
-  def cluster_by_1(&block)
-    group_by_1(&block).values  # No sorting.
-  end
-
-  def cluster_by_2(&block)
-    #partition_by_fast(&block).values.sort    # Sorted by value.
-    group_by_1(&block).sort.transpose.pop  # Sorted by key.
-  end
-
-  def cluster_by_3(&block)        # As defined by Facets.
-    h = {}
-    each{|e| (h[block[e]] ||= []) << e}
-    h.keys.sort!.map{|k| h[k]}        # Sorted by key.
-  end
-
-end
-
-#
-
-Benchmark.bmbm do |x|
-  n = 10
-  a = (0...10000).to_a + (0...10000).to_a
-  h = (0...10000).inject({}){|h, e| h[e] = e ; h}
-
-  # group_by
-
-  x.report("group_by_1") do
-    n.times do
-      a.group_by_1{|e| e % 10}
-      h.group_by_1{|k, v| v % 10}
-    end
-  end
-
-  x.report("group_by_2") do
-    n.times do
-      a.group_by_2{|e| e % 10}
-      h.group_by_2{|k, v| v % 10}
-    end
-  end
-
-  # cluster_by
-
-  x.report("cluster_by_1") do
-    n.times do
-      a.cluster_by_1{|e| e % 10}
-      h.cluster_by_1{|k, v| v % 10}
-    end
-  end
-
-  x.report("cluster_by_2") do
-    n.times do
-      a.cluster_by_2{|e| e % 10}
-      h.cluster_by_2{|k, v| v % 10}
-    end
-  end
-
-  x.report("cluster_by_3") do
-    n.times do
-      a.cluster_by_3{|e| e % 10}
-      h.cluster_by_3{|k, v| v % 10}
-    end
-  end
-end

data/demo/bench/enumerable/bench_count.rb

@@ -1,58 +0,0 @@
-require 'benchmark'
-
-module Enumerable
-
-  # duplicates
-
-  def duplicates_1
-    h1 = {}
-    h2 = {}
-    each {|i|
-      h2[i] = true if h1[i]
-      h1[i] = true
-    }
-    h2.keys
-  end
-
-  def duplicates_2
-    inject(Hash.new(0)){|h,v| h[v]+=1; h}.reject{|k,v| v==1}.keys
-  end
-
-  # uniq_by
-
-  def uniq_by_1 #:yield:
-    h = {}; inject([]) {|a,x| h[yield(x)] ||= a << x}
-  end
-
-  def uniq_by_2
-    inject({}) { |h,x| h[yield(x)] ||= x; h }.values
-  end
-
-end
-
-#
-
-Benchmark.bmbm do |x|
-  n = 10000
-  a = [1,1,2,3,4,4,5,6,7,7]
-
-  # duplicates
-
-  x.report("duplicates_1") do
-    n.times { a.duplicates_1 }
-  end
-
-  x.report("duplicates_2") do
-    n.times { a.duplicates_2 }
-  end
-
-  # uniq_by
-
-  x.report("uniq_by_1") do
-    n.times { a.uniq_by_1{ |x| x } }
-  end
-
-  x.report("uniq_by_2") do
-    n.times { a.uniq_by_2{ |x| x } }
-  end
-end

data/demo/bench/general/bench_calls.rb

@@ -1,74 +0,0 @@
-=begin
-
-Some speed comparisions between ways to call a method.
-
-=end
-
-require 'benchmark'
-
-$n = 50000
-
-# standard array
-
-def callme ; 1 ; end
-
-$m = self.class.instance_method(:callme)
-
-
-def call_normal
-  $n.times do
-    callme
-  end
-end
-
-def call_by_send_symbol
-  $n.times do
-    send(:callme)
-  end
-end
-
-def call_by_send_string
-  $n.times do
-    send("callme")
-  end
-end
-
-def call_by_eval
-  $n.times do
-    eval "callme"
-  end
-end
-
-def call_by_instance_eval
-  $n.times do
-    instance_eval { callme }
-  end
-end
-
-def call_by_bind
-  $n.times do
-    $m.bind(self).call
-  end
-end
-
-def call_inst_eval_send
-  $n.times do
-    $m.instance_eval { send(:callme) }
-  end
-end
-
-### --- bench ---
-
-puts "\nCURRENT"
-Benchmark.bm(15) do |b|
-  b.report("normal          :") { call_normal }
-  b.report("send_symbol     :") { call_by_send_symbol }
-  b.report("send_string     :") { call_by_send_string }
-  b.report("bind            :") { call_by_bind }
-  b.report("instance_eval   :") { call_by_instance_eval }
-  b.report("by_eval         :") { call_by_eval }
-  b.report("inst_eval_send  :") { call_inst_eval_send }
-end
-
-
-

data/demo/bench/general/bench_includes.rb

@@ -1,25 +0,0 @@
-
-$n = 100
-
-puts "Generating #{$n} cascading modules..."
-
-$m = []
-(1..$n).each { |i|
-  $m[i] = Module.new
-  $m[i].class_eval {
-    define_method( "_#{i}" ) { puts "Called method in module #{i}." }
-    include $m[i-1] if $m[i-1]
-  }
-}
-
-class ManyIncludes
-  include $m[$n]
-end
-
-mm = ManyIncludes.new
-mn = "_#{$n/2}"
-
-t0 = Time.now
-mm.send(mn)
-t1 = Time.now
-puts "Time to call a single method among #{$n} modules: #{(t1 - t0).to_f} seconds."

data/demo/bench/general/bench_methods.rb

@@ -1,17 +0,0 @@
-
-class ManyMethods
-
-  puts "Generating methods..."
-
-  (0..100000).each do |i|
-    define_method( "_#{i}" ) { puts "Called method #{i}." }
-  end
-
-end
-
-mm = ManyMethods.new
-
-n1 = Time.now
-mm._50000
-n2 = Time.now
-puts "Time to call a single method among 100000: #{(n2 - n1).to_f} seconds."

data/demo/bench/general/bench_pathname.rb

@@ -1,24 +0,0 @@
-
-  require 'benchmark'
-  #require 'pathname'
-  require 'mega/pathname'
-
-  $f1 = "a/b/c"
-  $f2 = "d/e/f"
-
-  $p1 = Pathname.new($f1)
-  $p2 = Pathname.new($f2)
-
-  def file_join
-    File.join( $f1 , $f2 )
-  end
-
-  def path_join
-    $p1 + $p2
-  end
-
-  n = 50000
-  Benchmark.bm(7) do |x|
-    x.report("path-join") { n.times do ; path_join ; end }
-    x.report("file-join") { n.times do ; file_join ; end }
-  end

data/demo/bench/general/bench_range.rb

@@ -1,64 +0,0 @@
-
-require 'benchmark'
-
-# member?
-
-$n = 50000
-
-def range_nan
-  $n.times { ('a'..'k').member?('f') }
-  $n.times { ('a'..'k').member?('r') }
-end
-
-def range_small
-  $n.times { (0..6).member?(3) }
-  $n.times { (0..6).member?(7) }
-end
-
-def range_med
-  $n.times { (0..1000).member?(500) }
-  $n.times { (0..1000).member?(1001) }
-end
-
-# index
-
-$a = [ 'x' ] * 100
-$m = 500000
-
-def range_index
-  i = 1
-  $m.times { $a[1..i]; i += 1 }
-end
-
-def length_index
-  i = 1
-  $m.times { $a[1,i]; i += 1 }
-end
-
-### --- bench ---
-
-puts "\nINDEXING"
-Benchmark.bm(15) do |b|
-  b.report("range_index:") { range_index }
-  b.report("length_index:") { length_index }
-end
-
-puts "\n\nNew vs. Old\n"
-
-puts "\nCURRENT"
-Benchmark.bm(15) do |b|
-  b.report("range_nan:") { range_nan }
-  b.report("range_samll:") { range_small }
-  b.report("range_med:") { range_med }
-end
-
-puts "\nNEW"
-require 'trix-dev/range/range'
-Benchmark.bm(15) do |b|
-  b.report("range_nan:") { range_nan }
-  b.report("range_samll:") { range_small }
-  b.report("range_med:") { range_med }
-end
-
-puts
-

data/demo/bench/general/bench_return.rb

@@ -1,56 +0,0 @@
-
-  require 'benchmark'
-
-  class Ret
-    def initialize(a,b,c,d,e)
-      @a = a
-      @b = b
-      @c = c
-      @d = d
-      @e = e
-    end
-  end
-
-  @preobj = Object.new
-  def @preobj.assign(a,b,c,d,e)
-    @a = a
-    @b = b
-    @c = c
-    @d = d
-    @e = e
-  end
-  
-  def return_list
-    return 1, 2, 3, 4, 5
-  end
-
-  def return_array
-    return [1, 2, 3, 4, 5]
-  end
-
-  def return_hash
-    return { 1 => 1, 2 => 2, 3 => 3, 4 => 4, 5 => 5 }
-  end
-
-  def return_object
-    return Ret.new(1, 2, 3, 4, 5)
-  end
-
-  def return_preobj
-    return @preobj.assign(1, 2, 3, 4, 5)
-  end
-
-  def return_globals
-    $a = 1; $b = 2; $c = 3; $d = 4; $e = 5
-  end
-
-  n = 50000
-  Benchmark.bm(7) do |x|
-    x.report("global") { n.times do ; return_globals ; end }
-    x.report("preobj") { n.times do ; return_preobj ; end }
-    x.report("object") { n.times do ; return_object ; end }
-    x.report("array:") { n.times do ; return_array ; end }
-    x.report("hash:")  { n.times do ; return_hash ; end }
-    x.report("list:")  { n.times do ; return_list ; end }
-  end
-