haskellでやったらやっぱり5秒はきつかった