結果
問題 |
No.9009 改行区切りで与えられる数値データの合計値を求める(テスト用)
|
ユーザー |
![]() |
提出日時 | 2025-06-20 02:11:27 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 346 ms / 3,000 ms |
コード長 | 608 bytes |
コンパイル時間 | 75 ms |
コンパイル使用メモリ | 7,972 KB |
実行使用メモリ | 29,560 KB |
最終ジャッジ日時 | 2025-06-20 02:11:42 |
合計ジャッジ時間 | 4,591 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 15 |
ソースコード
(use scheme.list) (use util.match) (use srfi.42) ; list-ec (define input read-line) (define (ii) (string->number (read-line))) (define (li) (let ((s (read-line))) (map string->number (string-split s " ")))) (define (prn . args) (for-each (lambda (i x) (when (> i 0) (display " ")) (display x)) (iota (length args)) args) (newline)) (define (min&max* xs) (apply min&max xs)) (define (sum . xs) (apply + xs)) (define (sum* xs) (apply + xs)) (define divmod div-and-mod) (let* ((N (ii))) (prn (sum-ec (:range _ N) (ii))))