Il manque un paramètre à ta fonction make_disk:
let make_disk radius = fun z -> (c_abs(c_dif z center) <= radius);;
Error: Unbound value center
Il manque un paramètre à ta fonction make_disk:
let make_disk radius = fun z -> (c_abs(c_dif z center) <= radius);;
Error: Unbound value center