[macruby-changes] [4475] MacRuby/trunk/perf/misc/fannkuch.rb

source_changes at macosforge.org source_changes at macosforge.org
Fri Aug 27 14:04:54 PDT 2010


Revision: 4475
          http://trac.macosforge.org/projects/ruby/changeset/4475
Author:   lsansonetti at apple.com
Date:     2010-08-27 14:04:51 -0700 (Fri, 27 Aug 2010)
Log Message:
-----------
added fannkuch benchmark

Added Paths:
-----------
    MacRuby/trunk/perf/misc/fannkuch.rb

Added: MacRuby/trunk/perf/misc/fannkuch.rb
===================================================================
--- MacRuby/trunk/perf/misc/fannkuch.rb	                        (rev 0)
+++ MacRuby/trunk/perf/misc/fannkuch.rb	2010-08-27 21:04:51 UTC (rev 4475)
@@ -0,0 +1,62 @@
+# From The Computer Language Benchmarks Game
+# http://shootout.alioth.debian.org/
+# Contributed by Wesley Moxam
+
+def fannkuch(n)
+  sign, maxflips, sum = 1, 0, 0
+
+  p = [nil].concat((1..n).to_a)
+  q = p.dup
+  s = p.dup
+
+  while(true)
+    # Copy and flip.
+    q1 = p[1]                # Cache 1st element.
+    if q1 != 1
+      q = p.dup
+      flips = 1
+      while(true)
+        qq = q[q1]
+        if qq == 1                # ... until 1st element is 1.
+          sum = sum + sign * flips
+          maxflips = flips if flips > maxflips # New maximum?
+          break
+        end
+        q[q1] = q1
+        if q1 >= 4
+          i, j = 2, q1 - 1
+          begin
+            q[i], q[j] = q[j], q[i]
+            i = i + 1
+            j = j - 1
+          end while i < j
+        end
+        q1 = qq
+        flips = flips + 1
+      end
+    end
+    # Permute.
+    if sign == 1
+      # Rotate 1<-2.
+      p[1], p[2] = p[2], p[1]
+      sign = -1
+    else
+      # Rotate 1<-2 and 1<-2<-3.
+      p[2], p[3] = p[3], p[2]
+      sign = 1
+      3.upto(n) do |i|
+        (s[i] =  s[i] - 1) && break unless s[i] == 1
+        return [sum, maxflips] if i == n     # Out of permutations.
+        s[i] = i
+        # Rotate 1<-...<-i+1.
+        t = p[1]
+        1.upto(i) do |j|
+          p[j] = p[j+1]
+        end
+        p[i+1] = t
+      end
+    end
+  end
+end
+
+perf_test('fannkuch') { fannkuch(9) }


Property changes on: MacRuby/trunk/perf/misc/fannkuch.rb
___________________________________________________________________
Added: svn:executable
   + *
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macruby-changes/attachments/20100827/07619cc6/attachment.html>


More information about the macruby-changes mailing list