Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use integer;

sub Ack {
    my($M, $N) = @_;
    return( $N + 1 )         if ($M == 0);
    return( Ack($M - 1, 1) ) if ($N == 0);
    Ack($M - 1, Ack($M, $N - 1));
}

my $NUM = $ARGV[0];
$NUM = 1 if ($NUM < 1);
my $ack = Ack(3, $NUM);
print "Ack(3,$NUM): $ack\n\n";

#!/bin/bash

#Uncomment the 'set' if you want a line-by-line result...
#set -x   

ack ()
{
	local m=$1
	local n=$2
	if [ $m -eq 0 ] 
	   then
		return $(( $n+1 )) 
	fi

	if [ $n -eq 0 ] 
	   then
		ack $(( $m-1 )) 1
		return $?
	fi
	
	ack $m $(( $n-1 ))
	ack $(( $m-1 )) $? 
}
loops=0
p=$1
o=3
(( num = p<1?1:$p ))

ack $o $num 
printf "ack %s %s = %s  \n\n" $o $num $?

#!/bin/bash

function ack
{
  local m=$1 n=$2

  if ((m == 0)); then let r=n+1
  elif ((n == 0)); then ack $((m-1)) 1
  else
    ack $m $((n-1))
    ack $((m-1)) $r
  fi
}               
        
ack $1 $2
echo "ack($1, $2) =" $r