ruby-list

ごとけんです

In message "[ruby-list:19997] Re: about for-in"
    on 00/01/01, Tomoyuki Kosimizu <greentea@fa2.so-net.ne.jp> writes:

>t1 = Time.now
[...]
>t2 = Time.now
>
>puts(t2 - t1)

こおいう測定は僕もよくやるので、時間の計測を簡便に行うための
ブツを書いてみました。

% cat hoge.rb
  require "benchmark"
  include Benchmark

  n = ARGV[0].to_i.nonzero? || 50000
  benchmark("       " + CAPTION, 
	    "for:   " + FMTSTR, 
	    "times: " + FMTSTR,
	    "upto:  " + FMTSTR) do
    [
      measure{for i in 1..n; a = "1"; end},  # Benchmark::measure
      measure{n.times do   ; a = "1"; end},
      measure{1.upto(n) do ; a = "1"; end}
    ]
  end
% ruby hoge.rb
             user     system      total        real
for:     1.016667   0.000000   1.016667 (  0.504279)
times:   1.433333   0.000000   1.433333 (  0.680590)
upto:    1.466667   0.000000   1.466667 (  0.688725)
%

なお、benchmark の引数は省略可能です。改良は大歓迎 :-)

てなわけで、今年もよろしくなのです。

-- gotoken

Attachments (1)

benchmark.rb (3.14 KB, text/x-ruby)

# benchmark.rb
#
# chagelog
#   01 Jan 2000: first release (gotoken@notwork.org)

module Benchmark
  def realtime(&blk)
    Benchmark::measure(&blk).real
  end

  def benchmark(caption = "", *fmt, &blk)
    raise ArgumentError, "no block" unless iterator?
    report(caption, *fmt, &blk)
  end

  def measure
    t0, r0 = Time.times, Time.now
    yield
    t1, r1 = Time.times, Time.now
    Benchmark::Tms.new(t1.utime  - t0.utime, 
		       t1.stime  - t0.stime, 
		       t1.cutime - t0.cutime, 
		       t1.cstime - t0.cstime, 
		       r1.to_f - r0.to_f)
  end

  def report(*args)
    if iterator?
      print args.shift
      tms = yield
      tms.each{|t|
	print t.format(fmt = args.shift)
      }
    else
      print Benchmark::CAPTION
      args.each{|t|
	print t
      }
    end
  end

  module_function :measure, :realtime, :report

  class Tms
    CAPTION = "      user     system      total        real\n"
    FMTSTR = "%10.6u %10.6y %10.6t %10.6r\n"

    attr_reader :utime, :stime, :cutime, :cstime, :real, :total

    def initialize(u = 0.0, s = 0.0, cu = 0.0, cs = 0.0, real = 0.0)
      @utime, @stime, @cutime, @cstime, @real = u, s, cu, cs, real
      @total = @utime + @stime + @cutime + @cstime
    end

    def add(&blk)
      self + Benchmark::measure(&blk) 
    end

    def add!
      t = Benchmark::measure(&blk) 
      @utime  = utime + t.utime
      @stime  = stime + t.stime
      @cutime = cutime + t.cutime
      @cstime = cstime + t.cstime
      @real   = real + t.real
      self
    end

    def +(x); memberwise(:+, x) end
    def -(x); memberwise(:-, x) end
    def *(x); memberwise(:*, x) end
    def /(x); memberwise(:/, x) end

    def format(arg0 = nil,*args)
      fmtstr = arg0 ? arg0 : Benchmark::Tms::FMTSTR.dup
      fmtstr.gsub!(/(%[-+\.\d]*)u/){"#{$1}f" % utime}
      fmtstr.gsub!(/(%[-+\.\d]*)y/){"#{$1}f" % stime}
      fmtstr.gsub!(/(%[-+\.\d]*)U/){"#{$1}f" % cutime}
      fmtstr.gsub!(/(%[-+\.\d]*)Y/){"#{$1}f" % cstime}
      fmtstr.gsub!(/(%[-+\.\d]*)t/){"#{$1}f" % total}
      fmtstr.gsub!(/(%[-+\.\d]*)r/){"(#{$1}f)" % real}
      arg0 ? Kernel::format(fmtstr, *args) : fmtstr
    end

    def to_s
      format
    end

    def to_a
      [@utime, @stime, @cutime, @cstime, @real]
    end

    protected
    def memberwise(op, x)
      case x
      when Benchmark::Tms
	Benchmark::Tms.new(utime.__send__(op, x.utime),
			   stime.__send__(op, x.stime),
			   cutime.__send__(op, x.cutime),
			   cstime.__send__(op, x.cstime),
			   real.__send__(op, x.real)
			   )
      else
	Benchmark::Tms.new(utime.__send__(op, x),
			   stime.__send__(op, x),
			   cutime.__send__(op, x),
			   cstime.__send__(op, x),
			   real.__send__(op, x)
			   )
      end
    end
  end

  CAPTION = Benchmark::Tms::CAPTION
  FMTSTR = Benchmark::Tms::FMTSTR
end

if __FILE__ == $0
  include Benchmark

  n = ARGV[0].to_i.nonzero? || 50000
  puts %Q([#{n} times iterations of `a = "1"'])
  benchmark("       " + CAPTION, 
	    "for:   " + FMTSTR, 
	    "times: " + FMTSTR,
	    "upto:  " + FMTSTR) do
    [
      measure{for i in 1..n; a = "1"; end},  # Benchmark::measure
      measure{n.times do   ; a = "1"; end},
      measure{1.upto(n) do ; a = "1"; end}
    ]
  end
end

Thread

Prev Next

In This Thread

Prev Next

[#19998] benchmark.rb — gotoken@... (GOTO Kentaro)

[#20003] REQ: String#gsub — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#20018] ruby-1.4.3.tar.gz の日付 — Tadashige Morii <m_tada@...>

[#20028] xmltree — "Masatoshi SEKI" <m_seki@...>

[#20035] DocBook 4.0: ClassSynopsis — Yasushi Shoji <yashi@...>

[#20041] Re: xmltree — "Masatoshi SEKI" <m_seki@...>

[#20046] 1/0 — "Shigeo Kobayashi" <shigeo@...>

[#20053] == === case — "Shigeo Kobayashi" <shigeo@...>

[#20057] mirror.rb in Ruby Book — Takashi SATO <turmite@...>

[#20059] 改行がリダイレクトされない ruby1.4.3cygwin? — 中村暁史 Nakamura Akifumi <BXQ04723@...>

[#20077] Range expansion? — Akinori MUSHA aka knu <knu@...>

[#20083] non-block IO with TCPSocket — dn <daisuke@...>

[#20087] Re: a instance of Struct subclass on the block parameter (Re: Range expansion?) — Kazuhiro Yoshida <moriq.kazuhiro@...>

[#20097] Re: [REQ] ruby-math (Re: coerce) — Toyofuku <toyofuku@...>

[#20118] media watch 2000.01.08 — Noritsugu Nakamura <nnakamur@...>

[#20120] タブの出力について — 鮎川夏生 <natuki@...>

[#20123] TMail and Racc and RDtool — Masaki Suketa<CQN02273@...>

[#20131] String to Time — Yukihiko Eda <yuki-e@...>

[#20133] おききしたーいでーす — akimaru <akimaru@...>

[#20145] BUG? Parse Error and and — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#20150] Ruby BUG ?? — Sakae Kobayashi <sakae@...>

[#20162] proxy ftp — "Kikutani, Makoto" <kikutani@...>

[#20174] Ruby-book erratum — "K.Kodama" <kdm@...>

[#20175] class Polynomial — "K.Kodama" <kdm@...>

[#20176] Re: Complex#divmod — Masato KIYAMA <masato@...>

[#20178] [Gtk 0.22] Gtk::DrawingArea cannot pack in Gtk::VBox — h-isikaw@...

[#20184] [book] 付録 A — Kazuhiro Nishiyama <nishiyama@...1.tiki.ne.jp>

[#20185] [book] 8,9,10 章 — Kazuhiro Nishiyama <nishiyama@...1.tiki.ne.jp>

[#20186] [book] — Kazuhiro Nishiyama <nishiyama@...1.tiki.ne.jp>

[#20187] Hash#index, Hash#indexes — Kazuhiro Nishiyama <nishiyama@...1.tiki.ne.jp>

[#20188] slashdot - The 2000 Beanies — Yasushi Shoji <yashi@...>

[#20191] thread について — Yasushi Abe (阿部靖司) <yasushi@...>

[#20192] timeout.rb の Thread.abort_on_exception = true — Matsuo Hisanori <hisanori@...>

[#20203] Gtk::ItemFactory の代替品を作ってみました — dellin <ogu@...>

[#20210] Ruby 強調表示定義ファイル for 秀丸 — Ayanosuke <aya@...>

[#20211] %Ruby — Shugo Maeda <shugo@...>

[#20215] racc debianized — akira yamada / やまだあきら <akira@...>

[#20219] catching exceptions in rb_eval_string() — OZAWA Sakuro <crouton@...>

[#20221] while TRUE と loop の違いを教えてください — Sakae Kobayashi <sakae@...>

[#20235] simple-chat-server.rb don't work on lynx — M_HANA <M_HANA@...0.sapporo-soft.ac.jp>

[#20237] Ruby/Tk multi interpreter — nagai@...

[#20240] eRuby banner — OZAWA Sakuro <crouton@...>

[#20243] (rd2) nl in Japanese chars — gotoken@... (GOTO Kentaro)

[#20246] Q: Singleton Class and Singleton Method — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[#20249] FTP.open err for Windows95 — "Y Kataoka" <kataoka@...>

[#20274] RAA script — akira yamada / やまだあきら <akira@...>

[#20279] [ 雑談 ] メーリングリスト抜けますです〜 — Atsuko Yoshida <atsuko@...>

[#20284] ruby と論文と知名度 — Noritsugu Nakamura <nnakamur@...>

[#20300] net/http.rb — TAKAHASHI Masayoshi <maki@...>

[#20301] notify_observers in observer.rb — Matsuo Hisanori <hisanori@...>

[#20310] ワイルドカード有りのファイルの存在を調べたいのですが — 関口久之 <sekiguci@...>

[#20318] gtk: how to copy clist item into clipboard. — OZAWA Sakuro <crouton@...>

[#20320] TMail is too strict? — Shugo Maeda <shugo@...>

[#20337] — Norihito Shinzan <kabbalah@...>

[#20339] Telnet (login failed) — Kentaro Inagaki / 稲垣 健太郎 <inagaki@...>

[#20341] ftp.ruby-lang.org ([book][CD-ROM]README.txt) — SUGIHARA Hiroshi <maili31s@...>

[#20342] How to build ruby(current) with cygwin — KORIYAMA Naohiro <kory@...2.so-net.ne.jp>

[#20344] E-mail アドレスの確認・ DNS の MX など — ogino@...

[#20348] Ruby/LAPACK working group — gotoken@... (GOTO Kentaro)

[#20349] パスワードの crypt とチェック — Ayanosuke <aya@...>

[#20350] [PATCH] Ruby/Tk — Koji Arai <JCA02266@...>

[#20355] personal web server(win98) で ruby の cgi を実行したい — Hiroshi Saito <HiroshiSaito@...>

[#20363] media watch 2000.01.24 — Noritsugu Nakamura <nnakamur@...>

[#20369] divmod() — Yasushi Abe <yasushi@...>

[#20385] Re: class Polynomial — Toyofuku <toyofuku@...>

[#20393] eRuby で掲示板作ってみました — Noriyuki Okamoto <okamoto@...>

[#20394] ruby-1.4.3 port to HPUX 11.00 — matz@... (Yukihiro Matsumoto)

[#20400] Ruby win Icon — たむら けんいち<ken-ichi.tamura@...>

[#20409] Ruby/Gtk のバージョンを取得したい — dellin <ogu@...>

[#20413] File::open() マニュアル — とみたまさひろ <tommy@...>

[#20414] 3 桁毎にカンマを入れる — 堀川 久 <vzw00011@...>

[#20433] クラスメソッド呼び出しの parse error — Yoshiki Wada <wada@...>

[#20438] cygwin 版 Ruby での BLT 利用について — otokita@...

[#20445] Anquete for Object Day 2000 — Tomoyuki Kosimizu <greentea@...2.so-net.ne.jp>

[ruby-list:19998] benchmark.rb

Attachments (1)

Thread

In This Thread

[#20339] Telnet (login failed) — Kentaro Inagaki / 稲垣健太郎 <inagaki@...>

[#20400] Ruby win Icon — たむら　けんいち<ken-ichi.tamura@...>

[#20414] 3 桁毎にカンマを入れる — 堀川　久 <vzw00011@...>