一日目：１２５ 二日目：１１ 三日目：１０ 四日目：７０

仕組み 各文字の出現頻度を数えて一番多いものに"1"、二番目に"01"、三番目に"001"を割り振る。 ex "aaaaaaaaaaaa" -> "11111111111" その後6ビットずつに区切る ex "11111111111" -> ["111111","111111"] 2進数として読み、文字に変換する ex ["111111","11…

Haskellで作るものが思いつかないのでheadコマンドを実装してみた。 main = do cs <- getContents putStr $ unlines $ take 10 $ lines cs