Submission #1174123

---

Source Code Expand

let read_int_list () =
	read_line ()
	|> Str.split (Str.regexp " ")
	|> List.map int_of_string

let find_or_else target found not_found lst =
	let rec loop idx = function
		| [] -> not_found ()
		| x :: xs ->
			if x = target then found idx
			else loop (idx + 1) xs
	in
	loop 1 lst

let solve required timelimit capacity_list oil_list =
	find_or_else required (fun idx -> Printf.sprintf "sell %d %d" 1  idx) (fun () -> 
		find_or_else required (fun idx -> Printf.sprintf "fill %d" idx) (fun () -> "pass") capacity_list
	) oil_list

let () =
	for i = 1 to 1000 do
		let [d; t] = read_int_list () in
		let clist = read_int_list () in
		let alist = read_int_list () in
		print_endline (solve d t clist alist);
		flush stdout
	done

Submission Info

Compile Error

File "./Main.ml", line 22, characters 6-12:
Warning 8: this pattern-matching is not exhaustive.
Here is an example of a value that is not matched:
[]

Judge Result