プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
500(11): 01/27(月)09:16 ID:rqFJtGlJ(1) AAS
お題
入力された文字列から重複する文字を抽出してください
T →
CG →
ATA → A
CGGA → G
ATGAT → AT
省5
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');
省7
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
省5
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 \
省7
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 →
省9
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.036s