#
# One of the Kernighan and Van Wyk mini-benchmarks
# for scripting languages.
# It is a recursive algorithm for Ackerman numbers
#
eval (define (ack m n) \
  (cond ((= m 0) (+ n 1)) \
        ((= n 0) (ack (- m 1) 1)) \
        (else (ack (- m 1) (ack m (- n 1))))))
set time on
echo Ack 3 3
eval (ack 3 3)
echo Ack 3 4
eval (ack 3 4)
echo Ack 3 5
eval (ack 3 5)
echo Ack 3 6
eval (ack 3 6)
echo ...Ack 3 11
echo too slow!