>>755
これこのままPerlのコードだったのか
擬似コードのつもりで書いちゃった

木と森が被ってもバグだから
全部if() else()〜で書き直さないとダメだね