If a number is guessed right on the 1st try, that would be try number 1, not 0. Right? In that case, number of tries in the output should reflect reality...

... if ($guess == $answer) { printf "\nYou got it right!\nIt took you only %u tries.\n" , ++$tries; ...

Personally, i don't like the fact that $dbm{total}++ happens at two different places. You could move it out of the if..else structure (before or after).

At the end, there are just way too many print statements. What do you think of replacing them w/ "here document"?

Since you are saving the percentages in variables and lost percentage w/ won percentage make 100, you could just subtract one from 100 to calculate the other instead of doing the same calculation twice. If you were not temporarily storing the percentages, then you would have to calculate the two percentages individually.


In reply to Re: Guess A Number by parv
in thread Guess A Number by sulfericacid

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.