Not to be completely rude here, but...

My employer recently asked me to take a test to gauge my coding ability... And I was absolutely delighted to see a section in which I could choose the language to solve the problem. I chose Perl, of course. Now... The task is to print all of the odd numbers between 1 and 13. Here's what I tried:

If the test is to judge your coding ability, shouldn't you work on your own answers?

(now, if it specifically states that it's an open reference test, and it's to judge your skill in overall ability to get the job done, and not just coding, it's okay, though)

Update: Well, if it's already done, I'd use one of the following, depending on the rest of the scope of the problem, as 'better' is a subjective thing

# better for speed
print "1\n3\n5\n7\n9\n11\n13\n";

# better for clarity
print "$_\n"
    foreach qw(1 3 5 7 9 11 13);

# better if you like C
for ( my $i = 1; $i < 14; $i += 2 ) {
    print "$i\n";
}

# better if you like walking backwards
for ( my $i = 13; $i > 0; $i-=2 ) {
    print "$i\n";
}

# better if you like while loops
my $i = 1;
do {
    print "$i\n";
} while ( ($i+=2) < 14 );

# better if you like join
print join("\n", qw(1 3 5 7 9 11 13), '');

# better if you like map
print map { "$_\n" } qw(1 3 5 7 9 11 13);

# better if you like printf
printf ("%i\n", $_)
    foreach qw(1 3 5 7 9 11 13);

# better if you don't like hard coding odd numbers
print map { "$_\n" } grep { $_ % 2 } ( 1 .. 13);

# better if you don't like white space.
print(join':',grep{$_%2}(1..13));

# better if you don't assume things
# (like 'don't print even numbers')
print map { "$_\n" } (1..13);

# better if you like strings
print "@{[grep{$_%2}(1..13)]}\n";

[download]

etc, etc, etc.

In reply to Re: Terse Code for Odd Numbers by jhourcle
in thread Terse Code for Odd Numbers by deep submerge

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.