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

---

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

---

500(11): 01/27(月)09:16 ID:rqFJtGlJ(1) AAS
お題
入力された文字列から重複する文字を抽出してください

T →
CG →
ATA → A
CGGA → G
ATGAT → AT
GTTGCA → GT
CCCCGGG → CG
ACTGCGAG → ACG
省2

---

504: 01/27(月)21:24 ID:LHxZVLOG(1) AAS
>>500 octave
外部ﾘﾝｸ:ideone.com
function s = f(s)
[~, ia] = unique(s);
s(ia) = [];
if 1 < length(s)
[~, ia] = unique(s, 'first');
s = s(sort(ia));
end
end
省4

---

505: 01/27(月)21:30 ID:l9HsQRRu(1) AAS
>>485 lisp
外部ﾘﾝｸ:ideone.com

>>500 lisp
外部ﾘﾝｸ:ideone.com

---

506(1): 01/28(火)21:18 ID:oNqYbqge(1) AAS
>>500 dart
外部ﾘﾝｸ:ideone.com

>>500 c
外部ﾘﾝｸ:ideone.com

---

507: 01/29(水)01:00 ID:4mvV5Tkg(1) AAS
>>500 c++
外部ﾘﾝｸ:ideone.com

---

508: 01/29(水)01:49 ID:PQfpjql4(1) AAS
>>500
REM 重複チェック.bat
ruby -x "%~f0"
exit

#~
#!ruby
while 1
print "> "
a=$stdin.gets.chomp.split("")
exit if a==[]
省2

---

509: 01/29(水)21:56 ID:GDFS0NvX(1) AAS
>>500 java
外部ﾘﾝｸ:ideone.com

---

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

---

535: 02/07(金)19:14 ID:UF6GKvr5(1) AAS
>>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 |> *) \
省4

---

543: 02/07(金)23:41 ID:qBbgMoXu(1) AAS
>>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
省6

---

551: 警備員[Lv.19] 02/09(日)03:56 ID:Y8d2noVo(2/2) AAS
>>500
Kotlin
外部ﾘﾝｸ:paiza.io

---

835(1): 09/08(月)23:02 ID:4SI/cFAg(1/2) AAS
>>485 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com

>>500 scheme (chicken 4.13)
外部ﾘﾝｸ:ideone.com

---

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

---

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

---

ぬこの手 ぬこTOP 0.042s