結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1.txt AC 16 ms
7,916 KB
2.txt AC 14 ms
7,904 KB
3.txt AC 15 ms
7,892 KB
4.txt AC 15 ms
7,924 KB
5.txt AC 16 ms
7,920 KB
6.txt AC 16 ms
7,900 KB
7.txt AC 15 ms
7,892 KB
8.txt AC 16 ms
7,924 KB
9.txt AC 15 ms
7,900 KB
10.txt AC 16 ms
7,924 KB
11.txt AC 14 ms
7,912 KB
12.txt AC 17 ms
7,908 KB
13.txt AC 17 ms
7,908 KB
14.txt AC 16 ms
7,900 KB
15.txt AC 18 ms
7,908 KB
16.txt AC 16 ms
7,928 KB
99_system_test1.txt AC 16 ms
7,908 KB
99_system_test2.txt AC 16 ms
7,904 KB
99_system_test3.txt AC 16 ms
7,912 KB
99_system_test4.txt AC 16 ms
7,920 KB
99_system_test5.txt AC 16 ms
7,904 KB
system_test1.txt AC 16 ms
7,900 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