08:03 <discocaml> <Scarlet> hey, i have a problem that im stuck on for a while.

08:04 <discocaml> <Scarlet> i have file that is keep write into while the code is running, and everything is works. but whenever I re-run the program , i want to overwrite the file and not append to it . anyone know how to do it?

08:04 <discocaml> <Scarlet> i have file that i keep write into while the code is running, and everything is works. but whenever I re-run the program , i want to overwrite the file and not append to it . anyone know how to do it?

08:05 <discocaml> <Scarlet> i have file that is being consistently appended while the code is running, and everything is works. but whenever I re-run the program , i want to overwrite the file and not append to it . anyone know how to do it?

08:06 <discocaml> <Scarlet> ```let handle_buy (w1 : string) (w2 : int) (w3 : float) =

08:06 <discocaml> <Scarlet> let oc = open_out_gen [Open_append; Open_creat] 0o666 (base_directory^".asm") in

08:06 <discocaml> <Scarlet> let mult_val = (float_of_int w2) *. w3 in

08:06 <discocaml> <Scarlet> let str = "### BUY " ^ w1 ^ " ###\n" ^ (string_of_float mult_val)^ "\n" in

08:06 <discocaml> <Scarlet> total_buy := !total_buy +. mult_val;

08:06 <discocaml> <Scarlet> output_string oc str;

08:06 <discocaml> <Scarlet> close_out oc;;```

08:06 <discocaml> <Scarlet> ```ocaml

08:06 <discocaml> <Scarlet> let handle_buy (w1 : string) (w2 : int) (w3 : float) =

08:06 <discocaml> <Scarlet> let oc = open_out_gen [Open_append; Open_creat] 0o666 (base_directory^".asm") in

08:06 <discocaml> <Scarlet> let mult_val = (float_of_int w2) *. w3 in

08:06 <discocaml> <Scarlet> let str = "### BUY " ^ w1 ^ " ###\n" ^ (string_of_float mult_val)^ "\n" in

08:06 <discocaml> <Scarlet> total_buy := !total_buy +. mult_val;

08:06 <discocaml> <Scarlet> output_string oc str;

08:06 <discocaml> <Scarlet> close_out oc;;```

08:07 <discocaml> <Scarlet> ```ocaml

08:07 <discocaml> <Scarlet> let handle_buy (w1 : string) (w2 : int) (w3 : float) =

08:07 <discocaml> <Scarlet> let oc = open_out_gen [Open_append; Open_creat] 0o666 (base_directory^".asm") in

08:07 <discocaml> <Scarlet> let mult_val = (float_of_int w2) *. w3 in

08:07 <discocaml> <Scarlet> let str = "### BUY " ^ w1 ^ " ###\n" ^ (string_of_float mult_val)^ "\n" in

08:07 <discocaml> <Scarlet> output_string oc str;

08:07 <discocaml> <Scarlet> close_out oc;;```

08:17 <discocaml> <octachron> You can open the file in truncate mode at the start of your program.

08:18 <adrien> makes me think of https://www.da.vidbuchanan.co.uk/blog/exploiting-acropalypse.html

08:22 <discocaml> <Scarlet> thanks!

12:01 <reynir> What ppx provides let%bind?

12:06 <discocaml> <leviroth> ppx_let

12:41 <reynir> thanks

14:48 <discocaml> <cameliacamelia888> I need your precious help. I need to return a copy of a list in which odd-length lists have been doubled. For exemple my list : oddList [[]; [1];[1;2];[1;2;3];[];[5;4;3;2;1]] must return oddList [[]; [1; 1]; [1; 2]; [1; 2; 3; 1; 2; 3]; []; [5; 4; 3; 2; 1; 5; 4; 3; 2; 1]]

14:48 <discocaml> <cameliacamelia888>

14:48 <discocaml> <cameliacamelia888> I tried this without success:

14:48 <discocaml> <cameliacamelia888>

14:48 <discocaml> <cameliacamelia888> let rec listes_paires l = match l with

14:48 <discocaml> <cameliacamelia888> | [] -> []

14:48 <discocaml> <cameliacamelia888> | x :: r -> if length x mod 2 = 0 then (x :: (listes_paires r))

14:48 <discocaml> <cameliacamelia888> else ((x@x):: (listes_paires r));;

14:48 <discocaml> <cameliacamelia888> I need your precious help. I need to return a copy of a list in which odd-length lists have been doubled. For exemple my list : oddList [[]; [1];[1;2];[1;2;3];[];[5;4;3;2;1]] must return oddList [[]; [1; 1]; [1; 2]; [1; 2; 3; 1; 2; 3]; []; [5; 4; 3; 2; 1; 5; 4; 3; 2; 1]]

14:48 <discocaml> <cameliacamelia888>

14:48 <discocaml> <cameliacamelia888> I tried this without success:

14:48 <discocaml> <cameliacamelia888> `

14:48 <discocaml> <cameliacamelia888> let rec listes_paires l = match l with

14:48 <discocaml> <cameliacamelia888> | [] -> []

14:48 <discocaml> <cameliacamelia888> | x :: r -> if length x mod 2 = 0 then (x :: (listes_paires r))

14:48 <discocaml> <cameliacamelia888> else ((x@x):: (listes_paires r));;`

14:49 <discocaml> <cameliacamelia888> I need your precious help. I need to return a copy of a list in which odd-length lists have been doubled. For exemple my list :

14:49 <discocaml> <cameliacamelia888> oddList [[]; [1];[1;2];[1;2;3];[];[5;4;3;2;1]]

14:49 <discocaml> <cameliacamelia888> must return

14:49 <discocaml> <cameliacamelia888> oddList [[]; [1; 1]; [1; 2]; [1; 2; 3; 1; 2; 3]; []; [5; 4; 3; 2; 1; 5; 4; 3; 2; 1]]

14:49 <discocaml> <cameliacamelia888>

14:49 <discocaml> <cameliacamelia888> I tried this without success:

14:49 <discocaml> <cameliacamelia888> `

14:49 <discocaml> <cameliacamelia888> let rec listes_paires l = match l with

14:49 <discocaml> <cameliacamelia888> | [] -> []

14:49 <discocaml> <cameliacamelia888> | x :: r -> if length x mod 2 = 0 then (x :: (listes_paires r))

14:49 <discocaml> <cameliacamelia888> else ((x@x):: (listes_paires r));;`

14:50 <discocaml> <octachron> What do you mean by "without success"?

15:10 <discocaml> <cameliacamelia888> Hello octachron, my code does not return anything

15:11 <discocaml> <cameliacamelia888> Hello octachron, my code doesn't return anything

15:11 <discocaml> <octachron> That's not the case?

15:11 <discocaml> <cameliacamelia888> I do,'t understand what's wrong

15:13 <discocaml> <octachron> How are you estimating that something is going wrong?

15:13 <discocaml> <cameliacamelia888> When I tried with https://console.basthon.fr/?kernel=ocaml return : "Error: Unbound value listes_paires"

15:14 <discocaml> <cameliacamelia888> https://cdn.discordapp.com/attachments/436568060288172044/1089930408415744010/image.png

15:16 <discocaml> <octachron> Well, you must define the function in the environment before calling.

15:26 <zozozo> mdx doesn't seem to work very well on windows (cf https://github.com/realworldocaml/mdx/issues/295 ), is there any way in dune to disable mdx when building on windows ?

15:31 <zozozo> I guess I can get what I want with enabled_if

15:32 <discocaml> <emillon> add `enabled_if` on the corresponding `(mdx)` stanza

15:39 <zozozo> yeah, that's what I found

16:30 <discocaml> <RegularSpatula> Here is a quote from a matklad blog post: "we don’t have a reliability-oriented high-level programming language with a good quality of implementation (modern ML, if you will)." (https://matklad.github.io/2023/03/26/zig-and-rust.html) ...I'm wondering what others here think...why wouldn't ocaml fit as a reliability-oriented high level modern ML with a good implementation? (the context if you don't care to read the post, is that rust g

16:32 <discocaml> <RegularSpatula> setting aside ecosystem size (like availability of whatever libs you need) it seems that a lot of users looking for "modern ML" with a good implementation would be well served by ocaml rather than rust...anyway, just an interesting thought brought up from that paragraph in that post

16:33 <discocaml> <RegularSpatula> maybe "reliability-oriented" has a specific meaning that i don't understand and that explains why ocaml wouldn't fit the description (idk)

16:35 <discocaml> <masterbuilder> Personally I would not consider Rust to be a language belonging to the ML family, it just borrows some ideas

16:37 <discocaml> <RegularSpatula> the author of the post does use quotes when calling rust a "modern ML" so i think they probably mean it in the sense that you say...ML-ish or ML-inspired

18:41 <companion_cube> I suspect matklad refers to tooling, possibly to some stdlib things too (which are more painful in ocaml than they'd be in a more recent language). That's how I interpret it.