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