結果

問題 No.63 ポッキーゲーム
ユーザー nohopen
提出日時 2019-02-11 19:25:22
言語 Scheme
(Gauche-0.9.5)
結果
WA   .
実行時間 -
コード長 282 Byte
コンパイル時間 10 ms
使用メモリ 7,924 KB
最終ジャッジ日時 2019-02-11 19:25:23

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1.txt AC 17 ms
7,900 KB
2.txt AC 18 ms
7,916 KB
3.txt WA -
4.txt WA -
5.txt AC 17 ms
7,924 KB
6.txt WA -
7.txt AC 17 ms
7,908 KB
8.txt AC 17 ms
7,904 KB
9.txt WA -
10.txt AC 17 ms
7,904 KB
11.txt WA -
12.txt WA -
13.txt AC 16 ms
7,912 KB
14.txt AC 17 ms
7,908 KB
15.txt AC 16 ms
7,896 KB
16.txt AC 17 ms
7,900 KB
99_system_test1.txt AC 17 ms
7,900 KB
99_system_test2.txt AC 16 ms
7,900 KB
99_system_test3.txt AC 17 ms
7,904 KB
99_system_test4.txt AC 17 ms
7,904 KB
99_system_test5.txt AC 18 ms
7,924 KB
system_test1.txt AC 17 ms
7,900 KB
テストケース一括ダウンロード
コンパイルメッセージ

                

                

ソースコード

diff #
(define (poky L K)
  (let ((n (quotient L 2)))
    (cond [(<= (truncate (/ n K)) 1) 0]
          [(= (modulo n K) 0) (* (- (truncate (/ n K)) 1) K)]
          [else (* (truncate (/ n K)) K)])))

(define (main args)
  (let* ((L (read))
         (K (read)))
    (print (poky L K))) 0)
0