「Perlでフィボナッチ数列を求めてみる」の続き 〜CodeIQ解答編〜 - HYLOGICS
前回の続き このエントリは以下のエントリの続きになっています。 http://blog.hylogics.com/entry/perl_fibonacci_1 http://blog.hylogics.com/entry/perl_fibonacci_1 前回のエントリではフィボナッチ数を求めるにあたり以下の問題が発生しました。 順当に再帰で数列を書くと計算量が大きくなる(処理が遅くなる)。 再帰した内容を配列に入れると処理は早くなるがメモリを逼迫する。 今回はこれらを解決したいと思います。 その前に、出題内容を振り返ってみましょう。 出題内容 挑戦者求む！下3桁のみのフィボナッチ数列から、任意の項を素早く求めてください。 by CodeIQ運営事務局 アプリケーションエンジニアを募集する企業│CodeIQ 与えられた課題は以下の通りです。 普通にフィボナッチ数を求めると桁あふれが発生する
Perlでフィボナッチ数列を求めてみる - HYLOGICS
CodeIQ眺めてたらこんなお題があったのでやってみました。 挑戦者求む！下3桁のみのフィボナッチ数列から、任意の項を素早く求めてください。 by CodeIQ運営事務局 アプリケーションエンジニアを募集する企業│CodeIQ まず、さくっと素直にフィボナッチ数列を書いてみます。 #! /usr/bin/perl use strict; sub get_fibonacci{ my $n = shift; if( $n == 0 ){ return 0; }elsif( $n == 1){ return 1; }elsif( $n > 1){ return get_fibonacci( $n - 1 ) + get_fibonacci( $n - 2 ); } } my $arg = shift; print get_fibonacci( $arg ); 書いてみて、これは再帰のテストだなと
Perlの食えない事情 - 演算子編 - アリ
Perlの食えない事情 より おっと、そうです、Perlには演算子が多すぎるのでした。せっかくの機会なので、Perlの演算子を紹介します。 ビーナス演算子: 0+, +0 数値として評価してくれます。意外とよく見かけますね。 なぜこの演算子を使う必要があるのかというと、Perlは文字列と数値を明確に区別できないからです。scalarを文字列として解釈するならば文字列として、 print 0+ '10'; #=> 10 print 0+ '123b'; #=> 123 print '1.2e3' +0; #=> 1200 print [] +0; #=> 4303367864 ちなみに、文字列として評価するときにはこのようにするとかっこいいと言われています。 $obj.q(); 一見メソッド呼び出しのように見えますが $obj . ''; と等価です。 ベビーカー演算子: @{[ ]} 文字
Perl-users.jp - 日本のPerlユーザのためのハブサイト
Perl Mongers Perl Mongers とは、日本各地に存在する、Perl ユーザーのコミュニティのことです。各種イベントが行われていますので、是非参加してみましょう。 Shibuya.pm Fukuoka.pm Kansai.pm (@kansaipm) Yokohama.pm (@yokohamapm) Hokkaido.pm (@hokkaidopm) Nagoya.pm (@nagoyapm) Kushiro.pm (@kushiropm) Kyoto.pm (@kyotopm) Kamakura.pm Niigata.pm (@niigatapm) Sendai.pm (@sendaipm) Tokyo.pm Hachioji.pm (@hachiojipm) Chiba.pm (@chibapm) Yomitan.pm (@yomitanpm) Machida.pm
Perl 非同期プログラミング
1. 非同期プログラミング with Perl 2010/08/07 Japan Perl Association 代表理事 株式会社ライブドア 牧 大 輔 (@lestrrat) 3. 普通の書き方 use strict; use LWP::UserAgent; my @urls = qw( http://www.livedoor.com/ http://www.dena.jp/ http://mixi.jp/ http://www.gaiax.co.jp/ ); my $ua = LWP::UserAgent->new(); foreach my $url (@urls) { my $res = $ua->get( $url ); ... }
Yapc Asia 2009 ペパボでのPerlの使い方
8. • gihyo.jp Puppet, Func • http://gihyo.jp/admin/serial/01/puppet • http://gihyo.jp/admin/serial/01/func • MASHUP++ Plagger • http://www.amazon.co.jp/dp/4861671655/
Kansai.pm 10周年記念 Plack/PSGI 入門
The document discusses various web application frameworks and deployment methods in Perl. It covers common frameworks like CGI, mod_perl, Catalyst, and PSGI. It then discusses running PSGI applications with plackup, configuring middleware, and deploying PSGI apps behind web servers or as standalone daemons. Finally, it briefly covers application deployment and management with tools like daemontool
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
【Linux】dfの出力結果をスクリプトで見やすくカスタマイズ - HYLOGICS
bayashi.jp
Danga::Socketの非同期処理の仕組みとPerlbalで非同期処理するプラグインを書く方法
モダンPerlの世界へようこそ 記事一覧 | gihyo.jp