diff options
Diffstat (limited to 'report/script.pl')
| -rwxr-xr-x | report/script.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/report/script.pl b/report/script.pl new file mode 100755 index 0000000..6f2b764 --- /dev/null +++ b/report/script.pl @@ -0,0 +1,2 @@ +#!/usr/bin/perl +print S(@ARGV);sub S{$r=(@_[0]%4==0&&@_[0]%100!=0)||@_[0]%400=0;} |