結果
問題 | No.63 ポッキーゲーム |
ユーザー |
![]() |
提出日時 | 2019-02-11 19:14:18 |
言語 | Scheme (Gauche-0.9.5) |
結果 |
WA
.
|
実行時間 | - |
コード長 | 375 Byte |
コンパイル時間 | 10 ms |
使用メモリ | 7,928 KB |
最終ジャッジ日時 | 2019-02-11 19:14:20 |
テストケース
テストケース表示入力 | 結果 | 実行時間 使用メモリ |
---|---|---|
1.txt | AC | 13 ms
7,904 KB |
2.txt | AC | 15 ms
7,908 KB |
3.txt | WA | - |
4.txt | WA | - |
5.txt | AC | 15 ms
7,920 KB |
6.txt | AC | 15 ms
7,928 KB |
7.txt | AC | 15 ms
7,908 KB |
8.txt | AC | 15 ms
7,908 KB |
9.txt | AC | 15 ms
7,900 KB |
10.txt | AC | 16 ms
7,904 KB |
11.txt | AC | 15 ms
7,904 KB |
12.txt | AC | 16 ms
7,920 KB |
13.txt | AC | 16 ms
7,908 KB |
14.txt | WA | - |
15.txt | AC | 15 ms
7,900 KB |
16.txt | WA | - |
99_system_test1.txt | WA | - |
99_system_test2.txt | WA | - |
99_system_test3.txt | WA | - |
99_system_test4.txt | WA | - |
99_system_test5.txt | WA | - |
system_test1.txt | AC | 16 ms
7,916 KB |
コンパイルメッセージ
ソースコード
(define (poky L K) (let ((n (quotient L 2))) (cond [(<= (truncate (/ n K)) 1) 0] [(= (modulo n K) 1) (* (- (truncate (/ n K)) 1) K)] [else (* (truncate (/ n K)) K)]))) #| (define (create-list n) (if (= n 0) '() (cons (read) (create-list (- n 1))))) |# (define (main args) (let* ((L (read)) (K (read))) (print (poky L K))) 0)