Mine
public text v1 · immutable#!/usr/bin/perl
use warnings;
use strict;
our $b;
our $n;
sub fib{
$n = @_;
my $a = 0;
$b = 1;
while ($b < $n) {
print "$b ";
$a = $b;
$b = $a+$b;
}
}
fib(1000);#!/usr/bin/perl
use warnings;
use strict;
our $b;
our $n;
sub fib{
$n = @_;
my $a = 0;
$b = 1;
while ($b < $n) {
print "$b ";
$a = $b;
$b = $a+$b;
}
}
fib(1000);