author | vranyj1 |
Thu, 15 Nov 2012 22:10:02 +0000 | |
branch | directory_structure_refactoring |
changeset 1818 | 2e5ed72e7dfd |
parent 1762 | src/benchmarks/extensions.st@d67be8cbec02 |
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 |
! ! |