10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-13 16:55:26 +02:00
quantum_package/ocaml/Qputils.ml

29 lines
583 B
OCaml
Raw Normal View History

2014-10-26 12:46:17 +01:00
open Core.Std;;
(*
2014-09-18 17:01:43 +02:00
let rec transpose = function
| [] -> []
| []::tail -> transpose tail
| (x::t1)::t2 ->
let new_head = (x::(List.map List.hd t2))
and new_tail = (transpose (t1 :: (List.map List.tl t2) ))
in
new_head @ new_tail
;;
2014-10-26 12:46:17 +01:00
*)
let input_to_sexp s =
let result =
String.split_lines s
|> List.filter ~f:(fun x->
(String.strip x) <> "")
|> List.map ~f:(fun x->
"("^(String.tr '=' ' ' x)^")")
|> String.concat
in
print_endline ("("^result^")");
"("^result^")"
|> Sexp.of_string
;;
2014-08-27 16:38:13 +02:00