repo.or.cz
/
cslatevm.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Make QuoteMacro lexing more failure-tolerant.
[cslatevm.git]
/
tests
/
benchmark
/
ackermann.slate
blob
4681b9f21c4a44ebe2f5435f026471e9e347d90e
1
2
x@(Integer traits) ackermann: y@(Integer traits)
3
[
4
x = 0
5
ifTrue: [y + 1]
6
ifFalse:
7
[y = 0
8
ifTrue: [x - 1 ackermann: 1]
9
ifFalse: [x - 1 ackermann: (x ackermann: y - 1)]]
10
].