負数の剰余
[Perl]
配列の最初の添え字の一つ前は最後の添え字にしてループしたかった。
例:
配列の最後の添え字が 5、今の添え字が x、前に戻る数を y、戻った時の添え字が z
1.x=1,y=2,z=4
2.x=1,y=3,z=3
3.x=1,y=5,z=1
4.x=1,y=8,z=3
5.x=1,y=9,z=2
6.x=1,y=10,z=1
7.x=0,y=1,z=4
8.x=4,y=5,z=4
9.x=3,y=8,z=0
↓
z = (x - y) % 5
ex) http://oshiete1.goo.ne.jp/kotaeru.php3?q=1057715
ex) http://www.hokuriku.ne.jp/fukiyo/math-qa/amari.htm
ex) http://d.hatena.ne.jp/kazusato77/20080121/1200871085
google 電卓は Perl/Pythonと同じ。
JavaScriptはまた違うし、これはハマる。