PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-30 00:44:37 +02:00
Code Releases Activity

Removed Core from MO_class.ml

Browse Source
This commit is contained in:
Anthony Scemama 2019-03-13 10:42:18 +01:00
parent 6011ed7a2e
commit 83d3cafbb2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ocaml/MO_class.ml
View File

@ -1,5 +1,6 @@
open Core
open Qptypes open Qptypes
open Sexplib.Std
type t = type t =
| Core of MO_number.t list | Core of MO_number.t list
@ -12,8 +13,8 @@ type t =
let to_string x = let to_string x =
let print_list l = let print_list l =
let s = List.map ~f:(fun x-> MO_number.to_int x |> string_of_int )l let s = List.map (fun x-> MO_number.to_int x |> string_of_int ) l
|> (String.concat ~sep:", ") |> (String.concat ", ")
in in
"("^s^")" "("^s^")"
in in
@ -42,7 +43,7 @@ let of_string s =
let _mo_number_list_of_range range = let _mo_number_list_of_range range =
Range.of_string range |> List.map ~f:MO_number.of_int Range.of_string range |> List.map MO_number.of_int
let create_core range = Core (_mo_number_list_of_range range) let create_core range = Core (_mo_number_list_of_range range)