[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

232(5): 2019/02/16(土)16:42 ID:hxDCwUVz(1)調 AAS
お題：数値Xを4つの方法で整数に丸めよ
(1) 0に向かう
(2) 0から遠ざかる
(3) 正の無限大に向かう
(4) 負の無限大に向かう

X = 0.5
=> 0 1 1 0

X = -1.1
=> -1 -2 -1 -2

X = 3
=> 3 3 3 3

---

236(1): 2019/02/16(土)17:27 ID:PD6v+6Vh(2/3)調 AAS
>>232 組み込み使っていいんだよね? (面倒になるけど、使わなくても書けるけどｻ…)
Perl5

use POSIX qw(floor ceil);
for (0.5, -1.1, 3) {
@a = ("$_ => ",
sprintf('%d', $_), #int($_),
($_ > 0 ? ceil($_) : ceil($_-1)),
ceil($_),
floor($_)
);
print "@a\n";
}

実行結果
~ $ perl 13_232_round.pl
0.5 => 0 1 1 0
-1.1 => -1 -2 -1 -2
3 => 3 3 3 3

---

237: 2019/02/16(土)17:33 ID:PfkkbXxw(1)調 AAS
>>230 Ruby
def bs(ary)
　　ary.tap do |a|
　　　　(a.size**2).times do
　　　　　　(a.size - 1).times do |i|
　　　　　　　　a[i + 1], a[i] = a[i, 2] if a[i] > a[i + 1]
　　　　　　end
　　　　end
　　end
end
p bs([3, 1, 4, 15, 92]) # => [1, 3, 4, 15, 92]

>>232
sgn = -> n {n <=> 0}
r4 = -> n {n.floor}
r3 = -> n {-r4[-n]}
r2 = -> n {sgn[n] * r3[n.abs]}
r1 = -> n {sgn[n] * r4[n.abs]}

[0.5, -1.1, 3].each{|i| puts 'x = %p => %p %p %p %p' % [i, r1[i], r2[i], r3[i], r4[i]]}
# =>
x = 0.5 => 0 1 1 0
x = -1.1 => -1 -2 -1 -2
x = 3 => 3 3 3 3

---

242: 2019/02/16(土)22:38 ID:lcFO2eao(2/2)調 AAS
>>240
間違えました
262ではなく>>232でした

---

243: 2019/02/16(土)23:30 ID:ReDOqu2L(1)調 AAS
>>232 octave
https://ideone.com/7nvSr1

---

244(1): ◆QZaw55cn4c 2019/02/17(日)00:20 ID:TOi2tzGo(1/2)調 AAS
>>232 をやろうとおもって、IEEE754 の float/double を直接触る方法を探しているのですが、なにかいい方法はないでしょうか…

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.038s