mono-array-fn.sml

来自「这是我们参加06年全国开源软件的竞赛作品」· SML 代码 · 共 17 行

(* mono-array-fn.sml
 *
 * COPYRIGHT (c) 1997 Bell Labs, Lucent Technologies.
 *
 * This simple functor allows easy construction of new monomorphic array
 * structures.
 *)

functor MonoArrayFn (type elem) :> MONO_ARRAY where type elem = elem
  = struct
    open Array
    type elem = elem
    type array = elem Array.array
    type vector = elem Vector.vector
  end