benchmarks/extensions.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 16 Feb 2013 19:08:45 +0100
changeset 2353 fa7400d022a0
child 2380 9195eccdcbd9
child 2678 c865275e48a7
permissions -rw-r--r--
Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e

"{ Package: 'stx:libjava/benchmarks' }"!

!SmallInteger methodsFor:'performance tests'!

ackermann: anInteger
   ^self = 0
      ifTrue: [anInteger + 1]
      ifFalse: [
         anInteger = 0
            ifTrue: [self - 1 ackermann:  1]
            ifFalse: [self - 1 ackermann: (self ackermann: anInteger - 1)] ] 
! !

!stx_libjava_benchmarks class methodsFor:'documentation'!

extensionsVersion_HG

    ^ '$Changeset: <not expanded> $'
! !