結果
問題 | No.1908 Assault for Keys |
ユーザー |
![]() |
提出日時 | 2022-07-13 13:42:17 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 174 ms / 2,000 ms |
コード長 | 269 bytes |
コンパイル時間 | 189 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 16,256 KB |
最終ジャッジ日時 | 2024-06-24 16:28:33 |
合計ジャッジ時間 | 4,297 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 18 |
ソースコード
(define N (read)) (define M (read)) (define v (make-vector M 0)) (dotimes [i N] (read-line) (dotimes [j M] (when (char=? (read-char) #\x) (inc! (vector-ref v j))))) (print (+ 1 (fold max 0 (vector->list v))))