Select Code to Download

#!/usr/bin/env perl

...

    return $num_type;
}

1 is positive
two is non-integer
...
3.4 is non-integer
zero is non-integer
0 is zero