演習１５のコードです。