@@ -62,45 +62,50 @@ public static class TaskExtensions
62
62
### Case 1
63
63
64
64
``` cs
65
- from index in Enumerable .Range (1 , 5 )
66
- from date in Enumerable .Repeat (DateTime .Today , 5 )
67
- select (index , date ) into pair
68
- select pair .date .AddDays (pair .index );
65
+ var result =
66
+ from index in Enumerable .Range (1 , 5 )
67
+ from date in Enumerable .Repeat (DateTime .Today , 5 )
68
+ select (index , date ) into pair
69
+ select pair .date .AddDays (pair .index );
69
70
```
70
71
71
72
``` fs
72
- seq {
73
- let! index = Enumerable.Range(1, 5)
74
- let! date = Enumerable.Repeat(DateTime.Today, 5)
75
- let pair = (index, date)
76
- yield pair |> (fun (i, d) -> d.AddDays(i |> float))
77
- }
73
+ let result =
74
+ seq {
75
+ let! index = Enumerable.Range(1, 5)
76
+ let! date = Enumerable.Repeat(DateTime.Today, 5)
77
+ let pair = (index, date)
78
+ yield pair |> (fun (i, d) -> d.AddDays(i |> float))
79
+ }
78
80
```
79
81
80
82
### Case 2
81
83
82
84
``` cs
83
- from index in GetIndexAsync ()
84
- from date in Task .FromResult (DateTime .Today )
85
- select (index , date ) into pair
86
- select pair .date .AddDays (pair .index );
85
+ var result =
86
+ from index in GetIndexAsync ()
87
+ from date in Task .FromResult (DateTime .Today )
88
+ select (index , date ) into pair
89
+ select pair .date .AddDays (pair .index );
87
90
```
88
91
89
92
``` fs
90
- monad {
91
- let! index = GetIndexAsync()
92
- let! date = Task.FromResult(DateTime.Today)
93
- let pair = (index, date)
94
- yield pair |> (fun (i, d) -> d.AddDays(i |> float))
95
- }
93
+ let result =
94
+ monad {
95
+ let! index = GetIndexAsync()
96
+ let! date = Task.FromResult(DateTime.Today)
97
+ let pair = (index, date)
98
+ yield pair |> (fun (i, d) -> d.AddDays(i |> float))
99
+ }
96
100
```
97
101
98
102
### Case 3
99
103
``` cs
100
- from index in Option .Some (5 )
101
- from date in Option .None <DateTime >()
102
- select (index , date ) into pair
103
- select pair .date .AddDays (pair .index );
104
+ var result =
105
+ from index in Option .Some (5 )
106
+ from date in Option .None <DateTime >()
107
+ select (index , date ) into pair
108
+ select pair .date .AddDays (pair .index );
104
109
```
105
110
106
111
``` cs
@@ -113,12 +118,13 @@ async Option<DateTime> Fun() {
113
118
```
114
119
115
120
``` fs
116
- monad {
117
- let! index = Some 5
118
- let! date = None
119
- let pair = (index, date)
120
- yield pair |> (fun (i, (d:DateTime)) -> d.AddDays(i |> float))
121
- }
121
+ let result =
122
+ monad {
123
+ let! index = Some 5
124
+ let! date = None
125
+ let pair = (index, date)
126
+ yield pair |> (fun (i, (d:DateTime)) -> d.AddDays(i |> float))
127
+ }
122
128
```
123
129
` monad ` is from [ F#+] ( http://fsprojects.github.io/FSharpPlus/ ) , though implementing ` option ` Computation Expression manually is pretty straight-forward
124
130
0 commit comments