プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

500(11): デフォルトの名無しさん [] 01/27(月)09:16 ID:rqFJtGlJ(1)
お題
入力された文字列から重複する文字を抽出してください

T →
CG →
ATA → A
CGGA → G
ATGAT → AT
GTTGCA → GT
CCCCGGG → CG
ACTGCGAG → ACG
ATCAGAATA → AT
TGCCATGACA → TGCA

---

504: デフォルトの名無しさん [sage] 01/27(月)21:24 ID:LHxZVLOG(1)
>>500 octave
https://ideone.com/eLcVPC
function s = f(s)
[~, ia] = unique(s);
s(ia) = [];
if 1 < length(s)
[~, ia] = unique(s, 'first');
s = s(sort(ia));
end
end

>>500 ruby
https://try.ruby-lang.org/playground/#code=f+%3D+-%3Es+%7Bs.chars.tally.select+%7B1+%3C+_2%7D.keys.join%7D%0Ass+%3D+%3C%3CEOS.lines(chomp%3A+true)%0AT%0ACG%0AATA%0ACGGA%0AATGAT%0AGTTGCA%0ACCCCGGG%0AACTGCGAG%0AATCAGAATA%0ATGCCATGACA%0AEOS%0Aputs+ss.map+%7B%7Cs%7C+%22%23%7Bs%7D+-%3E+%23%7Bf.(s)%7D%22%7D&engine=cruby-3.3.0
https://ideone.com/9E5Z9a
f = ->s {s.chars.tally.select {1 < _2}.keys.join}

---

505: デフォルトの名無しさん [sage] 01/27(月)21:30 ID:l9HsQRRu(1)
>>485 lisp
https://ideone.com/Hiqt3o

>>500 lisp
https://ideone.com/eRqGSp

---

506(1): デフォルトの名無しさん [sage] 01/28(火)21:18 ID:oNqYbqge(1)
>>500 dart
https://ideone.com/WZzsxb

>>500 c
https://ideone.com/1c41ME

---

507: デフォルトの名無しさん [sage] 01/29(水)01:00 ID:4mvV5Tkg(1)
>>500 c++
https://ideone.com/5VRuHk

---

508: デフォルトの名無しさん [sage] 01/29(水)01:49 ID:PQfpjql4(1)
>>500
REM 重複チェック.bat
ruby -x "%~f0"
exit

#~
#!ruby
while 1
print "> "
a=$stdin.gets.chomp.split("")
exit if a==[]
puts a.select{|e| a.count(e)>1}.uniq.join
end

---

509: デフォルトの名無しさん [sage] 01/29(水)21:56 ID:GDFS0NvX(1)
>>500 java
https://ideone.com/zIZZ1G

---

511: 506 [sage] 01/30(木)21:43 ID:ID2xuR+0(1)
>>500 c
https://ideone.com/LLFaOP
・unsigned int m[128] = {0};を使って集計

---

535: デフォルトの名無しさん [sage] 02/07(金)19:14 ID:UF6GKvr5(1)
>>500
Wolfram Language

str = "ATGAT"
>> Out[1]= ATGAT

duplicates = str // Characters \
(* { A, T, G, A, T } *) \
// Counts \
(* <| A -> 2, T -> 2, G -> 1 |> *) \
// Select[Function[ 1 < # ]] \
(* <| A -> 2, T -> 2 |> *) \
// Keys \
(* { A, T } *) \
// StringJoin (* "AT" *)
>> Out[2]= AT

---

543: デフォルトの名無しさん [] 02/07(金)23:41 ID:qBbgMoXu(1)
>>500
PowerShell

"T", "CG", "ATA", "CGGA", "ATGAT", "GTTGCA", "CCCCGGG", "ACTGCGAG ", "ATCAGAATA", "TGCCATGACA" |% {
　　"$_ → $(-join ([char[]]$_ | group -case |% {$_.name[$_.count -le 1]}))"
}

[実行結果]
T →
CG →
ATA → A
CGGA → G
ATGAT → AT
GTTGCA → GT
CCCCGGG → CG
ACTGCGAG → ACG
ATCAGAATA → AT
TGCCATGACA → TGCA

---

551: 警備員[Lv.19] [] 02/09(日)03:56 ID:Y8d2noVo(2/2)
>>500
Kotlin
https://paiza.io/projects/eipNjg4meAtA7__e3JTRdg

---

835(1): デフォルトの名無しさん [sage] 09/08(月)23:02 ID:4SI/cFAg(1/2)
>>485 scheme (chicken 4.13)
https://ideone.com/feYtNB

>>500 scheme (chicken 4.13)
https://ideone.com/Svhv1y

---

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

---

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

---

ぬこの手 ぬこTOP 0.090s