４年に１回+6,62以上は１の位を値とするような式。

こんばんわ。前回はお世話になりました。
今回　占いの仕組みで
毎年+5をするのですが、
閏年の関係で、４年に１回+6になるという文章が作りたいです。
またその合計が62以上になったら、１の位を値とするとしたいです。
$a=1914;
$b=-5+24;

while($a <= 2020){
print $b=$b+5;
print " ";
print $a;
print "<br>";
$a++;

if ($b >= 62){ $b-60; }
if ($? == $?*4){ $b+1; }

}
if文の入れる位置も分かりませんし、４回に１回6増やす式も分かりません。なので?になっています。
よろしくお願いします。

No.1 ベストアンサー 回答者： 11th_style 回答日時： 2008/12/07 02:29

n回に1回と言う処理は、剰余を使うのがセオリーです。

$b++ if $a % 4 == 0;


ただ、今回の目的って「4年に1回」ではなく「閏年だけ」+6ですよね？ $aが閏年か判定する関数を作った方がいいと思われます。(参考URL)

参考URL：http://d.hatena.ne.jp/perlcodesample/20081012/12 …

この回答へのお礼

返答ありがとうございます。
関数の勉強をしてからまた来ることにします。
ありがとうございました。

お礼日時：2009/01/24 18:07