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;
}

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();
}
}

What's the difference between /^Foo/s and /^Foo/?

0 Answers  

---

Write a script to reverse a string without using Perl's built in function

8 Answers   Nokia,

---

You want to add two arrays together. How would you do that?

0 Answers  

---

what is the main function of fork() in cgi programming?

0 Answers  

---

What does the command "use strict" do and why should you use it?

2 Answers   Symphony, TCS,

---

What is epoch time in perl?

0 Answers  

---

How can we create perl programs in unix, windows nt, macintosh and os/2 ?

0 Answers  

---

How would you replace a char in string and how do you store the number of replacements?

2 Answers  

---

Explain lists in perl?

0 Answers  

---

How to disable the mod_perl from apache_server as i have used perlfect search on the site and its pagination is not working and the remedy is to disable the mod_perl.

0 Answers  

---

Perl regular expressions are greedy" what does this mean?

0 Answers  

---

What is the tk module?

0 Answers  

---