RosettaCodeData/Task/Factorial/AWK/factorial-1.awk

function fact_r(n)
{
  if ( n <= 1 ) return 1;
  return n*fact_r(n-1);
}