そういえば「有限と微小のパン」にはそういう場面があったなあ。乱数でテキトーに求めるPerlスクリプトを書いたけれど、自分もモヤモヤ。綺麗な解答例が見てみたい。 #!/usr/bin/env perl -w # pan.pl # -*- Mode: Perl; coding: shift_jis -*- use strict; …