結果
問題 |
No.388 階段 (1)
|
ユーザー |
![]() |
提出日時 | 2018-05-29 20:29:02 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
WA
|
実行時間 | - |
コード長 | 253 bytes |
コンパイル時間 | 115 ms |
コンパイル使用メモリ | 6,688 KB |
実行使用メモリ | 16,000 KB |
最終ジャッジ日時 | 2024-06-30 08:03:27 |
合計ジャッジ時間 | 1,274 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | WA * 3 |
other | WA * 12 |
ソースコード
(define steps_1 (lambda () (let ((S (read)) (F (read)) ) (let loop ((flr 1) (nF F)) (cond ((< S nF) (print flr) ) ((>= S nF) (loop (+ 1 flr) (+ nF F))))) )))