O'Caml TYS: many functions... one default

[wtd]

Let's say I want to have a bunch of functions that take a default value.

code:

let foo ?(bar = 42) () = bar * 3;; let baz ?(wooble = 42) () = wooble / 2;;

Now, what if I want to change that default? I'd have to edit the code in several places.

Figure out a way that I can change that default uniformly across both functions, without having to modify the functions themselves. Storing the default as a separate let binding doesn't count.

[sw2wolf]

let defVal = 42

let foo ?(bar=defVal) () = bar *3

[wtd]

Good on you for trying, but I disqualified that approach in the original post.

[Aange10]

Oh come on wtd, it took two years for somebody to gut up and answer. Cut 'em some slack

[Tony]

can I use an inverse of a function? I.e., something like

code:

let foo ?(bar = 42) () = bar * 3;; let baz ?(wooble = foo() / 3) () = wooble / 2;;

[wtd]

code:

module X =    functor (T : sig default : int end) ->       struct          let foo () = T.default / 2          let baz x = T.default * x       end;; let module Y = X(struct let default = 42 end) in    Printf.printf "%d, %d\n" (Y.foo ()) (Y.baz 3);;