p312Bのコードを短くしました。