F # заданное значение функции

Question

У меня есть три функции в модуле SetBehaviour, который вызывает GetBehviour, который читает текстовый файл и десериализует его обратно к моим типам и возвращает его обратно в useCases. Затем я получаю доступ к объекту, который я хочу, «let behavior = useCases.Item (useCaseIdentifier)»

Мой вопрос: есть ли способ установить «GlobalBehavior» на возвращаемое значение «SetBehaviour», поэтому я могу назвать «GlobalBehaviour» 'непосредственно, не просматривая чтение текстового файла и десериализацию каждый раз?

let GlobalBehaviour = //The return value of SetBehaviour here 


let GetBehaviour = 
    let useCases = Data.ReadUseCases 
    let deserializedUseCases = JsonConvert.DeserializeObject<Map<string,Types.UseCase>>(useCases) 
    deserializedUseCases 


let SetBehaviour useCaseIdentifier = 
    let useCases = GetBehaviour 
    let behavior = useCases.Item(useCaseIdentifier) 
    behavior 

Answer 1

Ответ зависит от контекста. Например, это какая-то инициализация, которая происходит только один раз, или это часто меняется?

В общем, лучше избегать глобального изменчивого состояния в F # и вместо этого помнить последнее поведение где-то в модуле, который обращается к модулю, который вы показываете в своем вопросе. Таким образом, клиент контролирует состояние (и есть различные способы сделать это лучше). Кроме того, если вы пишете параллельную систему, имеет смысл использовать агент вместо этого.

Однако основное решение с использованием мутации будет выглядеть примерно так:

let mutable GlobalBehaviour = None // Initially the global behaviour is not set 

let SetBehaviour useCaseIdentifier = 
    let useCases = GetBehaviour 
    let behavior = useCases.Item(useCaseIdentifier) 
    GlobalBehaviour <- Some behaviour // Now we set it to the last one 
    behaviour 

На практике это может сделать больше смысла использовать какой-то другой подход. Например, если вы хотите запустить это только один раз, вы можете использовать значение lazy (которое оценивает функцию один раз и кэширует результат, чтобы ваша конфигурация не читалась повторно). Но трудно дать лучший ответ без каких-либо подробностей.

Answer 2

Вы можете кэшировать случаи использования считанных из файла при инициализации модуля следующим образом:

module UseCaseModule 
let GlobalBehaviour = //Retreive use case from cachedUseCases and useCaseId 
let private cachedUseCases = JsonConvert.DeserializeObject<Map<string,Types.UseCase>>(Data.ReadUseCases) 
let mutable private useCaseId = None 
let private SetBehaviour useCaseIdentifier = 
    useCaseId <- useCaseIdentifier