9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-13 23:23:31 +01:00

Removed Core from MO_class.ml

This commit is contained in:
Anthony Scemama 2019-03-13 10:42:18 +01:00
parent 6011ed7a2e
commit 83d3cafbb2

View File

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