帯分数をDouble型に変換するtoDouble関数実装
Merge https://github.com/MichaeGon/ExperimentOfHaskell