結果

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

テストケース

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