#!c:/perl/bin/perl -w
use strict;

####List of Primes. If I made a mistake please let me know!
my @primes = (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 
+53, 59, 61, 67, 71, 73, 79, 83, 89, 97);
my $goal;


Get_Target();
Guess_and_Compare();

sub Get_Target{
   ###Gets two random primes a creates the goal.
   my $i = @primes;
   my $value1 = int(rand($i));
   my $value2 = int(rand($i));
   $goal = $primes[$value1] * $primes[$value2];   
}

sub Guess_and_Compare{
   ###Gets user input, and figures if you are right or not.
   my $try = 1;
   my $total = 0;
   while ( $goal != $total ){
      print "LIST OF PRIMES:\n@primes\n";
      print "Your goal is: $goal\n";
      print "Enter you first prime: ";my $guess1=<STDIN>;
      print "Enter you Second prime: ";my $guess2=<STDIN>;
      chomp($guess1, $guess2);
      $total = $guess1 * $guess2;
      if ( $total == $goal ){
         print "You got it in $try tries.\nThe Answer was, $guess1 and
+ $guess2 is $total\n";
      }
      else{
         print "The answer $guess1 and $guess2 is $total, is incorrect
+.\n\n";
      }
      $try++;
   } 
}

[download]

In reply to 2 bit Math puzzle by sparkyichi

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.