Interested to Buy Any Domain ? << Click Here >> for more details...
write a script to generate n prime no.s?
- 2 Answers
- 13696 Views
- Persistent, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / venkat
#!c:\perl\bin\perl
$Count = 0;
$pt = 2;
while ( $Count < @ARGV[0] )
{
if (isPrimary($pt))
{
print "$pt\n";
$Count++;
}
$pt++;
}
sub isPrimary
{
$flag = 1;
for ($i=2; $i<=$_[0]/2; $i++)
{
if ($_[0] % $i == 0)
{
$flag = 0;
}
}
return $flag;
}
| Is This Answer Correct ? | 16 Yes | 4 No |
Answer / dushant
import java.io.*;
import java.util.*;
class Prime
{
static BufferedReader br = new BufferedReader(new
InputStreamReader(System.in));
int cnt = 0,j;
Prime()
{
try
{
System.out.print("Enter A Number :");
int n = Integer.parseInt(br.readLine());
for(int i =1 ;i <= n ;i++)
{
for( j = 1 ; j <= i ;j++)
{
if(j==1) //as 1 is Common Factor For
All
{
cnt ++;
}
if(i % j == 0 && j !=i) //Condition j!=i because at
1st loop
//i=1 j=1 so i%j==0 and 1 is not prime no
{
cnt ++;
}
if(cnt == 3)
{
break;
}
if(cnt==2 && i == j )
{
System.out.println(i);
}
}
cnt=0;
}
}
catch(Exception e)
{
System.out.println(e);
}
}
public static void main(String args[])
{
new Prime();
}
}
| Is This Answer Correct ? | 7 Yes | 3 No |
What is perl? What is the basic command to print a string in perl?
i have a folder called 'error' and in that, i have error log files which are generated by the build, now i want to findout the string 'error' from each log file and that error has to be copied into the another file called 'analysis'. how do you do this in perl?
What is the difference between module and package?
What elements of the Perl language could you use to structure your code to allow for maximum re-use and maximum readability?
How can information be put into hashes?
Differentiate use and require?
What is epoch time in perl?
What are the reasons that cookie server can’t handle multiple connections?
Why does Perl not have overloaded functions?
How are parameters passed to subroutines in perl?
You want to download the contents of a url with perl. How would you do that?
When would `local $_' in a function ruin your day?
ASP 
