[過去ﾛｸﾞ] プログラミングのお題スレ Part17 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
75: 2020/04/03(金)20:06 ID:etO49JcP(1) AAS
粘着者湧いてるじゃん
76: 2020/04/03(金)20:13 ID:D8CnMwXH(1/2) AAS
>>72
js
result=input==""?"":Number(input)
77: 2020/04/03(金)20:17 ID:Ea8es11U(1) AAS
>>72
perl5
外部ﾘﾝｸ:pastebin.com
78: 2020/04/03(金)20:17 ID:D8CnMwXH(2/2) AAS
すまん、よく読んでなかったわ
79(1): 2020/04/04(土)00:40 ID:oi+wB/l2(1) AAS
>>72 Perl5
for $a (qw{090 0080 123 0 000}) {
($b = $a) =~ s/^0*([\d])/$1/;
print "$a → $b\n"
}
実行結果
~ $ perl 17_72_0dec.pl
090 → 90
0080 → 80
123 → 123
省2
80(1): 2020/04/04(土)00:43 ID:7bsK3hPl(1) AAS
>>79 いや、([\d])は(\d)で十分だた…
for $a (qw{090 0080 123 0 000}) {
($b = $a) =~ s/^0*(\d)/$1/;
print "$a → $b\n"
}
81(1): 2020/04/04(土)01:02 ID:PfYZfNM0(1) AAS
>>80
r オプションつかうと括弧省ける
$b = $a =~ s/^0*(\d)/$1/r;
82: 2020/04/04(土)01:49 ID:jL2VaRwC(1) AAS
>>81
そっか、今度から置換代入にはr使ってみる。
も少し書き換えたら、こうなった
for (qw{090 0080 123 0 000}) {
/^0*(\d+)/;
print "$_ → $1\n"
}
~ $ perl 17_72_0dec.pl
090 → 90
0080 → 80
省3
83: 72 2020/04/04(土)12:46 ID:1ehA2Rbs(1) AAS
>>72
Ruby で
def delete_successive_zero( str )
return "" if str == ""
str.to_i.to_s # 10進数
end
ary = %w(090 0080 123 0 000)
ary.push ""
p ary.map { |str| delete_successive_zero( str ) }
省2
84: 2020/04/04(土)13:37 ID:tmNSQTrZ(1) AAS
AA省
85(2): 2020/04/04(土)13:48 ID:qnbQjwAi(1) AAS
>>72 Python
def strip(s):
s = s.lstrip('0')
if not len(s):
return '0'
return s
86: 2020/04/04(土)14:34 ID:VszBH+2q(1) AAS
>>72
Java
外部ﾘﾝｸ:paiza.io
87: 2020/04/04(土)23:52 ID:sokSr0we(1) AAS
>>85
""が0になりませんか
88: 2020/04/05(日)01:07 ID:14D27qM5(1/3) AAS
>>72
>>85修正
外部ﾘﾝｸ:ideone.com
89(1): 2020/04/05(日)05:36 ID:sZO7YFrq(1/2) AAS
>>72
Perl5
ある意味手抜きなプログラムである。
外部ﾘﾝｸ:paiza.io
オマケ機能としてマイナスの時に -00009 みたいなやつも -9 になるようにした。
更に、整数の数でない場合(文字列の場合)はダブルクォーテーションで括って出すようにした。
90: 2020/04/05(日)05:42 ID:sZO7YFrq(2/2) AAS
>>72
Kotlin
外部ﾘﾝｸ:paiza.io
>>89よりも更にもっと手抜きである。びっくりするほど何もやってない。仕様は同じ。
91: 2020/04/05(日)06:46 ID:14D27qM5(2/3) AAS
あ〜マイナス値は考慮してなかったな〜
92: 2020/04/05(日)06:56 ID:RExqiO2w(1) AAS
教えて君の質問に馬鹿正直に答えてやるなよ
93: 2020/04/05(日)07:43 ID:14D27qM5(3/3) AAS
>>72 Python
外部ﾘﾝｸ:ideone.com
PerlとKotlinの人のに比べると長くなってしまったのが心残り
94: 2020/04/05(日)12:55 ID:SfC0ZJYK(1/5) AAS
粘着君の意に反して回答わっさわっさ来ててワロタ
上下前次1-新書関写板覧索設栞歴
あと 908 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.331s*