[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
41: 2019/08/01(木)15:40 ID:eeSbVWum(1) AAS
>>38
大分前に作ったけど、コード紛失した。
アルゴリズムも忘れた。
ガーン。
42(1): 2019/08/01(木)15:47 ID:/tDwAGeP(1) AAS
年収n円の人が生活費と交遊費2種類だけで1年間の収入のすべてを消費するとして
税率がt1からt2に上がった時
税抜き価格ベースでの生活費が変動しないものと考えると
税抜き価格ベースでの交遊費の減少額はいくらになるか？
（端数は切り上げとする）
ex)
年収n=5,000,000
税率t1=8%
税率t2=10%
税抜き価格ベースでの生活費a
省5
43: 2019/08/01(木)16:10 ID:WaJjQk0q(1/2) AAS
>>42
wolfram
Simplify[ x-y, {5000000 == (a+x)*1.08,5000000 == (a+y)*1.1} ]
84175.1
44: 2019/08/01(木)16:16 ID:WaJjQk0q(2/2) AAS
切り上げか
Ceiling[ Simplify[ x-y, {5000000 ==(a+x)*1.08 == (a+y)*1.1} ] ]
84176
45(1): 2019/08/01(木)16:17 ID:9Ke7npq5(1/2) AAS
何も考えずにceiling(n/1.08-n/1.1)でいいんとちゃうけ？
46: 2019/08/01(木)19:07 ID:CMxA9z9p(1) AAS
>>32 Ruby
f = -> str {s = +str.delete(?\ ); (0..).each{|i| s.gsub!(/{}|\(\)/, '') || (break s.size.zero? ? i : -1)}}
['', '( )', '{ ( { ( ) } ( ) ) } ( )', '} {', '( { ) }'].each{|e| puts '%p => %d' % [e, f[e]]}
# =>
"" => 0
"( )" => 1
"{ ( { ( ) } ( ) ) } ( )" => 4
"} {" => -1
"( { ) }" => -1
47: 2019/08/01(木)21:02 ID:9Ke7npq5(2/2) AAS
>>45
ちょっと考えたらceiling(n/59.4)だったｗ
48(8): 2019/08/02(金)20:14 ID:fXsI78QL(1) AAS
お題: 数字が与えられるので、その数字を元の数より大きくなるように再構築せよ
大きくできなければ元の数字をそのまま出力せよ
例:
in < 123
out > 231, 213, 321, 312
in < 921
out > 921
49(1): 2019/08/02(金)20:54 ID:Awh9QXRy(1) AAS
123を入力したときに132が出力されないのはなぜ?
50: 2019/08/02(金)21:09 ID:ec2C26mu(1) AAS
パーミュテーション作って終わりじゃあないのコレ
51: 2019/08/02(金)21:52 ID:TUgs2HTj(1) AAS
>>49
ミスだよぉ！
52: 2019/08/02(金)22:45 ID:T1FFAKuC(1) AAS
そんなんばっかだなお前
53: 2019/08/03(土)01:06 ID:0ts56itm(1/2) AAS
>>48
外部ﾘﾝｸ:ideone.com
C++。ご期待通り（？）にパーミテーション回してみたよ。
重いお。
54(1): 2019/08/03(土)10:23 ID:t/Tc4Qxr(1) AAS
外部ﾘﾝｸ:ideone.com
from itertools import permutations
#string = "123"
string = "5672391"
n = int(string)
print filter(lambda m: m>n, map(lambda x: int("".join(x)), list(permutations(string, len(string)))))
55: 2019/08/03(土)10:27 ID:9AEx1UEu(1) AAS
なんて早いんだ
56(2): 2019/08/03(土)11:19 ID:4CYzcJxv(1) AAS
「大きくできなければ元の数字をそのまま出力せよ」という条件が
ことごとく無視されててワロタ
あと、「133」みたいに同じ数字が複数含まれる場合はどうなるべきなんだろう
57(1): 2019/08/03(土)11:39 ID:xpWLAw2C(1/4) AAS
AA省
58(1): 2019/08/03(土)11:43 ID:xpWLAw2C(2/4) AAS
>>57 ごめんなさい
print "$n " if $n > $v;
↓
print "$n " if $n >= $v;
じゃないと「大きくできなければ元の数字をそのまま出力せよ」を満たさなかった…orz
59: 2019/08/03(土)11:49 ID:xpWLAw2C(3/4) AAS
>>58 そうすると逆に
「元の数「より大きくなる」ように再構築せよ」
については、元の数値が余計に出力されるな…ｺﾞﾒﾝねもう一工夫要るわ
それにiteratorである必要ないわ
60(1): 2019/08/03(土)12:09 ID:xpWLAw2C(4/4) AAS
>>48 Perl5、iteratorじゃなくpermutationを列挙する方法で書いてみた。これなら題意に合うはず。
sub permu {
my ($l, $p, @r) = @_;
defined $p ? map {[$p, @$_]} permu([], @$l, @r) : ([])
,
@r ? permu([@$l, $p], @r) : ()
}
#$v = '123';
#$v = '321';
$v = '5672391';
省6
上下前次1-新書関写板覧索設栞歴
あと 942 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.154s*