結果

問題 No.63 ポッキーゲーム
ユーザー nohopen
提出日時 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
テストケース一括ダウンロード
コンパイルメッセージ

                

                

ソースコード

diff #
(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)
0