プログラミングのお題スレ Part22 (863ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
500: デフォルトの名無しさん [] 2025/01/27(月) 09:16:22.69 ID:rqFJtGlJ お題 入力された文字列から重複する文字を抽出してください T → CG → ATA → A CGGA → G ATGAT → AT GTTGCA → GT CCCCGGG → CG ACTGCGAG → ACG ATCAGAATA → AT TGCCATGACA → TGCA http://mevius.5ch.net/test/read.cgi/tech/1691038333/500
504: デフォルトの名無しさん [sage] 2025/01/27(月) 21:24:28.42 ID:LHxZVLOG >>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} http://mevius.5ch.net/test/read.cgi/tech/1691038333/504
505: デフォルトの名無しさん [sage] 2025/01/27(月) 21:30:57.80 ID:l9HsQRRu >>485 lisp https://ideone.com/Hiqt3o >>500 lisp https://ideone.com/eRqGSp http://mevius.5ch.net/test/read.cgi/tech/1691038333/505
506: デフォルトの名無しさん [sage] 2025/01/28(火) 21:18:03.62 ID:oNqYbqge >>500 dart https://ideone.com/WZzsxb >>500 c https://ideone.com/1c41ME http://mevius.5ch.net/test/read.cgi/tech/1691038333/506
507: デフォルトの名無しさん [sage] 2025/01/29(水) 01:00:49.19 ID:4mvV5Tkg >>500 c++ https://ideone.com/5VRuHk http://mevius.5ch.net/test/read.cgi/tech/1691038333/507
508: デフォルトの名無しさん [sage] 2025/01/29(水) 01:49:29.44 ID:PQfpjql4 >>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 http://mevius.5ch.net/test/read.cgi/tech/1691038333/508
509: デフォルトの名無しさん [sage] 2025/01/29(水) 21:56:05.24 ID:GDFS0NvX >>500 java https://ideone.com/zIZZ1G http://mevius.5ch.net/test/read.cgi/tech/1691038333/509
511: 506 [sage] 2025/01/30(木) 21:43:26.41 ID:ID2xuR+0 >>500 c https://ideone.com/LLFaOP ・unsigned int m[128] = {0};を使って集計 http://mevius.5ch.net/test/read.cgi/tech/1691038333/511
535: デフォルトの名無しさん [sage] 2025/02/07(金) 19:14:17.64 ID:UF6GKvr5 >>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 http://mevius.5ch.net/test/read.cgi/tech/1691038333/535
543: デフォルトの名無しさん [] 2025/02/07(金) 23:41:05.56 ID:qBbgMoXu >>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 http://mevius.5ch.net/test/read.cgi/tech/1691038333/543
551: 警備員[Lv.19] [] 2025/02/09(日) 03:56:54.57 ID:Y8d2noVo >>500 Kotlin https://paiza.io/projects/eipNjg4meAtA7__e3JTRdg http://mevius.5ch.net/test/read.cgi/tech/1691038333/551
835: デフォルトの名無しさん [sage] 2025/09/08(月) 23:02:49.14 ID:4SI/cFAg >>485 scheme (chicken 4.13) https://ideone.com/feYtNB >>500 scheme (chicken 4.13) https://ideone.com/Svhv1y http://mevius.5ch.net/test/read.cgi/tech/1691038333/835
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.032s