* Merge YARV

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11439 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

22 files changed, 251 insertions, 0 deletions

diff --git a/benchmark/other-lang/ack.pl b/benchmark/other-lang/ack.pl
new file mode 100644
index 0000000000..8933c33ae5
--- /dev/null
+++ b/benchmark/other-lang/ack.pl
@@ -0,0 +1,11 @@
+use integer;

+

+sub Ack {

+    return $_[0] ? ($_[1] ? Ack($_[0]-1, Ack($_[0], $_[1]-1))

+		    : Ack($_[0]-1, 1))

+	: $_[1]+1;

+}

+

+my $NUM = 9;

+$NUM = 1 if ($NUM < 1);

+my $ack = Ack(3, $NUM);

diff --git a/benchmark/other-lang/ack.py b/benchmark/other-lang/ack.py
new file mode 100644
index 0000000000..971796f689
--- /dev/null
+++ b/benchmark/other-lang/ack.py
@@ -0,0 +1,16 @@
+import sys

+sys.setrecursionlimit(5000000)

+

+def Ack(M, N):

+    if (not M):

+        return( N + 1 )

+    if (not N):

+        return( Ack(M-1, 1) )

+    return( Ack(M-1, Ack(M, N-1)) )

+

+def main():

+    NUM = 9

+    sys.setrecursionlimit(10000)

+    Ack(3, NUM)

+

+main()

diff --git a/benchmark/other-lang/ack.rb b/benchmark/other-lang/ack.rb
new file mode 100644
index 0000000000..7886183ff0
--- /dev/null
+++ b/benchmark/other-lang/ack.rb
@@ -0,0 +1,12 @@
+def ack(m, n)

+    if m == 0 then

+        n + 1

+    elsif n == 0 then

+        ack(m - 1, 1)

+    else

+        ack(m - 1, ack(m, n - 1))

+    end

+end

+

+NUM = 9

+ack(3, NUM)

diff --git a/benchmark/other-lang/ack.scm b/benchmark/other-lang/ack.scm
new file mode 100644
index 0000000000..e9e1886933
--- /dev/null
+++ b/benchmark/other-lang/ack.scm
@@ -0,0 +1,7 @@
+(define (ack m n)

+  (cond ((zero? m) (+ n 1))

+	((zero? n) (ack (- m 1) 1))

+	(else      (ack (- m 1) (ack m (- n 1))))))

+

+(ack 3 9)

+

diff --git a/benchmark/other-lang/eval.rb b/benchmark/other-lang/eval.rb
new file mode 100644
index 0000000000..e6ff94d294
--- /dev/null
+++ b/benchmark/other-lang/eval.rb
@@ -0,0 +1,66 @@
+

+Bench = %w(

+  loop

+  ack

+  fib

+  tak

+  fact

+)

+

+Lang = <<EOP.map{|l| l.strip}

+  ruby-cyg

+  ../../../test6/miniruby

+  perl

+  python

+  gosh

+EOP

+

+Bench.replace ['loop2']

+Lang.replace ['ruby-cyg']

+

+Ext = %w(

+  .rb

+  .rb

+  .pl

+  .py

+  .scm

+)

+

+p Bench

+p Lang

+

+require 'benchmark'

+

+def bench cmd

+  m = Benchmark.measure{

+    #p cmd

+    system(cmd)

+  }

+  [m.utime, m.real]

+end

+

+Result = []

+Bench.each{|b|

+  r = []

+  Lang.each_with_index{|l, idx|

+    cmd = "#{l} #{b}#{Ext[idx]}"

+    r << bench(cmd)

+  }

+  Result << r

+}

+

+require 'pp'

+# utime

+puts Lang.join("\t")  

+Bench.each_with_index{|b, bi|

+  print b, "\t"

+  puts Result[bi].map{|e| e[0]}.join("\t")

+}

+

+# rtime

+puts Lang.join("\t")  

+Bench.each_with_index{|b, bi|

+  print b, "\t"

+  puts Result[bi].map{|e| e[1]}.join("\t")

+}

+

diff --git a/benchmark/other-lang/fact.pl b/benchmark/other-lang/fact.pl
new file mode 100644
index 0000000000..2cef18534c
--- /dev/null
+++ b/benchmark/other-lang/fact.pl
@@ -0,0 +1,13 @@
+sub fact{

+  my $n = @_[0];

+  if($n < 2){

+    return 1;

+  }

+  else{

+    return $n * fact($n-1);

+  }

+}

+

+for($i=0; $i<10000; $i++){

+  &fact(100);

+}

diff --git a/benchmark/other-lang/fact.py b/benchmark/other-lang/fact.py
new file mode 100644
index 0000000000..460e4057f4
--- /dev/null
+++ b/benchmark/other-lang/fact.py
@@ -0,0 +1,18 @@
+#import sys

+#sys.setrecursionlimit(1000)

+

+def factL(n):

+	r = 1

+	for x in range(2, n):

+		r *= x

+	return r

+

+def factR(n):

+	if n < 2:

+		return 1

+	else:

+		return n * factR(n-1)

+

+for i in range(10000):

+	factR(100)

+

diff --git a/benchmark/other-lang/fact.rb b/benchmark/other-lang/fact.rb
new file mode 100644
index 0000000000..c75320824c
--- /dev/null
+++ b/benchmark/other-lang/fact.rb
@@ -0,0 +1,13 @@
+def fact(n)

+  if n < 2

+    1

+  else

+    n * fact(n-1)

+  end

+end

+

+i=0

+while i<10000

+  i+=1

+  fact(100)

+end

diff --git a/benchmark/other-lang/fact.scm b/benchmark/other-lang/fact.scm
new file mode 100644
index 0000000000..511990f797
--- /dev/null
+++ b/benchmark/other-lang/fact.scm
@@ -0,0 +1,8 @@
+(define (fact n)

+        (if (< n 2)

+            1

+          (* n (fact (- n 1)))))

+

+(dotimes (i 10000)

+  (fact 100))

+

diff --git a/benchmark/other-lang/fib.pl b/benchmark/other-lang/fib.pl
new file mode 100644
index 0000000000..d660a2337b
--- /dev/null
+++ b/benchmark/other-lang/fib.pl
@@ -0,0 +1,11 @@
+sub fib{

+  my $n = $_[0];

+  if($n < 3){

+    return 1;

+  }

+  else{

+    return fib($n-1) + fib($n-2);

+  }

+};

+

+&fib(34);

diff --git a/benchmark/other-lang/fib.py b/benchmark/other-lang/fib.py
new file mode 100644
index 0000000000..40f87f3e9c
--- /dev/null
+++ b/benchmark/other-lang/fib.py
@@ -0,0 +1,7 @@
+def fib(n):

+  if n < 3:

+    return 1

+  else:

+    return fib(n-1) + fib(n-2)

+

+fib(34)

diff --git a/benchmark/other-lang/fib.rb b/benchmark/other-lang/fib.rb
new file mode 100644
index 0000000000..7e0e8daa7e
--- /dev/null
+++ b/benchmark/other-lang/fib.rb
@@ -0,0 +1,9 @@
+def fib n

+  if n < 3

+    1

+  else

+    fib(n-1) + fib(n-2)

+  end

+end

+

+fib(34)

diff --git a/benchmark/other-lang/fib.scm b/benchmark/other-lang/fib.scm
new file mode 100644
index 0000000000..ea63503b11
--- /dev/null
+++ b/benchmark/other-lang/fib.scm
@@ -0,0 +1,7 @@
+(define (fib n)

+        (if (< n 3)

+            1

+          (+ (fib (- n 1)) (fib (- n 2)))))

+

+(fib 34)

+

diff --git a/benchmark/other-lang/loop.pl b/benchmark/other-lang/loop.pl
new file mode 100644
index 0000000000..ecacef4477
--- /dev/null
+++ b/benchmark/other-lang/loop.pl
@@ -0,0 +1,3 @@
+for($i=0; $i<30000000; $i++){

+}

+

diff --git a/benchmark/other-lang/loop.py b/benchmark/other-lang/loop.py
new file mode 100644
index 0000000000..b47089fd39
--- /dev/null
+++ b/benchmark/other-lang/loop.py
@@ -0,0 +1,2 @@
+for i in xrange(30000000):

+	pass

diff --git a/benchmark/other-lang/loop.rb b/benchmark/other-lang/loop.rb
new file mode 100644
index 0000000000..35cd67a7a3
--- /dev/null
+++ b/benchmark/other-lang/loop.rb
@@ -0,0 +1,4 @@
+i=0

+while i<30000000

+  i+=1

+end

diff --git a/benchmark/other-lang/loop.scm b/benchmark/other-lang/loop.scm
new file mode 100644
index 0000000000..1646ac3c1d
--- /dev/null
+++ b/benchmark/other-lang/loop.scm
@@ -0,0 +1 @@
+(dotimes (x 30000000))

diff --git a/benchmark/other-lang/loop2.rb b/benchmark/other-lang/loop2.rb
new file mode 100644
index 0000000000..f3085926a3
--- /dev/null
+++ b/benchmark/other-lang/loop2.rb
@@ -0,0 +1 @@
+30000000.times{}

diff --git a/benchmark/other-lang/tak.pl b/benchmark/other-lang/tak.pl
new file mode 100644
index 0000000000..c7bb626e61
--- /dev/null
+++ b/benchmark/other-lang/tak.pl
@@ -0,0 +1,11 @@
+sub tak {

+    local($x, $y, $z) = @_;

+    if (!($y < $x)) {

+	return $z;

+    } else {

+	return &tak(&tak($x - 1, $y, $z),

+		    &tak($y - 1, $z, $x),

+		    &tak($z - 1, $x, $y));

+    }

+}

+&tak(18, 9, 0);

diff --git a/benchmark/other-lang/tak.py b/benchmark/other-lang/tak.py
new file mode 100644
index 0000000000..9b7bd8f23c
--- /dev/null
+++ b/benchmark/other-lang/tak.py
@@ -0,0 +1,8 @@
+def tak(x, y, z):

+	if not(y<x):

+		return z

+	else:

+		return tak(tak(x-1, y, z),

+		           tak(y-1, z, x),

+		           tak(z-1, x, y))

+tak(18, 9, 0)

diff --git a/benchmark/other-lang/tak.rb b/benchmark/other-lang/tak.rb
new file mode 100644
index 0000000000..d70d5db8f8
--- /dev/null
+++ b/benchmark/other-lang/tak.rb
@@ -0,0 +1,13 @@
+

+def tak x, y, z

+  unless y < x

+    z

+  else

+    tak( tak(x-1, y, z),

+         tak(y-1, z, x),

+         tak(z-1, x, y))

+  end

+end

+

+tak(18, 9, 0)

+

diff --git a/benchmark/other-lang/tak.scm b/benchmark/other-lang/tak.scm
new file mode 100644
index 0000000000..45cc576767
--- /dev/null
+++ b/benchmark/other-lang/tak.scm
@@ -0,0 +1,10 @@
+(define (tak x y z)

+        (if (not (< y x))

+            z

+          (tak (tak (- x 1) y z)

+               (tak (- y 1) z x)

+               (tak (- z 1) x y))))

+

+(tak 18 9 0)

+

+