久々のワンライナーネタ。 http://d.hatena.ne.jp/minsaa/20090406/1238987334を読んでて思いついたので。 以下、グレゴリオ暦を使うという前提で。 条件分岐を連ねるならPerlでは三項演算子かな？閏年のときだけ1を返すようにしてみた。 perl -le 'print +(…