dailykata first exercise

gistfile1.pl

#!/usr/bin/perl -w

sub fibonacci {
  my $n = $_[0];

  if ($n <= 1) {
    return $n;
  }
  else {
    return fibonacci($n-1) + fibonacci($n-2);
  };
}

sub assert {
  if ($_[0] == $_[1]) {
    print "OK\n";
  } else {
    print "FAIL\n";
  }
}

assert(0, fibonacci(0));
assert(1, fibonacci(1));
assert(1, fibonacci(2));
assert(2, fibonacci(3));
assert(13, fibonacci(7));