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

---

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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

460(6): 2019/09/16(月)15:26 ID:eLMc9ESO(1) AAS
お題:１から１００までの自然数がある。ランダムに30個抜き出せ。

---

461: 2019/09/16(月)15:30 ID:4Q9Ti1cA(1) AAS
>>460 Ruby

p [*1..100].sample(30)

# => [13, 29, 96, 79, 78, 17, 89, 88, 69, 51, 44, 16, 54, 62,
47, 19, 45, 26, 43, 40, 91, 32, 30, 86, 84, 85, 15, 6, 41, 95]

---

462: 2019/09/16(月)16:08 ID:ShPpQTCq(1) AAS
>>460
Kotlin script

println((1..100).toMutableList().apply {shuffle()}.slice(0..29).joinToString())

---

463: 2019/09/16(月)16:53 ID:P3J/MfSa(1) AAS
>>460 Perl5、※選択に重複がないようにした

@a = 1..100;
use List::Util shuffle;
@b = (shuffle @a)[0..29];
print "@b\n";

実行結果
~ $ perl 15_460.pl
64 90 99 41 46 11 25 23 2 12 43 42 24 96 59 44 19 7 92 47 15 86 84 68 13 100 76 34 87 9

---

464(1): 2019/09/16(月)16:59 ID:ZgnCsjLO(1) AAS
>>460 J
(30?100) { >: i. 100

---

466: 2019/09/16(月)20:23 ID:LKlzCOg4(1) AAS
>>460 Pharo/Squeak Smalltalk

(1 to: 100) asArray shuffled first: 30

---

491(1): 2019/09/19(木)21:11 ID:VNRPdI7o(1) AAS
>>460 octave
外部ﾘﾝｸ:ideone.com

>>467 ruby
外部ﾘﾝｸ:ideone.com

---

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

---

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

---

ぬこの手 ぬこTOP 0.029s