F # - Модули

Согласно библиотеке MSDN, модуль F # представляет собой группу конструкций кода F #, таких как типы, значения, значения функций и код в привязках do. Он реализован как класс общеязыковой среды выполнения (CLR), который имеет только статические члены.

В зависимости от ситуации, включен ли в модуль весь файл, есть два типа объявлений модуля:

Объявление модуля верхнего уровня
Объявление локального модуля

В объявлении модуля верхнего уровня в модуль включается весь файл. В этом случае первое объявление в файле - это объявление модуля. Вам не нужно делать отступы в объявлениях в модуле верхнего уровня.

В объявлении локального модуля только объявления с отступом под этим объявлением модуля являются частью модуля.

Синтаксис

Синтаксис для объявления модуля следующий -

// Top-level module declaration.
module [accessibility-modifier] [qualified-namespace.]module-name
   declarations

// Local module declaration.
module [accessibility-modifier] module-name =
   declarations

Обратите внимание, что модификатор доступности может быть одним из следующих - публичный, частный, внутренний. По умолчаниюpublic.

Следующие примеры продемонстрируют концепции -

Пример 1

Файл модуля Arithmetic.fs -

module Arithmetic
let add x y =
   x + y

let sub x y =
   x - y
	
let mult x y =
   x * y
	
let div x y =
   x / y

Программный файл main.fs -

// Fully qualify the function name.
open Arithmetic
let addRes = Arithmetic.add 25 9
let subRes = Arithmetic.sub 25 9
let multRes = Arithmetic.mult 25 9
let divRes = Arithmetic.div 25 9

printfn "%d" addRes
printfn "%d" subRes
printfn "%d" multRes
printfn "%d" divRes

Когда вы компилируете и выполняете программу, она дает следующий результат:

Пример 2

// Module1
module module1 =
   // Indent all program elements within modules that are declared with an equal sign.
   let value1 = 100
   let module1Function x =
      x + value1

// Module2
module module2 =
   let value2 = 200

   // Use a qualified name to access the function.
   // from module1.
   let module2Function x =
      x + (module1.module1Function value2)

let result = module1.module1Function 25
printfn "%d" result

let result2 = module2.module2Function 25
printfn "%d" result2

Когда вы компилируете и выполняете программу, она дает следующий результат:

125
325