結果

問題 No.63 ポッキーゲーム
コンテスト
ユーザー Yuzu Mashiro
提出日時 2021-04-03 17:26:43
言語 Scheme
(Gauche-0.9.15)
結果
TLE  
実行時間 -
コード長 230 bytes
コンパイル時間 176 ms
コンパイル使用メモリ 5,120 KB
実行使用メモリ 32,000 KB
最終ジャッジ日時 2024-12-25 03:16:31
合計ジャッジ時間 27,491 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 19 TLE * 3
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define-values (l k)
 (apply values (map string->number (string-split (read-line) " "))))

(print (* k (let loop ((count 0))
              (cond ((>= (* (+ count 1) 2 k) l) count)
                    (else (loop (+ count 1)))))))
0