⛳PerlAnybatross

アルファベット小文字と半角スペースを用いて分かち書きされたテキストが標準入力で与えられます。このテキストを以下のルールに従って圧縮してください。

1. テキストを半角スペースで分割し、単語にわけます

入力例: launchpad launchsite launchcrew

処理例: ["launchpad", "launchsite", "launchcrew"]

2. それぞれの単語の中で、隣り合う文字についてペアを作ります

処理例: ["la", "au", "un", "nc", "ch", "hp", "pa", "ad", "la", "au", "un", "nc", "ch", "hs", "si", "it", "te", "la", "au", "un", "nc", "ch", "hc", "cr", "re", "ew"]

3. それぞれのペアの出現頻度を調べます

処理例: { "la": 3, "au": 3, "un": 3, "nc": 3, "ch": 3, "hp": 1, "pa": 1, "ad": 1, "hs": 1, "si": 1, "it": 1, "te": 1, "hc": 1, "cr": 1, "re": 1, "ew": 1 }

4. 最も多いペアを1つ見つけてそれをAに置き換えて元の文に戻します。また置き換えたペアを記録します

最も出現頻度が多いペアが複数ある場合は、文章中で最初に出現したものを選びます。

また、置き換えたペアは辞書の形で記録します。辞書のキーはA, B, C...の順に割り当てます。

処理例: ["Aunchpad", "Aunchsite", "Aunchcrew"], { "A": "la" }

5. 2〜4を繰り返します。全ての頻度が1になるまで繰り返します

1. ["Aunchpad", "Aunchsite", "Aunchcrew"], { "A": "la" }
2. ["Bnchpad", "Bnchsite", "Bnchcrew"], { "A": "la", "B": "Au" }
3. ["Cchpad", "Cchsite", "Cchcrew"], { "A": "la", "B": "Au", "C": "Bn" }
4. ["Dhpad", "Dhsite", "Dhcrew"], { "A": "la", "B": "Au", "C": "Bn", "D": "Cc" }
5. ["Epad", "Esite", "Ecrew"], { "A": "la", "B": "Au", "C": "Bn", "D": "Cc", "E": "Dh" }

6. 最終的に圧縮されたテキストと置き換えたペアを以下の形で出力します

1行目が置き換えたペア(辞書)をカンマ区切りで表したもの、2行目が圧縮されたテキストになります。

出力例:

A:la,B:Au,C:Bn,D:Cc,E:Dh
Epad Esite Ecrew