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

---

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

---

582(5): 2019/09/27(金)21:29 ID:vBAnAZ37(1) AAS
お題：リスト等の重複する要素を削除し、大きい順に並び替えよ
[3, 1, 4, 1, 5]
↓
[5, 4, 3, 1]

java
外部ﾘﾝｸ:ideone.com

rust
外部ﾘﾝｸ:ideone.com

ruby
外部ﾘﾝｸ:ideone.com
省2

---

583: 2019/09/27(金)22:41 ID:kWPPTdrf(1) AAS
>>582 Ruby

p [3, 1, 4, 1, 5].uniq.sort_by(&:-@)

# => [5, 4, 3, 1]

---

584: 2019/09/27(金)23:07 ID:Z4UqEtTG(1) AAS
>>582 javascript
[...new Set([3, 1, 4, 1, 5])].sort().reverse()

---

585: 2019/09/28(土)00:13 ID:OLAr2jSy(1) AAS
>>582 Pharo/Squeak Smalltalk

#(3 1 4 1 5) asSet sorted: #> "=> #(5 4 3 1) "

---

586: 2019/09/28(土)00:23 ID:gcUBCYXO(1) AAS
>>582 Perl5 二回答

%h = map{$_=>1} qw(3 1 4 1 5);
@a = sort{$b<=>$a} keys %h;
print "@a\n";

use List::Util 1.45 'uniq';
@a = uniq sort{$b<=>$a} qw(3 1 4 1 5);
print "@a\n"

実行結果、いずれも
~ $ perl 15_582.pl
5 4 3 1

---

597: 2019/09/28(土)10:58 ID:bVbqLRNA(1) AAS
>>582
@Mathematica

deleteDuplicatesSort[lst_] := lst //
　DeleteDuplicates //
　Sort[#, Greater] & ;

In[1] := deleteDuplicatesSort[{3, 1, 4, 1, 5}]
Out[1] = {5, 4, 3, 1}

# Mathematica のカーネルがいつの間にか無償開放されてた！
#
# 「「Mathematica」や“Wolfram|Alpha”の核「Wolfram Engine」が開発者向けに無償開放」
省1

---

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

---

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

---

ぬこの手 ぬこTOP 0.031s