残業で帰りが12時過ぎ、、、 買って帰りたかったのに (T T)

http://movapic.com/fn7/pic/535798

http://movapic.com/fn7/pic/535753

http://movapic.com/fn7/pic/533009

http://movapic.com/fn7/pic/528953

http://movapic.com/fn7/pic/525782

結果表示用関数 sub p{ my ($f,@args) = @_; my @r = ($main::{$f}->(@args)); printf "$f -> %s\n", join(',',@r); } foldlを使って各値を出す sum: リストの合計 max: リストの最大値 min: リストの最小値 length: リストの長さ sub foldl{ my ($f,$init,@…

http://movapic.com/fn7/pic/520289

foldr,foldlのサンプル foldr (-) 4 [1, 2, 3] -- 1 - (2 - (3 - 4)) == -2 foldl (-) 1 [2, 3, 4] -- ((1 - 2) - 3) - 4 == -8perlで実装 sub foldr{ my ($func,$init,@list) = @_; my ($x,@rest) = @list; return $init unless $x; $func->($x,foldr($func…

't'を1000個ならべたものを1行として 1行のファイル、101行のファイル,201行のファイル、、、1001行のファイルを作成する for(my $n=1;$n<= 1001;$n+= 100){ open my $t,">","text/$n.txt"; $a=0; while($a++ < $n){ print $t 't'x1000; print $t "\n"; } cl…

http://movapic.com/fn7/pic/511444

http://movapic.com/fn7/pic/510170

http://movapic.com/fn7/pic/505538

perl -le 'sleep 1 and print "|" x (100 * `cat /proc/loadavg | cut -d " " -f1`) while 1'↑/proc/loadavgを見ればOK while :;do sleep 1; cat /proc/loadavg | cut -d " " -f1 | perl -nle 'print q{|}x($_*100)';done;↑こちらの場合は毎回perlを呼び出し…

http://movapic.com/fn7/pic/500859

http://movapic.com/fn7/pic/489262

http://movapic.com/fn7/pic/488249

http://movapic.com/fn7/pic/484837

http://movapic.com/fn7/pic/484411

http://movapic.com/fn7/pic/484385

http://movapic.com/fn7/pic/484301

http://movapic.com/fn7/pic/484098

http://movapic.com/fn7/pic/484071

http://movapic.com/fn7/pic/483985

http://movapic.com/fn7/pic/483759

http://movapic.com/fn7/pic/483742

http://movapic.com/fn7/pic/483681

文字列からNSDateを生成 NSDateFormatter *f = [[[NSDateFormatter alloc] init] autorelease]; [f setDateFormat:@"yyyy-MM-dd"]; return [f dateFromString:string]; NSDateから曜日を取得 NSCalendarからNSDateComponentsを取得する NSCalendar *calendar…