結果

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

テストケース

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

                

                

ソースコード

diff #
(define (poky L K)
  (let* ((n (quotient L 2)))
    (cond [(= L 1) 0]
          [(odd? L) (* (quotient n K) K)]
          [(= (remainder n K) 0) (* (- (quotient n K) 1) K)]
          [else (* (quotient n K) K)])))

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