Help me figure out a detailed explanation to this Perl code and also if there ar

Question

Help me figure out a detailed explanation to this Perl code and also if there are any issues:

#1 /usr/bin/perl -w use strict; my Oprimes - (2,3,5,7,11,13,17,19,23,29,31,37,41,43,47) sub listprimes my $n = shift; my $i =0; my $answer ""; while ($primes[$1]=$n) { $answer $primes[$1] ". " .= return $answer; sub random my($a , $b) = @_. return int(rand ($b-$a+1))+$a; my $a = random (10,50); my $f = listprimes($a); print "$f n" a) (6 pts) What does the code do? Give a detailed explanation. b) (6 pts) Can you find any potential issue with this code?

Explanation / Answer

#this program will print the list of prime numbers less than value returned by random function
#This program will do two things
#1.It will call random function to get the value for $n i.e boundary value
#2.get the sub list from listprimes based on the value of $n

#!/usr/bin/perl -w
use strict;#this will disable certain expressions

my @primes=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47);#assigining the list of prime numbers below 50

sub listprimes #defining the procedure named listprimes
{
my $n=shift;#to take the input f
my $i=0;#intialize to zero
my $answer="";#assigining empty string
while($primes[$i]<=$n)#checking whether the prime number in the array is less than the given $n
{
$answer.="$primes[$i]"; #in this statment we concatenating the $primes[$i] as string repeatedly not the values in the primes array
$i++;#increment the counter
}
return $answer;#to return the answer
}

sub random{ #defining the procedure named listprimes
my($a,$b)=@_;#to receive the parameters sent by the function call
#rand function will return a fractional random number between 0 and given number
#rand(50-10+1)=rand(41)
return int(rand($b-$a+1))+$a;#this will return the value of rand(41)+10
}
my $a=random(10,50);#to call the procedure named random by passing two arguments

my $f=listprimes($a);#to call the procedure named listprimes by passing the value of $a
printf "$f ";#to print the result

B)problem with the code is

$answer.="$primes[$i]"; #in this statment we concatenating the $primes[$i] as string repeatedly not the values in the primes array

try to replace the follwing statement

$answer.=$primes[$i];#this will concatenate the values in the $primes array

Related Questions

Navigate

• Browse (All)
• Browse H
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.