jbochi · August 5, 2012 22:01
diff --git a/fibonacci.plx b/fibonacci.plx
 #!/usr/bin/perl

 use strict;
 use warnings;


 my $a = 0;
 my $b = 1;

 while ($a < 100) {
    print $a, "\n";
    ($a, $b) = ($a + $b, $a);
 }
	#!/usr/bin/perl

	use strict;
	use warnings;


	my $a = 0;
	my $b = 1;

	while ($a < 100) {
	print $a, "\n";
	($a, $b) = ($a + $b, $a);
	}