index
:
school/cpnt-320.git
main
Unnamed repository; edit this file 'description' to name the repository.
git
summary
refs
log
tree
commit
diff
log msg
author
committer
range
path:
root
/
report
/
script.pl
blob: 6f2b7648948b9f9268c0d9c9b6f6a5a852540e6c (
plain
)
1
2
#!/usr/bin/perl print S(@ARGV);sub S{$r=(@_[0]%4==0&&@_[0]%100!=0)||@_[0]%400=0;}