[REBOL] Re: RFC: Cross-language benchmark proposal
From: lmecir:mbox:vol:cz at: 7-Nov-2002 17:56
Hi Joel,
> Tasks: A subset of the benchmarks on the "Shootout" page (the
> ones that can be run in REBOL).
>
> http://www.bagley.org/~doug/shootout/
>
> I'm looking at them now to identify which can be run.
> (e.g. Ackermann 3 8 [stack depth issues]
Romano's ACK works (or does it violate any of the principles?):
ack: func [
{by Romano Paolo Tenca}
m [integer!] n [integer!]
/local result
] [
if m = 0 [return n + 1]
if n = 0 [result: ack m - 1 1 return result]
result: ack m n - 1
ack m - 1 result
]
ack 3 8 ; == 2045
