結果
問題 |
No.2194 兄弟の掛け引き
|
ユーザー |
|
提出日時 | 2023-02-17 16:50:31 |
言語 | OCaml (5.2.1) |
結果 |
WA
|
実行時間 | - |
コード長 | 504 bytes |
コンパイル時間 | 1,148 ms |
コンパイル使用メモリ | 21,448 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-19 09:29:32 |
合計ジャッジ時間 | 1,758 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 9 WA * 5 |
ソースコード
let solve a b c = let max_n = (c + b) / a in let rec solve_core n = if n > max_n then [] else if n * a - b = c || b * a - b <= 0 && n * a = c then n :: solve_core (n+1) else solve_core (n+1) in solve_core 1 let rec print_list = function [] -> () | a :: rest -> print_endline (string_of_int a); print_list rest let _ = let a, b, c = Scanf.scanf "%d %d %d" (fun a b c -> a, b, c) in let ans = solve a b c in if List.length ans > 0 then print_list ans else print_endline "-1"