"{ Package: 'jv:calipel/s/benchmarks/micro' }"

Object subclass:#BenchmarkMicro

	instanceVariableNames:'iterations stream hello table ary1 ary2'

	classVariableNames:''

	poolDictionaries:''

	category:'CalipeL-S-Benchmarks-Micro'

!

!BenchmarkMicro class methodsFor:'running'!

run

    ^ (BenchmarkSuite class:self) run

    "Created: / 10-06-2013 / 21:53:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

run: benchmark

    ^ (BenchmarkInstance class:self selector:benchmark) run

    "Created: / 31-05-2013 / 10:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 10-06-2013 / 21:53:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkMicro methodsFor:'accessing'!

iterations

    ^ iterations

!

iterations:anInteger

    <parameter: #iterations type: #Integer default: 1000>

    iterations := anInteger.

    "Modified: / 20-07-2013 / 00:35:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkMicro methodsFor:'benchmarks'!

ackermann

    "<benchmark: 'Ackermann'>"

    self ackermann: 3 with: 8.

    self ackermann: 3 with: 8.

    self ackermann: 3 with: 8.

    self ackermann: 3 with: 8.

    "Created: / 11-06-2013 / 01:29:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 23-06-2013 / 02:30:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

ackermann: x with: y

   ^x = 0

      ifTrue: [y + 1]

      ifFalse: [

         y = 0

            ifTrue: [self ackermann: x - 1 with: 1]

            ifFalse: [self ackermann: x - 1 with: (self ackermann: x with: y - 1)] ]

    "Created: / 11-06-2013 / 01:29:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

ary

    <benchmark: 'Ary'>

    | n |

    n := ary1 size.

    1 to: 1000 do: [:ignored|

                    n to: 1 by: -1 do: [:i| ary2 at: i put: (ary2 at: i) + (ary1 at: i)] ].

    "Created: / 11-06-2013 / 01:25:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 23-06-2013 / 02:30:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

hsh

    <benchmark: 'Hash 1'>

    | n count |

    n := iterations * 1000.

    count := 0.

    1 to:n do:[:each | 

        table at:(each printStringRadix:16) put:each

    ].

    1 to:n do:[:each | 

        (table includesKey:(each printStringRadix:10)) ifTrue:[

            count := count + 1

        ]

    ].

    "Created: / 11-06-2013 / 01:21:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 23-06-2013 / 02:30:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

strcat

    <benchmark: 'String Concatenation'>

    1 to: (iterations * 5000) do: [:idx|

        stream nextPutAll:hello

    ].

    "Created: / 28-05-2013 / 00:49:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 23-06-2013 / 02:30:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkMicro methodsFor:'running'!

setUp

    <setup>

    stream := WriteStream on:String new.

    hello := 'hello' , Character cr asString.

    iterations := iterations isNil ifTrue:[ 1000 ] ifFalse:[ iterations ].

    table := Dictionary new: (iterations * 1000) + ((iterations * 1000) // 5).

    ary1 := (1 to:iterations * 100) asArray.

    ary2 := Array new:iterations * 100 withAll: 0.

    "Created: / 28-05-2013 / 00:50:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-06-2013 / 01:25:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!BenchmarkMicro class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

!

version_MC

    ^ 'CalipeL_S-Benchmarks-JanVrany.1 b5f61090-c9d7-11e2-a959-606720e43e2c 2013-05-31T10:51:48 JanVrany'

! !