author | Claus Gittinger <cg@exept.de> |
Thu, 14 Feb 2019 14:57:14 +0100 | |
branch | cvs_MAIN |
changeset 3882 | 8fc7564975e5 |
parent 2678 | c865275e48a7 |
child 2731 | 13f5be2bf83b |
permissions | -rw-r--r-- |
"{ 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> $' ! !