sforman/Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

autoformat

Browse Source
This commit is contained in:
Simon Forman
2022-09-23 08:38:17 -07:00
parent c76ae9979d
commit 64d4a42978
5 changed files with 45 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
implementations/Ocaml/helloworld/bin/main.ml
+6 -6
View File
@@ -14,11 +14,11 @@ let zero = JoyInt 0
let dummy = JoyList [ joy_true; joy_false; j_loop; zero ]
let rec joy_to_string jt =
match jt with
| JoySymbol sym -> sym
| JoyTrue -> "true"
| JoyFalse -> "false"
| JoyInt i -> string_of_int i
| JoyList el -> "[" ^ (String.concat " " (List.map joy_to_string el)) ^ "]";;
match jt with
| JoySymbol sym -> sym
| JoyTrue -> "true"
| JoyFalse -> "false"
| JoyInt i -> string_of_int i
| JoyList el -> "[" ^ String.concat " " (List.map joy_to_string el) ^ "]"
let () = print_endline (joy_to_string dummy)