golfday/s

gistfile1.pl

print "$_ day",do{'s' if $_!=1} for int(2.2);

print "$_ day",$_==1?'':'s' for int(2.2);

print"$_ day".'s'x!!($_-1)for int 2.2;

print"$_ day",$_-1?'s':''for int 2.2;

my $foo = map{"$_ day".($_-1?'s':'')}int 2.2;

my $foo = "$_ day".($_-1?'s':'')for int 2.2;