TCS coding ques in perl

July 8, 2019

1.To Check For Leap Year

# perl Script
# leap year
print "Enter Year: ";
$year=<STDIN>;
# condition to check for leap year
  if( (0 == $year % 4) && (0 != $year % 100) || (0 == $year % 400) )
    {
        print "Leap year";
    }
    else
    {
        print "Not a leap year";
    }
Output
Enter Year: 2016
Leap year

2.Prime Numbers with a Twist

#Perl Script
#Prime Number or Not
print "Enter a number";
$n=<STDIN>;
$d=0;
if($n<0)
{
	print "Ivalid Input!!! Enter Value Again";
}
else
{
	#Loop  to find number of divisors
	for($c=1;$c<=$n;$c++)
	{
		if($n%$c==0)
		{
			$d=$d+1;
		}
	}
	#checking for prime numbers
	if($d==2)
	{
		print "Prime Number";
	}
	else
	{
		print "Not a Prime number";
	}
}

Output

Enter a number31
Prime Number

3.Number Series with a Twist

Find the 15th term of the series?

0,0,7,6,14,12,21,18, 28..

#perl Script
print"Enter position: ";
$n=<STDIN>;
$term=0;
$d=0;
if($n==0||$n==1)
{	
    $term=0;
}
else
{
    if(0==$n%2)
    {
    	$n=($n/2);
    	$d=6;		
    }
    else
    {
    	$n=($n/2) + 0.5;
    	$d=7;
    }
    $term= ($n-1) * $d;
}
print"$term.";

Output

Enter position: 15
49.

4.Number Series with a Twist

Consider the following series: 1,1,2,3,4,9,8,27,16,81,32,243,64,729,128,2187…

#Perl Script
$a=1;
$b=1;
print("enter number : ");
$n=<STDIN>;
for($i=1;$i<=$n;$i++)
{
    if($i%2!=0)
    {
        $a = $a * 2;
    }
    else
    {    
        $b = $b * 3;
    }
}
if($n%2!=0)
{    
    print("$n term of series is ",$a/2);
}
else
{    
    print("$n term of series is ",$b/3);
}

Output

enter number : 17
17 term of series is 256