CPP
cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#include <fstream>
constexpr char perlString[]=
R"(
#!/usr/bin/perl
# Print function
use warnings;
use strict;
#Initial Credit to GeeksforGeeks but I like my design better
print "Fibonacci sequence code in Perl\n\n";
sub fib{
#Retriving values from the parameter
my $b=shift;
my $f=shift;
#Number till which the series is to be printed
my $o = shift;
#Check for the end value
if($f > 10000000000000000000){
return 1;}
#Printing the number
print "\t\t$b + $f\n";
print "---";
#Recursive Function Call
fib($f, $b+$f, $o);}
#Driver Code
#Number till which series is to be printed
Enter to Rename, Shift+Enter to Preview
OUTPUT
Run