2010-02-01から1ヶ月間の記事一覧

Google Suggestでどんな言葉が一緒に検索されるかを調べる

Perlでそんなことができるものを作ってみた。 #!/usr/bin/env perl use strict; use warnings; use URI; use LWP::UserAgent; use JSON qw(decode_json); use Encode; my $query = shift @ARGV or die "Usage suggest.pl query\n"; my $uri = URI->new("http…

List::Util shuffle

配列をシャッフルしたいけど、どうするんだっけってよくなるので、 自分のためにメモ。 List::Utilパッケージに shuffleという関数があって それをリストに対して適用すればいいだけど、 #!/usr/bin/env perl use strict; use warnings; use List::Util qw(s…

Higher order perl 1_2

Higer order perl 1_2は階乗に関するお話。 factorialで再帰の例題でよく使われる例ですね。 人によるとこんなに再帰で使うべきでないから逆に 教えるなといいますよね。でもまあ勉強なんで。 比較のコードを書いてみた。 #!/usr/bin/env perl use strict; u…

Higer order perl 1_3

1_3。ハノイの塔。いかにも再帰な問題ですね。 初めて学生の授業でやったときは意味不明でしたね。 大学院でプログラミングの授業で教えるお手伝いをした ときに意味が完全に理解できました。再帰のすごさを知る いい問題だと思います。 Mooseで書いてみたが…

Higher order perl 1.1

Higher order perlという本を買いました。他の本を読んでいる途中なので ちら見した程度ですが、とりあえず 1.1を読みました。 10進数を2進数にするというものですが、その関数が再帰関数であるという ことが特徴的なんですかね。 で、比較のコードを書きた…