Help for this page

Select Code to Download


  1. or download this
     if ($card_map[$num]) {
    $card_map[$num]; # return value
...
    $num; # return value

 } # end if
  2. or download this
    $ perl -wle 'my @card_map = qw(zero one two three); print $card_map[-2
+]'
two
  3. or download this
    my $return_value = '';
if ($num < 0) {
...

$return_value .= $card_map[$num];
return $return_value;