我之所以对函数式代码感兴趣是因为函数式代码富有表现力，可以使用简短、紧凑的代码完成工作，同时能对特定的问题给出优雅的解决方案。现代的编程语言不约而同的朝着面向对象、函数式、动态、解释执行的方向发展，例如Ruby,Swift。而另一些语言则更加强调函数式编程，如F#,Scala，这种语言有着强大的类型推断系统，编写的代码洁程度则令人叹为观止。
在F#编写一个两个数相加的函数，在F# Interactive中输入：
|
1 |
let add num1 num2=num1*num2;; |
F# Interactive为我们推断了这个函数类型：val add : num1:int -> num2:int -> int，表示add有两个int类型的参数得到了1个int类型。
函数当作参数：
|
1 2 3 4 5 6 |
//C# private int Twice(int input,Func<int,int> f) { return f(f(input)); } var result = Twice(2, n => n*n); |
使用F#则只需要非常简洁的一个函数声明：
|
1 2 3 4 5 6 |
> let twice (input:int) f=f(f(input));;
val twice : input:int -> f:(int -> int) -> int
> twice 2 (fun n->n*n);; val it : int = 16 |
val twice : input:int -> f:(int -> int) –> int 这句话则是F#
Interactive给出的推断：twice函数需要一个int参数和一个(int->int)的函数作为参数，返回一个int.
这两个例子仅仅是热身，并不是本篇博客的重点，所以你觉得前两个例子很无聊或者没太看明白请继续看下面的总结。
场景：某种活动会有一个日程安排(Schedule)，日程安排有3中类型，只举办一次(Once)，每天一次(Daily)，每周一次(Weekly)。活动会根据日程安排(Schedule)的类型不同具有不同的宣传内容，不同的延期举行策略。
你对于这样的场景会有怎么样的思考呢？
一、面向过程类型的编码方式
面向过程类型的编码是需求的直译过程，代码会写成这样：
1.显示活动的宣传内容：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
public void ShowScheduleDescriptions() { switch (ScheduleType) { case ScheduleType.Once: Console.WriteLine("this is once activity"); break; case ScheduleType.Daily: Console.WriteLine("this is daily activity"); break; case ScheduleType.Weekly: Console.WriteLine("this is weekly activity"); break; default: throw new InvalidOperationException("unsupported schedule"); } } |
这样的代码初次看起来没什么问题，实际存在两个危险信号：
- 违反开放封闭（OCP)原则，如果有一天需要加入一种Monthly类型，无疑需要修改这个方法；
- 这样的代码风格会让接下来的开发者不假思索的进行延续，比方说需要根据不同的活动类型延期活动；
2. 延期活动：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
public void DelaySchedule() { switch (ScheduleType) { case ScheduleType.Once: Console.WriteLine("Delay one hour"); break; case ScheduleType.Daily: Console.WriteLine("Delay one day"); break; case ScheduleType.Weekly: Console.WriteLine("Delay one week"); break; default: throw new InvalidOperationException("unsupported schedule"); } } |
这样的代格违反了DRY原则，相同的代码框架却无法重用。
二、面向对象的编码方式
对于一个有经验的OO开发者，一旦看到switch，if(type=typeof(…))之类的代码马上会提高警惕，是不是有一些抽象类型没有被找出来？在这个例子中则会找出下面的抽象：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
public class Schedule { public virtual void ShowShowScheduleDescriptions() { }
public virtual void DelaySchedule() { } }
public class OnceSchedule : Schedule { public override void ShowShowScheduleDescriptions() { Console.WriteLine("this is once activity"); }
public override void DelaySchedule() { Console.WriteLine("Delay one hour"); } }
public class DailySchedule : Schedule { public override void ShowShowScheduleDescriptions() { Console.WriteLine("this is daily activity"); }
public override void DelaySchedule() { Console.WriteLine("Delay daily day"); } }
//... other schedule |
这样的代码很好的解决了面向过程代码的两个问题，看起来更加具有扩展性，随着新类型的Schedule引入，旧的代码完全不用改动。
当然事情也不是绝对的，什么情况下需要改动旧代码呢？当需要扩展Schedule的行为的时候，例如需求升级，不同的Schedule具有不同的举办方式，我们不得不在每种Schedule中加入一个 void Hold()方法。
三、函数式解决方案
函数式语言则使用可区分联合和模式匹配来处理此类问题。
定义一个Schedule可区分联合：
|
1 2 3 4 |
type Schedule= | Once of DateTime | Daily of DateTime*int | Weekly of DateTime*int |
这个类型既说明了Schedule有三个不同的类型，同时定义了三种类型分别具有的数据结构。像是Enum和类的综合体，但是又显得特别精致。
1.显示活动的宣传内容，使用了模式匹配：
|
1 2 3 4 5 |
let ShowShowScheduleDescriptions schedule= match schedule with | Once(DateTime)-> printfn "this is once activity" | Daily(DateTime,int)->printfn "this is daily activity" | Weekly(DateTime,int)->printfn "this is weekly activity" |
这个方法类似于switch…case，但是通过匹配可区分联合来实现，而不是通过一个显示的Enum来实现。
2. 延期活动：
|
1 2 3 4 5 |
let DelaySchedule schedule= match schedule with | Once(DateTime)-> printfn "Delay one hour" | Daily(DateTime,int)->printfn "Delay one day" | Weekly(DateTime,int)->printfn "Delay one week" |
函数式编程的解决方案认为可以很方便的添加新的行为，例如增加新的行为：Hold()。通过定义可区分联合和模式匹配来完成编码，整个解决方案像是面向过程和面向对象的一种结合体，但是侧重点不同，实现的代码也更加精致。
来源：51CTO