OpenEuphoria

Re: Computer Language Shootout

• Posted by Derek Parnell <ddparnell at bigpond.com> Jul 02, 2005
• 551 views

Brent W. Hughes wrote:
> 
> 
> I just recently learned about the Great Computer Language Shootout Benchmarks
> at:
> 
> <a
> href="http://shootout.alioth.debian.org/great/">http://shootout.alioth.debian.org/great/</a>
> 
> Why don't a bunch of Euphorians get together and submit the various programs
> for this
> comparison.  I think it would attract attention to Euphoria to see how fast it
> runs.


The Ackermann test...

-- The Computer Language Shootout Benchmarks
--   http://shootout.alioth.debian.org/
--
--   contributed by Derek Parnell
--
--   run: exu ackermann.ex N

include get.e
function Ack(integer M, integer N) 
    if M = 0 then
        return N+1
    elsif N = 0 then
        return Ack(M-1,1)
    end if
    return Ack(M-1, Ack(M, N-1))
end function

procedure main(sequence argv)

    object v
    integer n
    if length(argv) > 2 then
      v = value(argv[3])
      n = v[2]
    else
      n = 1
    end if

    printf(1, "Ack(3,%d): %d\n", {n, Ack(3, n)})
end procedure

main(command_line())

-- 
Derek Parnell
Melbourne, Australia
irc://irc.sorcery.net:9000/euphoria