結果
問題 | No.29 パワーアップ |
ユーザー |
|
提出日時 | 2019-09-03 14:06:49 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 35 ms / 5,000 ms |
コード長 | 651 bytes |
コンパイル時間 | 415 ms |
コンパイル使用メモリ | 7,076 KB |
実行使用メモリ | 17,280 KB |
最終ジャッジ日時 | 2024-12-24 00:22:26 |
合計ジャッジ時間 | 1,939 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 22 |
ソースコード
(define (read-number) (string->number (read-line))) (define vec (make-vector 10 0)) (define extra 0) (let ((_ (read-number))) (let loop ((row (read-line))) (cond ((eof-object? row) '()) (else (let loop-inner ((column (map string->number (string-split row #\space)))) (if (null? column) '() (let ((n (car column))) (vector-set! vec (- n 1) (+ 1 (vector-ref vec (- n 1)))) (loop-inner (cdr column))))) (loop (read-line))))) (let1 total (fold + 0 (map (lambda (n) (set! extra (+ extra (mod (vector-ref vec n) 2))) (div (vector-ref vec n) 2)) (iota 10))) (print (+ total (div extra 4)))))