shを除く各処理系で、tak(13, 7, 0) を走らせた。 処理系 実行時間 Groovy 1.6.4 (Server VM) 0m15s Lua 5.1.4 0m20s JRuby 1.4.0 (Server VM) 0m26s Python 2.6.5 0m43s SCM 5e5 (Scheme) 0m49s Kink 8f30e3bcc17f (Server VM) 1m58s CRuby 1.8.7 3m10s Kin…

Kink #!/usr/bin/env kink &tak = { ( &X &Y &Z ) ( X <= Y ).then { Y } { tak( tak( X - 1 Y Z ) tak( Y - 1 Z X ) tak( Z - 1 X Y ) ) } } [ &X &Y &Z ] = ARGS.map { __.int } &TAK = tak( X Y Z ) print_line: format: 'tak( #X #Y #Z ) = #TAK' Scheme…