benchmarks/Ary.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 16 Dec 2012 21:04:02 +0100
branchdirectory_structure_refactoring
changeset 1899 800c0f76adce
parent 1818 2e5ed72e7dfd
child 2014 9fa66342102b
permissions -rw-r--r--
Closing branch directory_structure_refactoring
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1781
feb3223a8ccd Warmup fixes
vranyj1
parents: 1762
diff changeset
     1
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     2
"{ Package: 'stx:libjava/benchmarks' }"
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     3
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     4
JavaBenchmark subclass:#Ary
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     5
	instanceVariableNames:''
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     6
	classVariableNames:''
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     7
	poolDictionaries:''
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     8
	category:'Benchmarks-Java-Micro'
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
     9
!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    10
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    11
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    12
!Ary methodsFor:'running'!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    13
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    14
runAryTest: x with: y with: n
1781
feb3223a8ccd Warmup fixes
vranyj1
parents: 1762
diff changeset
    15
	1 to: 1000 do: [:ignored|
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    16
			n to: 1 by: -1 do: [:i| y at: i put: (y at: i) + (x at: i)] ].
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    17
!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    18
1762
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    19
runBenchmarkS:n 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    20
    | x  y |
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    21
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    22
    x := (1 to:n) asArray.
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    23
    y := Array new:n withAll:0.
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    24
    ^ Time 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    25
        millisecondsToRun:[
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    26
            self 
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    27
                runAryTest:x
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    28
                with:y
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    29
                with:n
d67be8cbec02 - JavaBenchmark
vranyj1
parents: 1761
diff changeset
    30
        ].
1761
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    31
! !
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    32
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    33
!Ary class methodsFor:'documentation'!
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    34
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    35
version_SVN
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    36
    ^ '$Id::                                                                                                                        $'
dba3db31ea2a Initial port of benchmarks
vranyj1
parents:
diff changeset
    37
! !