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
Updated release image date.
[cslatevm.git]
/
tests
/
benchmark
/
takfp.slate
blob
577617c54c97e798c8e2547c3129ead30f8cbd45
1
2
x@(Float traits) tak: y@(Float traits) with: z@(Float traits)
3
[
4
y < x
5
ifTrue:
6
[(x - 1.0 tak: y with: z)
7
tak: (y - 1.0 tak: z with: x)
8
with: (z - 1.0 tak: x with: y)]
9
ifFalse: [z]
10
].
11
12
n@(Integer traits) takfp
13
[
14
n * 3.0 tak: n * 2.0 with: n * 1.0
15
].