author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Sat, 19 Jan 2013 23:19:12 +0000 | |
branch | refactoring-vmdata |
changeset 1985 | 7c5a14d663ba |
parent 1818 | 2e5ed72e7dfd |
child 2014 | 9fa66342102b |
permissions | -rw-r--r-- |
1762 | 1 |
"{ Package: 'stx:libjava/benchmarks' }"! |
2 |
||
3 |
!SmallInteger methodsFor:'performance tests'! |
|
4 |
||
5 |
ackermann: anInteger |
|
6 |
^self = 0 |
|
7 |
ifTrue: [anInteger + 1] |
|
8 |
ifFalse: [ |
|
9 |
anInteger = 0 |
|
10 |
ifTrue: [self - 1 ackermann: 1] |
|
11 |
ifFalse: [self - 1 ackermann: (self ackermann: anInteger - 1)] ] |
|
12 |
! ! |
|
13 |
||
14 |
!stx_libjava_benchmarks class methodsFor:'documentation'! |
|
15 |
||
16 |
extensionsVersion_SVN |
|
17 |
^ '$Id:: $' |
|
18 |
! ! |