benchmarks/extensions.st
author Claus Gittinger <cg@exept.de>
Thu, 14 Feb 2019 14:57:14 +0100
branchcvs_MAIN
changeset 3882 8fc7564975e5
parent 2678 c865275e48a7
child 2731 13f5be2bf83b
permissions -rw-r--r--
#DOCUMENTATION by cg class: GroovySourceHighlighter comment/format in: #markUnknownIdentifierFrom:to:

"{ 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> $'
! !