author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Fri, 25 Jan 2013 17:57:06 +0000 | |
branch | refactoring-vmdata |
changeset 2002 | ef3da336a6c9 |
parent 1818 | 2e5ed72e7dfd |
child 2014 | 9fa66342102b |
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_SVN ^ '$Id:: $' ! !