From 3ecd7ab595f014d5504633d1030b029647e062f9 Mon Sep 17 00:00:00 2001 From: Simon Forman Date: Sat, 24 Sep 2022 19:39:10 -0700 Subject: [PATCH] Minor cleanup. --- implementations/Ocaml/helloworld/bin/main.ml | 25 +++---------------------- 1 file changed, 3 insertions(+), 22 deletions(-) diff --git a/implementations/Ocaml/helloworld/bin/main.ml b/implementations/Ocaml/helloworld/bin/main.ml index 4482306..b5b5b59 100644 --- a/implementations/Ocaml/helloworld/bin/main.ml +++ b/implementations/Ocaml/helloworld/bin/main.ml @@ -263,37 +263,18 @@ let d0 = dict_add empty_dict "++" (text_to_expression "1 +") let d = dict_add d0 "sqr" (text_to_expression "dup mul") (* -let expr = text_to_expression "1 2 + 3 4 + 5 6 + 7 8 + 9 10 + 11 + + + + + - " -let expr = text_to_expression "1 2 3 4 clear 5" - https://riptutorial.com/ocaml/example/9450/read-from-standard-input-and-print-to-standard-output *) -let maybe_read_line () = - try Some(read_line()) - with End_of_file -> None - - -(* -let expr = text_to_expression "clear [23] [18] concat 32 ++" -let s = text_to_expression "23 [18 99] " -let stack, _ = joy s expr d -let () = print_endline (expression_to_string stack) -print_endline - (expression_to_string - (text_to_expression "1 2 3[4 5 6[7 8]9 10]11[][][[]]")); - print_endline (expression_to_string (text_to_expression "true [ false]true")); - print_endline (joy_to_string dummy) -*) +let maybe_read_line () = try Some (read_line ()) with End_of_file -> None let rec main_loop stack dictionary = match maybe_read_line () with - | Some(line) -> + | Some line -> let expr = text_to_expression line in - let (stack0, dictionary0) = joy stack expr dictionary in + let stack0, dictionary0 = joy stack expr dictionary in let () = print_endline (expression_to_string stack0) in main_loop stack0 dictionary0 | None -> exit 0 let () = main_loop [] d - -- 2.11.0