|
uchinyan |
|
勉強をかねて、perl で組んでみました。不慣れなので効率は悪いと思いますが．．．
# Sunsuu Challenge 448 foreach $d (2..4) { # 2日目と4日目との差が、1日あたり、最小で2枚、最大で4枚なので。 foreach $a (24..26) { # 2日目を基に。 foreach (3..8) { # 8日目までを計算。 $a += $d; if((($_ == 4) && (($a < 30) || ($a > 32))) || (($_ == 5) && (($a < 35) || ($a > 37)))) { last; # 条件を満たさない場合には次へ。 } elsif($_ == 8) { print "$a "; # 答えを出力。 } } } } |
|
ネコの住む家
4月28日（木） 17:38:47
MAIL:uchi@sco.bekkoame.ne.jp 24972 |