xref: /openbsd/regress/usr.bin/m4/fibo.pl (revision 274d7c50)
1#! /usr/bin/perl
2#	$OpenBSD: fibo.pl,v 1.2 2001/01/29 02:05:59 niklas Exp $
3
4my $n=shift;
5
6$fibo[0] = 'a';
7$fibo[1] = 'b';
8for (my $i = 2; $i <= $n; $i++) {
9	$fibo[$i] = $fibo[$i-1].$fibo[$i-2];
10}
11
12print $fibo[$n], "\n";
13
14