17d3b7ef9Sespie#! /usr/bin/perl 2*133306f0Sniklas# $OpenBSD: fibo.pl,v 1.2 2001/01/29 02:05:59 niklas Exp $ 3*133306f0Sniklas 47d3b7ef9Sespiemy $n=shift; 57d3b7ef9Sespie 67d3b7ef9Sespie$fibo[0] = 'a'; 77d3b7ef9Sespie$fibo[1] = 'b'; 87d3b7ef9Sespiefor (my $i = 2; $i <= $n; $i++) { 97d3b7ef9Sespie $fibo[$i] = $fibo[$i-1].$fibo[$i-2]; 107d3b7ef9Sespie} 117d3b7ef9Sespie 127d3b7ef9Sespieprint $fibo[$n], "\n"; 137d3b7ef9Sespie 14