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

---

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

---

504(10): 2019/09/21(土)00:27 ID:dB3ZeAcF(1) AAS
お題: 同じ文字列がいくつあるか数えるプログラムを作成しなさい。
※出力は出現回数順でソートされている必要はありません。

入力
Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
省6

---

505: 2019/09/21(土)00:39 ID:6wFtRpPA(1/5) AAS
>>504 Perl5

$h{$_}++ for qw{Hoge Fuga Foo Fuga Foo Hoge Bar Fuga};
print "$_ $h{$_}\n" for keys %h;

実行結果
~ $ perl 15_504.pl
Fuga 3
Hoge 2
Bar 1
Foo 2

---

506: 2019/09/21(土)00:45 ID:Ei1MM/mp(1/2) AAS
>>504
https://ideone.com/5PI58a
C++。今回はメインロジックの記述が少なくて楽だった。

---

507: 2019/09/21(土)00:46 ID:YPz6oCKs(1) AAS
>>504
cat text
Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga
省5

---

511: 2019/09/21(土)05:21 ID:DxluyDWg(2/2) AAS
>>504
Kotlin
https://paiza.io/projects/iaaP87ST43fSPdMkOiqSGQ

---

512: 2019/09/21(土)05:37 ID:RmdAWOHY(1) AAS
>>504 Ruby
a=readlines.map(&:chomp)
a.uniq.each{|v| puts("#{v} #{a.count(v)}")}

---

513: 2019/09/21(土)15:59 ID:uZ0K83Mw(1/2) AAS
>>496 ruby
https://ideone.com/VtI7C7
puts readlines.sort_by {|s| s[/\d+$/].to_i}

>>504 ruby
https://ideone.com/Sw6k17
puts $<.read.scan(/\w+/).group_by(&:itself).map {|a, b| '%s %d' % [a, b.size]}

---

518: 2019/09/21(土)18:24 ID:9SoaGQ4l(1) AAS
>>504
Common Lisp https://ideone.com/VW5xja
Perl https://ideone.com/kfn4xI

---

528: 2019/09/21(土)22:45 ID:Awwp+36u(1) AAS
>>504 Ruby

p $<.map(&:chomp).yield_self{|e| e.uniq.map{|v| [v, e.count(v)]}}

# => [["Hoge", 2], ["Fuga", 3], ["Foo", 2], ["Bar", 1]]

---

531: 2019/09/22(日)01:25 ID:35++XhB6(2/6) AAS
>>504 Pharo/Squeak Smalltalk

'Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga' lines asBag sortedElements

"=> {'Bar'->1 . 'Foo'->2 . 'Fuga'->3 . 'Hoge'->2} "

---

576: 2019/09/23(月)13:54 ID:2RLjyW/B(1) AAS
>>504 Lua

a={}
for x in io.lines() do a[x]=(a[x] or 0)+1 end
for k,v in pairs(a) do print(k,v) end

---

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

---

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

---

ぬこの手 ぬこTOP 0.424s*