[ create a new paste ] login | about

Link: http://codepad.org/sQORuU8S    [ raw code | fork ]

sironekotoro - Perl, pasted on Sep 23:
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/env perl
use strict;
use warnings;

my $number = <STDIN>;
chomp $number;

if ($number % 2 == 0){
    print "even\n";
}else{
    print "odd\n";
}


Create a new paste based on this one


Comments: