結果

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

テストケース

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