結果
問題 |
No.1229 ラグビーの得点パターン
|
ユーザー |
![]() |
提出日時 | 2025-06-22 17:36:49 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 162 ms / 2,000 ms |
コード長 | 884 bytes |
コンパイル時間 | 438 ms |
コンパイル使用メモリ | 8,096 KB |
実行使用メモリ | 23,552 KB |
最終ジャッジ日時 | 2025-06-22 17:36:56 |
合計ジャッジ時間 | 6,695 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 25 |
ソースコード
(use scheme.list) (use util.match) (use srfi.13) ; string (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 int string->number) (define-method min ((x <sequence>)) (apply min x)) (define (minmax xs) (apply min&max xs)) (define (sum xs) (apply + xs)) (define divmod div-and-mod) (define pow (case-lambda ((a b) (expt a b)) ((a b m) (expt-mod a b m)))) (let ((N (ii))) (prn (sum-ec (: t 0 100) (: g 0 (+ t 1)) (: pg 0 100) (if (= N (+ (* t 5) (* g 2) (* pg 3)))) 1)))