Haskellでsegmentation fault

原因　Arrayがでかすぎた