@@ -90,14 +90,17 @@ object Test {
90
90
println(sm.run(1 ))
91
91
92
92
val seqm = StateMonad .sequence(List (2 , 3 , 5 ).map(c.process))
93
- println(seqm.run(1 ))
93
+ println(" sequence: " + seqm.run(1 ))
94
+
95
+ val trm = StateMonad .traverse(List (2 , 3 , 5 ))(c.process)
96
+ println(" traverse: " + trm.run(1 ))
94
97
95
98
val chainm = StateMonad .chain(List (2 , 3 , 5 ).map(c.process))
96
- println(chainm.run(1 ))
99
+ println(" chain: " + chainm.run(1 ))
97
100
98
101
99
102
val updm : StateMonad [Int , List [Unit ]] = StateMonad .sequence[Int , Unit ](List (2 , 3 , 5 ).map(c.update))
100
- println(updm.run(1 )._1)
103
+ println(" update: " + updm.run(1 )._1)
101
104
102
105
val sum : (Int , Int , Int ) => Int = _ + _ + _
103
106
val sumCurried : Int => Int => Int => Int = sum.curried
@@ -117,12 +120,12 @@ object Test {
117
120
}
118
121
}
119
122
120
- val fm = StateMonad .chain (List (2 , 3 , 5 ).map (factory) )
121
- println(fm.run(sum.curried)._2)
123
+ val fm = StateMonad .traverse (List (2 , 3 , 5 )) (factory)
124
+ println(" traverse factory int: " + fm.run(sum.curried)._2)
122
125
123
126
val concat : (String , String , String ) => String = _ + _ + _
124
- val fm1 = StateMonad .chain (List (" a" , " b" , " c" ).map (factory) )
125
- println(fm1.run(concat.curried)._2)
127
+ val fm1 = StateMonad .traverse (List (" a" , " b" , " c" )) (factory)
128
+ println(" traverse factory string: " + fm1.run(concat.curried)._2)
126
129
127
130
object fs {
128
131
def comb (list : Any * ): String = {
0 commit comments