http://www.ioi-jp.org/joi/2006/2007-ho-prob_and_sol/2007-ho.pdf の問題1。普通にやっても全然面白くないので、 step 関数で無駄な計算を減らすように少し工夫してみた。が、リストの末尾に要素を追加するコストを考えると毎回計算した方が速い気もする。…

いろいろやってるときにできた副産物。無限リストでも大丈夫。 mergeSortN :: Ord a => [[a]] -> [a] mergeSortN = foldl1 mergeSort2 mergeSort2 :: Ord a => [a] -> [a] -> [a] mergeSort2 a [] = a mergeSort2 [] b = b mergeSort2 (a:aa) (b:bb) | a <= …

http://www.ioi-jp.org/joi/2006/2007-ho-prob_and_sol/2007-ho.pdf から。工夫した点は特にありません。 -- -- http://www.ioi-jp.org/joi/2006/2007-ho-prob_and_sol/2007-ho.pdf -- problem 5-3 -- import Text.ParserCombinators.Parsec import Data.Lis…