Help for this page

Select Code to Download


  1. or download this
    "112358" =~ /['0' | '2' | '4' | '6' | '8']$/i ? print "even\n" :  prin
    +t "odd\n";
    
  2. or download this
    my $n = 112358;
    $n =~ /['0' | '2' | '4' | '6' | '8']$/i ? print "even\n" :  print "odd
    +\n";