暗号

keisuke_honda.pl

use strict;
use warnings;
use feature 'say';
use POSIX 'ceil';
use Time::Piece;
use Time::Seconds;

my $count = ceil(log(0.5) / log((shift(@ARGV) or 99.95) * 0.01));
my $begin_date = (Time::Piece->strptime("2019-05-01","%Y-%m-%d") - ONE_DAY * $count)->ymd;

say "${count}counts, Try on ${begin_date}";

# Rubyワンライナー
# ruby -rdate -e 'puts Date.new(2019,5,1)-(Math.log(0.5)/Math.log(0.9995)).ceil'

=encoding utf8

=head1 NAME

ケイスケホンダ

=head1 DESCRIPTION

  たかしくん(仮名)は本田圭佑とじゃんけんで勝負をすることになりました。
  1日1回だけじゃんけんをすることが可能で、平成が終わるまでに本田圭佑に1回でも勝てる確率を
  50％にするには、何年何月何日にじゃんけんを始めないと行けないでしょう？
  なお、本田圭佑が勝つ確率は99.95％とし、平成は、2019年4月30日23:59:59に終わるとする。
  
は？

=head1 USAGE

  perl keisuke_honda.pl <honda_winrate>
  # e.g.
  perl keisuke_honda.pl 98

引数が無い場合は本田圭佑の勝率は99.95%として計算される

=cut