週間チャレンジ094

Challenge 094

タスク・ワン・グループ

タスク
文字列は@Sです.
任意のランダムな順序で一緒にグループAnagramsにスクリプトを書く

マイソリューション
これはかなりまっすぐ進む.単語のリストを読んで、文字を順序でハッシュにグループ化し、ハッシュの値を表示します.単純化

例

» ./ch-1.pl opt bat saw tab pot top was
[ ("saw", "was"),
  ("bat", "tab"),
  ("opt", "pot", "top") ]

» ./ch-1.pl x
[ ("x") ]

2つのタスク木を連結したリストへのタスク

タスク
バイナリツリーが与えられます.
指定したバイナリツリーをオブジェクトとして表現するスクリプトを作成し、リンクリストオブジェクトにそれを平らにします.最後にリンクリストオブジェクトを出力します.

マイソリューション
OK、懺悔の時間.ときにこれらの課題を行う.私には二つの規則があります.1)自分で行う前に、人の解決策を読むことはないし、Perlコアの一部ではないモジュールを使わないでください.Perlはネイティブのリンクリストの実装を持っていないので、意図的にこのタスクの半分をスキップして最終結果を得ることができます.
この仕事は先週のsecond taskに似ています.私のコードは主にそれからコピーされます.パスを保存する代わりに、パスを歩くとき、@digits配列に追加します.

例

» ./ch-2.pl < example-1.txt 
1 -> 2 -> 4 -> 5 -> 6 -> 7 -> 3