変わったとこで Strongtalk (強い型付きの Smalltalk )

Tarai >> x: x <Int> y: y <Int> z: z <Int> ^ <Int>
 x <= y ifTrue: [^ y].
 ^ self
  x: (self x: x-1 y: y z: z)
  y: (self x: y-1 y: z z: x)
  z: (self x: z-1 y: x z: y)

Time millisecondsToRun: [Tarai x: 12 y: 6 z: 0]

=> 0.27 / (ruby 1.8.0 (2003-08-04) [i386-cygwin])