ボウリングのスコアを計算するスクリプトをHaskellで書いてみた

某日某所にてボウリングのスコアを計算するプログラミングフィッシュボウルが行われていたのですが、 都合が付かずに参加できなくてくやしい思いをしたので、同じ課題をHaskellで書いてみました。

問題

ボウリングのスコアシートの上の部分が与えられたときに、その最終スコアを計算せよ。

入力

• ボウリングのスコアシートの上の部分を示す文字列

20文字程度長さのの文字列で、入力として可能な文字は次の通りです。

• - はガター
• / はスペア
• X はストライク
• 1〜9 は倒したピン数

出力

ゲームのスコアを表す整数

入出力例

• 入力「’XXXXXXXXXXXX’」は全ストライクなので、出力は「300」
• 入力「9-9-9-9-9-9-9-9-9-9-」は全フレームで「1投目で9本倒すが2投目はガター」なので、出力は「90」

なお、ボウリングのスコア計算法は数多くのサイトで紹介されているので、ここでは割愛します。自分では次のページを参照しました。

• ほわいとのボウリング講座：スコア編: 計算方法の紹介

Haskelltの回答例

• スペアの処理にちょっと手間がかかります
• それによって最終フレームがややこしくなりました
• フレームごとに分けるとストライクのボーナスである次の2投分の計算がややこしくなるので避けたほうがよいです