結果
| 問題 |
No.207 世界のなんとか
|
| コンテスト | |
| ユーザー |
|
| 提出日時 | 2019-05-17 12:36:14 |
| 言語 | OCaml (5.2.1) |
| 結果 |
WA
|
| 実行時間 | - |
| コード長 | 249 bytes |
| コンパイル時間 | 251 ms |
| コンパイル使用メモリ | 21,448 KB |
| 実行使用メモリ | 6,820 KB |
| 最終ジャッジ日時 | 2024-10-09 00:40:06 |
| 合計ジャッジ時間 | 1,086 ms |
|
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
| ファイルパターン | 結果 |
|---|---|
| other | AC * 2 WA * 17 |
ソースコード
let rec div3 n m =
if n = m then []
else if n mod 3 = 0 then string_of_int n :: div3 (n+1) m
else div3 (n+1) m
let () =
let n, m = Scanf.scanf "%d %d\n" (fun a b -> a, b) in
let lst = div3 n m in
List.iter print_endline lst