fork(2) download

copy

fun water_vol (wh: int list) =
    let fun count_vol max hs acc = 
	    case hs of
		[] => acc
	      | h2::hs' => if (max - h2) > 0 andalso (List.exists (fn x => x >= max) hs')
			   then count_vol max hs' (acc+max-h2)
			   else if (max - h2) > 0 
			   then count_vol (max - 1) hs acc
			   else count_vol h2 hs' acc
    in
	count_vol (hd wh) (tl wh) 0
    end

Main.java:1: error: class, interface, or enum expected
fun water_vol (wh: int list) =
^
Main.java:5: error: unclosed character literal
	      | h2::hs' => if (max - h2) > 0 andalso (List.exists (fn x => x >= max) hs')
	              ^
Main.java:5: error: unclosed character literal
	      | h2::hs' => if (max - h2) > 0 andalso (List.exists (fn x => x >= max) hs')
	                                                                               ^
Main.java:6: error: unclosed character literal
			   then count_vol max hs' (acc+max-h2)
			                        ^
Main.java:9: error: unclosed character literal
			   else count_vol h2 hs' acc
			                       ^
5 errors

Standard output is empty