Aß
Size: a a a
Aß
Aß
ДП
Aß
VV
Aß
Aß
all_except_option : string * string list -> bool
VV
VV
fun all_except_option (s1, sl) =
let fun comp = case sl of
[] => []
| slh::slt => if same_string(s1, slh)
then slt
else slh::all_except_option(s1,slt)
in
if compare_string_lists(comp, sl)
then true
else false
end
Aß
slh::all_except_option(s1,slt)
Aß
::
не списокДП
VV
М
ДП
VV
VV
fun all_except_option (s1, sl) =
let fun comp (s1, sl) = case sl of
[] => []
| slh::slt => if same_string(s1, slh)
then slt
else slh::comp(s1,slt)
in
compare_string_lists(comp(s1,sl), sl)
end
VV
VV
ДП