再帰(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つの…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。