プログラミングのお題スレ Part22 (859ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
501: 9 [sage] 2025/01/27(月) 17:15:59.64 ID:cwZgX9Gy Perl5 for (qw{T CG ATA CGGA ATGAT GTTGCA CCCCGGG ACTGCGAG ATCAGAATA TGCCATGACA}) { %h = (); $h{$_}++ for split ''; print "$_ → ", (grep{1 < $h{$_}} keys %h), "\n"; } ※見易くするためインデントを全角スペースに置換してあります 実行結果 ~ $ perl 22_500_dupe_char.pl T → CG → ATA → A CGGA → G ATGAT → TA GTTGCA → GT CCCCGGG → CG ACTGCGAG → GAC ATCAGAATA → TA TGCCATGACA → TGAC http://mevius.5ch.net/test/read.cgi/tech/1691038333/501
502: 9 [sage] 2025/01/27(月) 21:20:12.94 ID:cwZgX9Gy >>501 Coilotに入力して処理内容を問うてみたらちゃんと返してきてワラタ https://copilot.microsoft.com/chats/rbPk2t5sxTRgAPM8BeSxZ http://mevius.5ch.net/test/read.cgi/tech/1691038333/502
503: 9 [sage] 2025/01/27(月) 21:22:36.75 ID:cwZgX9Gy CopilotのURLをコピペしても他の人に内容を見せることはできなかったワ…orz http://mevius.5ch.net/test/read.cgi/tech/1691038333/503
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.036s