2011-12-02から1日間の記事一覧
会社に入ると自分が持つべき目標を決めることになるが、いまいちちゃんとした目標を定めることができない。 自分という存在があまりにも刹那主義的であることは認めるけど、それにしたって目標を定めることに実感がないと思う。 目標がほしいと思っているの…
実行可能なブログ #!/home/xxxxxxx/perl5/perlbrew/perls/perl-5.10.1/bin/perl use strict; use warnings; use 5.010; use Data::Dump qw/dump/; # 続・初めてのPrelを読む # 第2章 中級者の基礎知識(を読みながら勝手に思いついたコードを書く) # 2011/12/…
# 奇数だけ出力 say grep $_%2, 1..10; # 偶数だけ出力 say grep !($_%2), 1..10;
# 3の倍数のkeyのときだけvalueをあほにする my %aho = map { $_ , $_ % 3 ? "あほじゃない" : "あほ" } 1..100; say "$_ : $aho{$_}" for sort {$a <=> $b} keys %aho;
# 素数だけ出力(grepでブロック式を使用) my @prime = grep { my $num = $_; my $count = 0; map {$num % $_ ? 0 : $count++ } 1..$num; $count == 2 ; } 1..100; say "@prime";