みんなの意見と同様ですが、プログラムを見た感じ一定の法則がありそうなので、その辺を工夫してFORで構築すれば今よりは短くなりそうな気はしますね。