tests/benchmark/takfp.slate

   1
   2 x@(Float traits) tak: y@(Float traits) with: z@(Float traits)
   3 [
   4   y < x
   5     ifTrue: [
   6       ((x - 1.0)
   7         tak: y with: z)
   8           tak: ((y - 1.0)
   9             tak: z with: x) with: ((z - 1.0)
  10               tak: x with: y) ]
  11     ifFalse: [z]
  12 ].
  13
  14 n@(Integer traits) takfp
  15 [
  16   (n * 3.0) tak: (n * 2.0) with: (n * 1.0)
  17 ].