Small perl script to create fibo.out.

length parameter to try to push fibo.m4 further.

1 files changed, 11 insertions, 0 deletions

diff --git a/regress/usr.bin/m4/fibo.pl b/regress/usr.bin/m4/fibo.pl
new file mode 100644
index 00000000000..58d87bd5b05
--- /dev/null
+++ b/regress/usr.bin/m4/fibo.pl
@@ -0,0 +1,11 @@
+#! /usr/bin/perl
+my $n=shift;
+
+$fibo[0] = 'a';
+$fibo[1] = 'b';
+for (my $i = 2; $i <= $n; $i++) {
+	$fibo[$i] = $fibo[$i-1].$fibo[$i-2];
+}
+
+print $fibo[$n], "\n";
+