Merge pull request TheRenegadeCoder#1944 from SourabhBadhya/95492

Added Fibonacci in Perl
Ramyajayantha · Oct 1, 2020 · 5fcd26f · 5fcd26f
2 parents 8560f97 + d173cf1
commit 5fcd26f
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 1 deletion.
diff --git a/archive/a/autohotkey/hello-world.ahk b/archive/a/autohotkey/hello-world.ahk
diff --git a/archive/p/perl/fibonacci.pl b/archive/p/perl/fibonacci.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+$num_args = $#ARGV + 1;
+if ($num_args == 0) {
+    print "Usage: please input the count of fibonacci numbers to output\n";
+} elsif ($num_args == 1) {
+    if ($ARGV[0] =~ /[0-9]+/) {
+    	$n = $ARGV[0];
+	$result = 0,$first = 0,$second = 1;
+	for ($i = 1;$i <= $n;$i = $i + 1) {
+	    $result = $first + $second;
+	    $first = $second;
+	    $second = $result;
+	    print "$i: $first\n";
+    	}
+    } else {
+        print "Usage: please input the count of fibonacci numbers to output\n";    
+    }
+} else {
+    print "Usage: please input the count of fibonacci numbers to output\n";	
+}