Opened by renee at 2005-05-19 22:41
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
my $year = $ARGV[0] || 0;
print is_leap_year($year) ? "$year is a leap year.\n" : "$year isn't a leap year.\n";
exit;
sub is_leap_year {
my $year = shift;
return ($year % 400 == 0 || $year % 100 != 0 && $year % 4 == 0) ? 1 : 0;
}
ohne Klammern ists schöner!
Aber sowas scheitert dann leider oft an der Allgemeinbildung (was aber eigentlich nicht sein dürfte.)
Wenn man nämlich die mathematische Definition des Schaltjahrs nicht kennt, bringt einem die besten Programmierkenntnisse nix. :)