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/_build/default/bin/.formatted/main.ml
+12 -5
View File
@@ -5,13 +5,20 @@ type joy_type =
| JoyInt of int
| JoyList of joy_type list
type joy_list = joy_type list
(* type joy_list = joy_type list *)
let joy_true = JoyTrue
let joy_false = JoyFalse
let j_loop = JoySymbol "loop"
let empty_list = JoyList []
let zero = JoyInt 0
let dummy = [ joy_true; joy_false; j_loop; zero ]
let list_get jt = match jt with JoyList el -> el | _ -> []
let () = print_endline "Hello, World!"
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) ^ "]"
let () = print_endline (joy_to_string dummy)