前言

初步深入函數式編程是在寒假的時候，搞了一本Haskell的書，啃了沒多久就因為我突然的項目任務被擱置了，不過在學習的時候也是各種看不懂，里面的概念略微抽象，再加上當時沒有適當地實戰敲Demo，導致沒過多久腦袋就全空了。慶幸的是，Swift是一門高度兼容函數式編程范式的語言，而我又是一只喜歡敲Swift的程序Dog，在后來我使用Swift編碼時，有意識或無意識地套用函數式編程范式的一些概念，也漸漸加深我對函數式編程的理解。這篇文章是我對自己所掌握的函數式編程的一個小總結，主要探討的是函數式編程中的幾個概念: Functor、Applicative、Monad以及它們在Swift中的表現形式。由于本人能力有限，一些概念上的不嚴謹、編碼上的不全面希望大家多包涵，歡迎留下各位寶貴的意見或問題。

本文為純概念講述，后期或許會有函數式編程實戰的文章推出（我有空寫再說吧）

概念

Context

在編碼時，我們會遇到各種數據類型，基礎的數據類型我們稱作值，當然這并不是指編程語言中的基本數據類型，比如說整形1它可以稱作一個值，一個結構體struct Person { let name: String; let age: Int }的實例也可以成為一個值，那么何為Context(上下文)呢，我們可以將它理解為對值的一個包裝，通過這層包裝，我們可以得知值此時所處在的一個狀態。在Haskell中，這個包裝就是typeclass(類型類)，而在Swift中，魔性的enum(枚舉)可以充當這個角色，一個例子，就是Swift中的Optional(可選類型)，它的定義如下(相關繼承或協議關系在這里不標出):

Optional<Wrapped> {
    case none
    case some(Wrapped)

Optional有兩種狀態，一種是空狀態none，也就是和平時我們傳入的nil相等價，一種是存在值的狀態，泛型Wrapped指代被包入這層上下文的值的類型。通過這個例子，我們可以很直觀地理解Context：描述值在某一階段的狀態。當然，在平時開發中，我們會見到各種Context，比如Either：

enum Either<L, R> {
    case left(L)
    case right(R)
}

它代表在某個階段值可能在left或者right中存在。
在一些函數式響應式編程框架如ReactiveCocoa、RxSwift中，Context無處不在：RACSignal、Observable，甚至是Swift的基本類型Array(數組)它本身也可以看作是一個Context。可見，只要你接觸了函數式編程，Context即會接觸。

這里，我特別說下這個Context：Result，因為在后面對其他概念以及實戰的講述中我都會以它為基礎：

enum Result<T> {
    case success(T)
    case failure(MyError)
}

Result上下文存在兩種狀態，一種是成功的狀態，當處于這個狀態，Result就會持有一個特定類型的值，另外一種狀態是失敗狀態，在這個狀態中，你可以獲取到一個錯誤的實例（這個實例可以是你自己擬定的）。這么這個Context有什么用呢？想象一下，你正在進行一項網絡操作，獲取到的數據是無法確定的，你或許能如你所愿，從服務器中獲取到你期望的值，但是也有可能此時服務器發生一些未知的錯誤，或者網絡延時，又或是一些不可抗力的影響，那么，此時你得到的將會是一個錯誤的表示，如HTTP Code 500...而Result可以在這種情況下引入來表示你在網絡操作中獲取到的最終結果，是成功還是失敗。除了網絡請求，諸如數據庫操作、數據解析等等，Result都可以引入來進行更明確的標示。

何為Functor、Applicative、Monad?

你可以把Functor、Applicative、Monad想象成Swift中的Protocol(協議)，它們可以為某種數據結構的抽象，而這種數據接口正是剛剛我在上面提到的Context，要將某個Context實現成Functor、Applicative、Monad，你必須實現其中特定的函數，所以，要了解什么是Functor、Applicative、Monad，你需要知道它們定義了那些協議函數。接下來我會一一講解。

Functor

我們對一個值的運算操作使用的是函數，比如我要對一個整形的值進行翻倍操作，我們可以定義一個函數：

func double(_ value: Int) -> Int {
    return 2 * value
}

然后就可以拿這個函數對特定的值進行操作：

let a = 2
let b = double(a)

好，問題來了，如果此時這個值被包在一個Context中呢？
一個函數只能作用于它聲明好的特定類型的值，運算整形的函數不能用來運算一個非整形的Context，所以這時，我們引入了Functor。它要做的，就是使一個只能運算值的函數用來運算一個包有這個值類型的Context，最后返回的一個包有運算結果的Context，為此，我們要實現map這個函數(在Haskell中為fmap)，它的偽代碼是這樣的：
Context(結果值) = map(Context(初始值), 運算函數)

現在我們拿Result來實現一下：

extension Result {
    func map<O>(_ mapper: (T) -> O) -> Result<O> {
        switch self {
        case .failure(let error):
            return .failure(error)
        case .success(let value):
            return .success(mapper(value))
        }
    }
}

我們可以看到，首先我們對Result進行模式匹配，當此時狀態是失敗的話，我們也直接返回失敗，并把錯誤的實例傳遞下去，如果狀態是成功的，我們就對初始的值進行運算，最后返回包有結果值的成功狀態。
為了后面表達式簡便，我在這里定義了map的運算符<^>：

precedencegroup ChainingPrecedence {
    associativity: left
    higherThan: TernaryPrecedence
}

// Functor
infix operator <^> : ChainingPrecedence

// For Result
func <^><T, O>(lhs: (T) -> O, rhs: Result<T>) -> Result<O> {
    return rhs.map(lhs)
}

我們現在就可以測試一下：

let a: Result<Int> = .success(2)
let b = double <^> a

在上面我提到，Swift的數組也可以當成是Context，它是作為一個包有多個值的狀態存在。想必在日常開發中我們經常也用到了Swift數組中的map函數吧：

let arrA = [1, 2, 3, 4, 5]
let arrB = arrA.map(double)

RxSwift中我們也經常使用map：

let ob = Observable.just(1).map(double)

Applicative

Applicative其實就是高級的Functor，我們可以調出上面Functor的map偽代碼：
Context(結果值) = map(Context(初始值), 運算函數)
在函數式編程中，函數也可以作為一個值來看待，若此時這個函數也是被一個Context包裹的，單純的map是不能接受包裹著函數的Context，所以我們引入了Applicative：
Context(結果值) = apply(Context(初始值), Context(運算函數))

我們將Result實現Applicative：

extension Result {
    func apply<O>(_ mapper: Result<(T) -> O>) -> Result<O> {
        switch mapper {
        case .failure(let error):
            return .failure(error)
        case .success(let function):
            return self.map(function)
        }
    }
}

// Applicative
infix operator <*> : ChainingPrecedence

// For Result
func <*><T, O>(lhs: Result<(T) -> O>, rhs: Result<T>) -> Result<O> {
    return rhs.apply(lhs)
}

使用：

let function: Result<(Int) -> Int> = .success(double)
let a: Result<Int> = .success(2)
let b = function <*> a

Applicative在日常開發中其實用的不多，很多時候我們并不會將一個函數塞進一個Context上，但是如果你用了一些略為高階的函數時，它強勁的能力就能在此時表現出來，這里舉一個略為晦澀的例子，你可以花點時間搞懂它：
這個例子的思路是來自源Swift的函數式JSON解析庫Argo的基本用法，若大家有興趣可以閱讀下Argo的源碼: thoughtbot/Argo

假設現在我定義了一個函數，它能夠接受一個Any的JSON Object，以及一個值在JSON中對應的Key(鍵)作為參數，返回一個從JSON數據中解析出來的結果，由于這個結果是不確定的，可能JSON中不存在此鍵對應的值，所以我們用Result來包裝它，這個函數的簽名為：

func parse<T>(jsonObject: Any, key: String) -> Result<T>

當解析成功時，返回的Result處于成功狀態，當解析失敗時，返回的Result處于失敗狀態并攜帶錯誤的實體，我們能夠通過錯誤實體得知解析失敗的原因。

現在我們有一個結構體，它里面有多個成員，它實現了默認的構造器：

struct Person {
    let name: String
    let age: Int
    let from: String
}

我們自己可以編寫一套函數柯里化的庫，這個庫能夠對多參數的函數進行柯里化，你也可以從Github中下載: thoughtbot/Curry
比如，我們有一個函數，它的基本簽名是: func haha(a: Int, b: Int, c: Int) -> Int，通過函數柯里化我們可以將其轉化為(Int) -> (Int) -> (Int) -> Int類型的函數。
我們此時將Person的構造器進行函數柯里化：curry(Person.init)，此時我們得到的是類型為(String) -> (Int) -> (String) -> Person的值。
現在奇幻的魔法來了，我定義一個將JSON解析成Person的函數：

func parseJSONToPerson(json: Any) -> Result<Person> {
    return curry(Person.init)
        <^> parse(jsonObject: json, key: "name")
        <*> parse(jsonObject: json, key: "age")
        <*> parse(jsonObject: json, key: "from")
}

通過這個函數，我能夠將一個JSON數據解析成Person的實例，以一個Result的包裝返回，如果解析失敗，Result處理失敗狀態會攜帶一個錯誤的實例。

這個函數為什么可以這么寫呢，我們來分解一下：
首先通過函數的柯里化我們得到了類型為(String) -> (Int) -> (String) -> Person的值，它也是一個函數，然后經過了<^>map的操作，map的右邊是一個解析了name返回的Result，它的類型為Result<String>，map將函數(String) -> (Int) -> (String) -> Person應用于Result<String>，此時我們得到的是返回的結果(Int) -> (String) -> Person的Result包裝：Result<(Int) -> (String) -> Person>(因為已經消費掉了一個參數)，此時，這個函數就被一個Context包裹住了，后面我們不能再用map去將這個函數應用在接下來解析出來的數據了，所以這是我們就借助于Applicative的<*>，接下來看第二個參數，parse函數將JSON解析返回了類型為Result<Int>的結果，我們通過<*>將Result<(Int) -> (String) -> Person>的函數取出來，應用于Result<Int>，就得到了類型為Result<(String) -> Person>的結果。以此類推，最終我們就獲取到了經JSON解析后的結果Result<Person>。
Applicative強大的能力能夠讓代碼變得如此優雅，這就是函數式編程的魅力之所在。

Monad

Monad中文稱為單子，網上看到挺多人被Monad的概念所搞暈，其實它也是基于上面所講述的概念而來的。對于使用過函數式響應式編程框架(Rx系列[RxSwift、RxJava]、ReactiveCocoa)的人來說，可能不知道Monad是什么，但是在實戰中肯定用過，它所要求實現的函數說白了就是flatMap：

let ob = Observable.just(1).flatMap { num in
    Observable.just("The number is \(num)")
}

有很多人喜歡用降維來形容flatMap的能力，但是，它能做的，不止如此。
Monad需要實現的函數我們可以稱為bind，在Haskell中它使用符號>>=，在Swift中我們可以定義運算符>>-來表示bind函數，或者直接叫做flatMap。我們先來看看他的偽代碼：
首先我們定義一個函數，他的作用是將一個值進行包裝，這里標示出這個函數的簽名：
function :: 值A -> Context(值B)（值A與值B的類型可相同亦可不同）
我們的bind函數就可以這么寫了：
Context(結果值) = Context(初始值) >>- function
這里我們實現一下Result的Monad：

extension Result {
    func flatMap<O>(_ mapper: (T) -> Result<O>) -> Result<O> {
        switch self {
        case .failure(let error):
            return .failure(error)
        case .success(let value):
            return mapper(value)
        }
    }
}

// Monad
infix operator >>- : ChainingPrecedence

// For Result
func >>-<T, O>(lhs: Result<T>, rhs: (T) -> Result<O>) -> Result<O> {
    return lhs.flatMap(rhs)
}

Monad的定義很簡單，但是Monad究竟能幫我們解決什么問題呢？它要怎么使用呢？別急，通過以下這個例子，你就能對Monad有更深一層的理解：
假設現在我有一系列的操作：

1. 通過特定條件進行本地數據庫的查詢，找出相關的數據
2. 利用上面從數據庫得到的數據作為參數，向服務器發起請求，獲取響應數據
3. 將從網絡獲取到的原始數據轉換成JSON數據
4. 將JSON數據進行解析，返回最終解析完成的有特定類型的實體

對以上操作的分析，我們能得知以上每一個操作它的最終結果都具有不確定性，意思就是說我們無法保證操作百分百完成，能成功返回我們想要的數據，所以我們很容易就會想到利用上面已經定義的Context：Reuslt將獲取到的結果進行包裹，若獲取結果成功，Result將攜帶結果值處于成功狀態，若獲取結果失敗，Result將攜帶錯誤的信息處于失敗狀態。
現在，我們針對以上每種操作進行函數定義：

// A代表從數據庫查找數據的條件的類型
// B代表期望數據庫返回結果的類型
func fetchFromDatabase(conditions: A) -> Result<B> { ... }

// B類型作為網絡請求的參數類型發起網絡請求
// 獲取到的數據為C類型，可能是原始字符串或者是二進制
func requestNetwork(parameters: B) -> Result<C> { ... }

// 將獲取到的原始數據類型轉換成JSON數據
func dataToJSON(data: C) -> Result<JSON> { ... }

// 將JSON進行解析輸出實體
func parse(json: JSON) -> Result<Entity> { ... }

現在我們假設所有的操作都是在同一條線程中進行的（非UI線程），如果我們只是純粹地用基本的方法去調用這些函數，我們可能要這么來：

var entityResult: Entity?
if case .success(let b) = fetchFromDatabase(conditions: XXX) {
    if case .success(let c) = requestNetwork(parameters: b) {
        if case .success(let json) = dataToJSON(data: c) {
            if case .success(let entity) = parse(json: json) {
                entityResult = entity
            }
        }
    }
}

這代碼寫起來也好看起來也好真的是一把辛酸淚啊，而且，這里還有一個缺陷，就是我們無法從中獲取到錯誤的信息，如果我們還想要獲取到錯誤的信息，必須再編寫多一大串代碼了。

此時，Monad出場了：

let entityResult = fetchFromDatabase(conditions: XXX) >>- requestNetwork >>- dataToJSON >>- parse

嚇到了吧，只需一行代碼，即可將所有要做的事情連串起來了，并且，最終我們獲取到的是經Result包裝的數據，若在操作的過程中發生錯誤，錯誤的信息也記錄在里面了。
這就是Monad的威力

當然，我們可以繼續對上面的操作進行優化，比如說現在我需要在網絡請求的函數中加多一個參數，表示請求的URL，我們可以這樣來定義這個網絡請求函數：

// B類型作為網絡請求的參數類型發起網絡請求
// 獲取到的數據為C類型，可能是原始字符串或者是二進制
func requestNetwork(urlString: String) -> (B) -> Result<C> {
    return { parameters in
        return { ... }
    }
}

調用的時候我們只需要這樣調用:

let entityResult = fetchFromDatabase(conditions: XXX) >>- requestNetwork(urlString: "XXX.com/XXX/XXX") >>- dataToJSON >>- parse

這主要是高階函數的使用技巧。

個人對Monad作用的總結有兩部分：

1. 對一系列針對值與Context的操作進行鏈式結合，代碼極其優雅，清晰明了。
2. 將值與Context之間的轉換、Context內部進行的操作對外屏蔽，像上面我用原始的方式進行操作，我們需要手動地分析Context的情況，手動地針對不同的Context狀態進行相應的操作，而如果我們使用Monad，整一流程下來我們什么都不需要做，坐享其成，取得最終的結果。

總結

Swift是一門高度適配函數式編程范式的語言，你可以在里面到處都能找到函數式編程思想的身影，通過上面對Functor、Appliactive、Monad相關概念的講述，在鞏固我對函數式編程的知識外，希望也能讓你對函數式編程的理解有幫助，若文章有概念不嚴謹的地方或者錯誤，望見諒，也希望能夠向我提出。
謝謝閱讀。

參考鏈接

阮一峰的網絡日志 - 圖解 Monad