ループを使わずに配列を逆にするヤツ

「だからどうだ」ってことですけど、（perlだとreverseあるので本来なら1オペで終わっちゃうけど）とりあえずループを使わずに与えた配列を逆にするコードの自己最短コードはこうなりました：

sub r{@_?(pop,r(@_)):()};

もう少し読みやすく展開するとこんな感じですね。ただの再帰処理です：

sub myreverse {
   if (@_ > 0) {
      return (pop @_, myreverse(@_));
   } else {
      return ();
   }
}

popで配列の最後の要素を最初に回して、残りを再帰処理してるだけー

トラックバック(0)

このブログ記事に対するトラックバックURL: http://mt.endeworks.jp/cgi-bin/mt-tb.cgi/2457

このページは、Dが2010年3月 4日 18:32に書いたブログ記事です。

ひとつ前のブログ記事は「王道キムチ」です。

次のブログ記事は「Perlで受注できる企業リスト」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。