無精・短気・傲慢

perlの事 いろいろ

2015-05-16から1日間の記事一覧

アルゴリズム(algorithm)

再帰(recursion)などでONELINERで書ける物を集めてみる 1~10までを足す perl -E 'sub f{$_[0]>1?$_[0]+f($_[0]-1):$_[0]} say f(10)' ・1回で計算出来ればその方が良いに決まっている perl -E 'sub f{($_[0]+$_[1])*($_[1]-$_[0]+1)/2} say f(1,10)' 2つの…