Select Code to Download

#! perl -slw
use strict;
...
945678 is even
443572 is even
869659 is odd

sub odd { $_[ 0 ] & 1 }
sub even { !odd( $_[ 0 ] }