| author | Jan Vrany <jan.vrany@fit.cvut.cz> |
| Wed, 16 Jan 2013 22:06:41 +0000 | |
| branch | refactoring-vmdata |
| changeset 1977 | 526315e0a801 |
| 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 |
! ! |