recursion ^*

• bence programsal açıdan hiçbir artısı yoktur, tamamen kıllık olsun die yapılır. sadece biraz şık durur ve çözülmesi zordur. basit logic kontrollerle bu işi yaptırmak daha mantıklıdır.
  madem her dilde yazılacak perl de de recursive factoriel fonsiyonunu yazalım...
  #!/usr/bin/perl
  print factoriel(5);
  sub factoriel{
  my $n = shift;
  return($n) if ($n eq 1);
  return($n * factoriel($n - 1));
  }