結果
問題 |
No.1943 消えたAGCT(1)
|
ユーザー |
|
提出日時 | 2023-03-13 23:43:02 |
言語 | Kuin (KuinC++ v.2021.9.17) |
結果 |
TLE
|
実行時間 | - |
コード長 | 595 bytes |
コンパイル時間 | 2,333 ms |
コンパイル使用メモリ | 147,260 KB |
実行使用メモリ | 27,332 KB |
最終ジャッジ日時 | 2024-09-18 07:49:47 |
合計ジャッジ時間 | 6,143 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 9 TLE * 1 -- * 17 |
ソースコード
func main() var n: int :: cui@inputInt() var s: []char :: cui@input() var lis: list<char> :: #list<char> var cnt: int :: 0 for i(0, ^s - 1) var c: char :: s[i] do lis.add(c) switch(c) case 'A', 'G', 'C', 'T' do cnt :+ 1 end switch end for do lis.head() do lis.moveOffset(cnt - 1) var ans: int :: 0 while(cnt <> 0) do ans :+ 1 var c: char :: lis.get() switch(c) case 'A', 'G', 'C', 'T' if(lis.idx() <> 0) do lis.prev() do lis.delNext() end if do cnt :- 1 default do lis.del() end switch end while do cui@print("\{ans}\n") end func