サンプルスクリプト use Pepsi; # 問題設定をする。 my $pepsi = Pepsi->new( kind=>5 # 5種類のおまけつき食玩具 ); print $pepsi->percent(10); # 10本あけて、コンプする確率は？ print "\n"; print $pepsi->limit(0.9); # では、コンプ率が90％を超える…

ペプシ算 - 永字八法の続き ペプシ算のクラスを作ってみた。 ※書き直した！ サンプルスクリプト use Pepsi; # 問題設定をする。 my $pepsi = Pepsi->new( kind=>5, # 5種類のおまけつきを bottle=>12 # １ダース買う ); $pepsi->calc; # 計算する my $result…

一度、やってみたいことがある。 かかってきた資格勧誘の電話に対して、 「ノルマとかあるの？」「時給いくら？」「会社名とかどうなってんの？」「ノウハウ教えて」 とか、逆に聞いてみたい。 それと同様に、道でティッシュ配ってる人に対して、一分あたり…

サンプルスクリプト use Pepsi; # 問題設定をする。 my $pepsi = Pepsi->new( kind=>5 # 5種類のおまけつき食玩具 ); print $pepsi->percent(10); # 10本あけて、コンプする確率は？ print "\n"; print $pepsi->limit(0.9); # では、コンプ率が90％を超える…

ペプシ算 - 永字八法の続き ペプシ算のクラスを作ってみた。 ※書き直した！ サンプルスクリプト use Pepsi; # 問題設定をする。 my $pepsi = Pepsi->new( kind=>5, # 5種類のおまけつきを bottle=>12 # １ダース買う ); $pepsi->calc; # 計算する my $result…

一度、やってみたいことがある。 かかってきた資格勧誘の電話に対して、 「ノルマとかあるの？」「時給いくら？」「会社名とかどうなってんの？」「ノウハウ教えて」 とか、逆に聞いてみたい。 それと同様に、道でティッシュ配ってる人に対して、一分あたり…

サンプルスクリプト use Pepsi; # 問題設定をする。 my $pepsi = Pepsi->new( kind=>5 # 5種類のおまけつき食玩具 ); print $pepsi->percent(10); # 10本あけて、コンプする確率は？ print "\n"; print $pepsi->limit(0.9); # では、コンプ率が90％を超える…

一度、やってみたいことがある。 かかってきた資格勧誘の電話に対して、 「ノルマとかあるの？」「時給いくら？」「会社名とかどうなってんの？」「ノウハウ教えて」 とか、逆に聞いてみたい。 それと同様に、道でティッシュ配ってる人に対して、一分あたり…

ペプシ算 - 永字八法の続き ペプシ算のクラスを作ってみた。 ※書き直した！ サンプルスクリプト use Pepsi; # 問題設定をする。 my $pepsi = Pepsi->new( kind=>5, # 5種類のおまけつきを bottle=>12 # １ダース買う ); $pepsi->calc; # 計算する my $result…