[B! benchmark] joan9ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

joan9 id:joan9

benchmarkã«é–¢ã™ã‚‹joan9ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (5)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã®é€Ÿåº¦ã¨ã‚¢ãƒ—ãƒªã‚±ãƒ¼ã‚·ãƒ§ãƒ³ã®é€Ÿåº¦ãŒã„ã‹ã«é–¢ä¿‚ãªã„ã‹ãŒã‚ã‹ã‚‹ã‚°ãƒ©ãƒ• - kãªã‚“ã¨ã‹ã®æ—¥è¨˜
ã¾ãšã¯æ¬¡ã®è¡¨ã‚’ã”è¦§ã‚ã‚Œã€‚ã“ã‚Œã¯ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã¨ã—ã¦æœ‰åãª Computer Language Benchmarks Game ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯çµæžœã€‚ä¸Šã«ã„ãã»ã©é«˜é€Ÿã§ã€ä¸‹ã«è¡Œãã»ã©é…ã„è¨€èªžã«ãªã‚‹ã€‚ ã“ã‚Œã‚’è¦‹ã‚Œã°ã€æœ€é€Ÿãªè¨€èªžã¯ C/C++ ã§ã‚ã‚Šã€Java ã‚„ Haskell ã‚„ OCaml ã¨ã„ã£ãŸé™çš„ãªè¨€èªžã¯è»’ä¸¦ã¿ä¸Šä½ã«ç™»å ´ã™ã‚‹ã€‚ã“ã‚Œã«å¯¾ã—ã€Ruby ã‚„ Python ã‚„ PHP ã¨ã„ã£ãŸã‚¹ã‚¯ãƒªãƒ—ãƒˆã¯å…¨éƒ¨ä¸‹ã®ã»ã† (ã¤ã¾ã‚Šé…ã„)ã€‚ãã®é€Ÿåº¦å·®ã¯éžå¸¸ã«å¤§ããã€ã“ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã§è¦‹ã‚‹ã¨ Python3 ã‚„ Ruby1.9 ã¯ C/C++ ã®ç´„50å€ã‹ã‚‰60å€é…ãã€Perl ã¯ç´„90å€ã€PHP ã«ã„ãŸã£ã¦ã¯ç´„130å€é…ã„ã“ã¨ã«ãªã‚‹ã€‚ (ã¡ãªã¿ã« JIT ã¤ãã® Lua ãŒé©šç•°çš„ã«é«˜é€Ÿãªã®ãŒç›®ã‚’ã²ãã€‚ã“ã®çµæžœãŒæœ¬å½“ã ã¨ã—ãŸã‚‰ã€è¨€èªžã®é€Ÿåº¦ã«å¤§ããé–¢ä¿‚ã™ã‚‹ã®ã¯å‹•çš„ã‹é™çš„ã‹ã§ã¯ãªãã€ã©ã‚Œ
joan9 2010/05/05
language

benchmark
ãƒªãƒ³ã‚¯
ï¼»MySQLã‚¦ã‚©ãƒƒãƒï¼½ç¬¬42å›ž æ€§èƒ½æ¤œæŸ»ãƒ„ãƒ¼ãƒ«mysqlslapã¨MySQLã‚³ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹å ±å‘Š
ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¯ï¼Œå¤§é‡ã®ãƒ‡ãƒ¼ã‚¿ã‚’ã„ã‹ã«é«˜é€Ÿã«å‡¦ç†ã§ãã‚‹ã‹ãŒè©•ä¾¡ã®ãƒã‚¤ãƒ³ãƒˆã ã€‚MySQLã¯ï¼Œè»½é‡ã§é«˜é€Ÿãªãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã¨ã—ã¦åºƒãæ™®åŠã—ã¦ã„ã‚‹ã€‚ã—ã‹ã—ï¼ŒMySQLã¨ã„ãˆã©ã‚‚ã™ã¹ã¦ã®ã‚·ãƒãƒ¥ã‚¨ãƒ¼ã‚·ãƒ§ãƒ³ã§æœ€é©ãªãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ã‚’ç™ºæ®ã§ãã‚‹ã‚ã‘ã§ã¯ãªã„ã€‚ãã®ãŸã‚ã«ãƒãƒ¥ãƒ¼ãƒ‹ãƒ³ã‚°ã‚’è¡Œã†ã‚ã‘ã ãŒï¼Œã¯ãŸã—ã¦ä½•ã‚’åŸºæº–ã«ãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ã®è‰¯ã—æ‚ªã—ã‚’åˆ¤æ–ã™ã‚Œã°ã‚ˆã„ã ã‚ã†ã‹ã€‚åˆ¤æ–ã™ã‚‹ã«ã¯ï¼Œæ¨™æº–çš„ãªãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ãƒ„ãƒ¼ãƒ«ãŒå¿…è¦ã ã€‚MySQL5.1.4ã‹ã‚‰ï¼Œãƒ‘ãƒ•ã‚©ãƒ¼ãƒžãƒ³ã‚¹ãƒ»ãƒ†ã‚¹ãƒˆã‚’å®Ÿæ–½ã™ã‚‹å¤–éƒ¨ã‚³ãƒžãƒ³ãƒ‰mysqlslapãŒå®Ÿè£…ã•ã‚ŒãŸã€‚ä»Šå›žã¯ï¼Œã“ã®mysqlslapã®ä½¿ç”¨æ–¹æ³•ã‚’ç´¹ä»‹ã™ã‚‹ã€‚ ã¾ãŸ10æœˆ30æ—¥ã¨31æ—¥ï¼Œæ—¥æœ¬ã§2å›žç›®ã¨ãªã‚‹ã€ŒMySQLãƒ¦ãƒ¼ã‚¶ãƒ¼ã‚³ãƒ³ãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹2008ã€ãŒé–‹å‚¬ã•ã‚ŒãŸã€‚å‚åŠ ã§ããªã‹ã£ãŸæ–¹ã®ãŸã‚ã«ã‚¨ãƒƒã‚»ãƒ³ã‚¹ã‚’ãŠä¼ãˆã™ã‚‹ã€‚ mysqlslapã®æ¦‚è¦ ã“ã‚Œã¾ã§ï¼ŒMySQLã§ã¯Perlãƒ™ãƒ¼ã‚¹ã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ãƒ»ãƒ„ãƒ¼ãƒ«ã¨ã—ã¦My
joan9 2009/01/28
mysql

benchmark
ãƒªãƒ³ã‚¯
wakaponã•ã‚“ã®è¶…â˜†ç—›ã€…ã—ã„Perlå‚™å¿˜å¸³: Benchmark.pmã‚’ã¤ã‹ã£ã¦ã¿ã‚‹
ãã†ã„ãˆã°Perlã‚’è§¦ã‚Šå§‹ã‚ã¦ã‹ã‚‰ä¸€å›žã‚‚ã¾ã¨ã‚‚ã«ä½¿ã£ãŸã“ã¨ãŒç„¡ã‹ã£ãŸï¼ï¼ï¼‘ï¼Žè‡ªåˆ†ã¯ã‚ã¾ã‚Šã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã‹ãªã„ï¼Œæ›¸ã‘ãªã„ã®ã§ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‚’æ›¸ã„ã¦ãªã‹ã£ãŸã¨ã„ã†ã®ãŒå®Ÿéš›ã®ã¨ã“ã‚ï¼Žã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã„ã¦æ€§èƒ½ã‚’æ¸¬ã‚‰ãªã„ã®ã¯ã•ã™ãŒã«ãã‚ãã‚ã¾ãšã„ã¨æ€ã£ãŸã®ã§ï¼Œä»Šå›žã¯ã‚³ãƒ¼ãƒ‰ã®CPUæ¶ˆè²»æ™‚é–“ã‚’æ¸¬å®šã™ã‚‹Benchmark.pmã‚’ä½¿ã£ã¦ã¿ãŸï¼Žä»¥ä¸‹ï¼ŒBenchmark.pmã®PODã«ãã£ã¦è‡ªåˆ†ã®è¨€è‘‰ã§ã‚ã‚‚ã‚ã‚‚ï¼Žã¾ãšã¯Benchmark.pmã®åŸºç¤Žã¨ãªã‚‹timethisã‚’è¦‹ã¦ã„ãï¼Œæ ¹å¹¹ã«ã‚ã‚‹timeitã‚’æŽ¢ã£ã¦ã¿ã‚‹ï¼Žç¶šã„ã¦ï¼Œè¤‡æ•°ã®ã‚³ãƒ¼ãƒ‰ã‚’å®Ÿè¡Œã™ã‚‹timetheseã‚’è¦‹ãŸå¾Œï¼Œãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯çµæžœã‚’ã‚ˆã‚Šåˆ†ã‹ã‚Šã‚„ã™ãã™ã‚‹ãŸã‚ã®ï¼Œcmptheseã«ã¤ã„ã¦è¦‹ã¦ã„ãï¼Žã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³timethisã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³timethisã¯ï¼Œå®Ÿè¡Œå›žæ•°ã¾ãŸã¯å®Ÿè¡Œæ™‚é–“ã‚’æŒ‡å®šã—ï¼Œ1ã¤ã®ã‚³ãƒ¼ãƒ‰ã«ã¤ã„ã¦ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ãƒ—ãƒã‚°ãƒ©ãƒ ã§æ¶ˆè²»ã—ãŸCPUæ™‚é–“ã‚’æ¸¬å®šã™ã‚‹ï¼Žä»¥ä¸‹ï¼Œã‚µ
joan9 2008/12/23
perl

benchmark
ãƒªãƒ³ã‚¯
YappoLogs: Perlã§æ•°æœ‰ã‚‹$selfã‚’å–ã‚‹æ‰‹æ³•ã‚’ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯å–ã£ãŸ
Perlã§æ•°æœ‰ã‚‹$selfã‚’å–ã‚‹æ‰‹æ³•ã‚’ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯å–ã£ãŸ Perlã§OOãªã‚³ãƒ¼ãƒ‰æ›¸ãæ™‚ã®ã‚³ãƒ³ãƒ†ã‚ã‚¹ãƒˆã‚’å–ã‚‹æ–¹æ³•ã¯è‰²ã€…ã‚ã‚Šã¾ã™ã€æœ€è¿‘audreyãŒselfvarsã‚’ãƒªãƒªãƒ¼ã‚¹ã—ãŸã®ã§ã€gugodã®self.pmã¨ingyã®Spiffyãã—ã¦ã€æ—¢å˜ã®my $self = shift;ã‚„shift->ã‚„$_[0]->ã§$selfã‚’å–ã‚‹æ–¹æ³•ãã‚Œãžã‚Œã®ãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‚’å–ã£ã¦ã¿ã¾ã—ãŸã€‚ ãƒ†ã‚¹ãƒˆã‚³ãƒ¼ãƒ‰ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã¯ã€ãã‚Œãžã‚Œã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã®ä½œè€…åã‹ã‚‰å–ã‚Šã€æ—¢å˜ã®æ‰‹æ³•ã¯YAPC::Asiaã§ãƒ—ãƒ¬ã‚¼ãƒ³ã—ãŸäº‹ã®ã‚ã‚‹æ—¥æœ¬ã‚’ä»£è¡¨ã™ã‚‹Perlãªä¼æ¥ã®CTOã‹ã‚‰ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«åã‚’å–ã‚‰ã›ã¦ã„ãŸã ãã¾ã—ãŸã€‚ ã‚³ãƒ¼ãƒ‰ã¯ä»¥ä¸‹ã®é€šã‚Šã§ã™ã€‚ package Audrey; use strict; use warnings; use selfvars; sub new { bless { count => 0 }, shift } sub
joan9 2008/12/04
ã„ã‚ã‚“ãªæ›¸ãæ–¹ã‚ã‚‹ã®ãã€‚Bataraï¼ˆã•ã‚“ã®æ›¸ãæ–¹ãªã®ï¼Ÿï¼‰ã¨ã‹çŸ¥ã‚‰ãªã‹ã£ãŸã‚ˆã€‚

perl

oo

shift

benchmark
ãƒªãƒ³ã‚¯
Perl æœ€é€Ÿä¼èª¬k - Yokohama.pm Teck Talk #1
ã¨è¨€ã†äº‹ã§ã€é€£çµã™ã‚‹å¤‰æ•°ãŒå¤šããªã‚‹ã¨é€”ä¸ã‹ã‚‰ join ãŒæœ€é€Ÿã«ãªã‚‹ã€‚"$a$b$c" ã®ã‚ˆã†ãªå½¢å¼ã¯æœ€é©åŒ–ã•ã‚Œã¦ $a . $b . $c ã¨ãªã‚‹ã‚ˆã†ã ãŒã‚„ã¯ã‚Šæ•°ã«é–¢ã‚ã‚‰ãšæœ€ã‚‚é…ã„ã®ã§ä½¿ã‚ãªã„ã€‚ ç¶šãƒ»ã‚¹ã‚«ãƒ©ãƒ¼ã®æ–‡å—é€£çµ http://www.ibm.com/developerworks/jp/linux/library/l-optperl/ ã‚ˆã‚Š ä»–ã«ã‚‚è‰²ã€…æ‹¡å¼µã—ã¦ã¿ãŸã€‚ #!/usr/bin/perl use strict; use warnings; use Benchmark qw(:all); my $limit = 100; my $sets = { concat1 => sub { my $string = 'abcdefghijklmnopqrstuvwxyz'; my $concat = ''; for (1..$limit) { $concat .= $string;
joan9 2008/08/28
perl

benchmark
ãƒªãƒ³ã‚¯
1