[macruby-changes] [133] MacRuby/trunk/benchmark/bm_app_mergesort.rb
source_changes at macosforge.org
source_changes at macosforge.org
Sun Apr 6 23:30:41 PDT 2008
Revision: 133
http://trac.macosforge.org/projects/ruby/changeset/133
Author: lsansonetti at apple.com
Date: 2008-04-06 23:30:41 -0700 (Sun, 06 Apr 2008)
Log Message:
-----------
added new benchmark
Added Paths:
-----------
MacRuby/trunk/benchmark/bm_app_mergesort.rb
Added: MacRuby/trunk/benchmark/bm_app_mergesort.rb
===================================================================
--- MacRuby/trunk/benchmark/bm_app_mergesort.rb (rev 0)
+++ MacRuby/trunk/benchmark/bm_app_mergesort.rb 2008-04-07 06:30:41 UTC (rev 133)
@@ -0,0 +1,51 @@
+# http://npzrk8rz.wordpress.com/2008/01/17/ruby-vs-php-performance/
+
+def merge(a, b)
+ c = []
+ while !a.empty? && !b.empty?
+ if a[0] > b[0]
+ c << b[0]
+ b.shift
+ else
+ c << a[0]
+ a.shift
+ end
+ end
+ while !a.empty?
+ c << a[0]
+ a.shift
+ end
+ while !b.empty?
+ c << b[0]
+ b.shift
+ end
+ return c
+end
+
+def mergesort(a)
+ n = a.size
+ if n <= 1
+ return a
+ end
+
+ l1 = []
+ l2 = []
+ i = 0
+ while i < n / 2
+ l1 << a[i]
+ i += 1
+ end
+ while i < n
+ l2 << a[i]
+ i += 1
+ end
+
+ l1 = mergesort(l1)
+ l2 = mergesort(l2)
+ return merge(l1, l2)
+end
+
+numbers = [47448054, 1106251565, 1208921855, 170086026, 840395770, 444281018, 1297307905, 1613614128, 357068250, 1829657695, 654555439, 1261773796, 1821640729, 449683981, 1062536538, 96076061, 1387478498, 1835855315, 364455615, 4830124, 864633601, 289493189, 471351435, 435996916, 1366312031, 888420407, 1923379522, 735726044, 1094401518, 245520239, 109946712, 1107893495, 592868510, 700148765, 273016388, 343881444, 420725947, 1259049694, 1692920986, 71271532, 1154617350, 593508009, 1106700528, 430204045, 1045928775, 1330476642, 49983990, 1451164767, 1175404600, 644832496, 365016297, 1048732794, 503615317, 217186301, 1176160338, 1183622513, 81711049, 1720671278, 1393072097, 1315236388, 1451774341, 92848458, 271000544, 1667871288, 380233084, 1053079658, 1249341507, 1276652307, 1722015039, 1243698025, 178813868, 1449271074, 1994327579, 270972819, 1043379189, 1592595484, 462468972, 1464773315, 1994172406, 997300623, 46405283, 1614271949, 447907123, 317292284, 378291676, 1253835093
, 523476912, 1606023999, 59263848, 1234358080, 140981643, 1828471854, 1197394207, 1317927546, 878287915, 334576359, 982149842, 642878238, 1024064999, 1834342299];
+3000.times do
+ mergesort(numbers)
+end
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macruby-changes/attachments/20080406/5cbb4c04/attachment.html
More information about the macruby-changes
mailing list