版博士V2.0程序
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
 
 
 
 

314 wiersze
14 KiB

  1. /**
  2. * The state monad transformer. It can be used to add state to other monads.
  3. *
  4. * The `of` function leaves the state unchanged, while `chain` uses the final state of the first computation
  5. * as the initial state of the second.
  6. *
  7. * @since 2.0.0
  8. */
  9. import { Chain, Chain1, Chain2, Chain2C, Chain3, Chain3C } from './Chain'
  10. import { Functor, Functor1, Functor2, Functor2C, Functor3, Functor3C } from './Functor'
  11. import { HKT, Kind, Kind2, Kind3, URIS, URIS2, URIS3 } from './HKT'
  12. import { Monad, Monad1, Monad2, Monad2C, Monad3, Monad3C } from './Monad'
  13. import { Pointed, Pointed1, Pointed2, Pointed2C, Pointed3, Pointed3C } from './Pointed'
  14. import { State } from './State'
  15. /**
  16. * @category model
  17. * @since 2.0.0
  18. */
  19. export interface StateT<M, S, A> {
  20. (s: S): HKT<M, [A, S]>
  21. }
  22. /**
  23. * @category model
  24. * @since 2.0.0
  25. */
  26. export interface StateT1<M extends URIS, S, A> {
  27. (s: S): Kind<M, [A, S]>
  28. }
  29. /**
  30. * @category model
  31. * @since 2.0.0
  32. */
  33. export interface StateT2<M extends URIS2, S, E, A> {
  34. (s: S): Kind2<M, E, [A, S]>
  35. }
  36. /**
  37. * @category model
  38. * @since 2.0.0
  39. */
  40. export interface StateT3<M extends URIS3, S, R, E, A> {
  41. (s: S): Kind3<M, R, E, [A, S]>
  42. }
  43. /**
  44. * @since 2.10.0
  45. */
  46. export declare function of<F extends URIS3>(F: Pointed3<F>): <A, S, R, E>(a: A) => StateT3<F, S, R, E, A>
  47. export declare function of<F extends URIS3, E>(F: Pointed3C<F, E>): <A, S, R>(a: A) => StateT3<F, S, R, E, A>
  48. export declare function of<F extends URIS2>(F: Pointed2<F>): <A, S, E>(a: A) => StateT2<F, S, E, A>
  49. export declare function of<F extends URIS2, E>(F: Pointed2C<F, E>): <A, S>(a: A) => StateT2<F, S, E, A>
  50. export declare function of<F extends URIS>(F: Pointed1<F>): <A, S>(a: A) => StateT1<F, S, A>
  51. export declare function of<F>(F: Pointed<F>): <A, S>(a: A) => StateT<F, S, A>
  52. /**
  53. * @since 2.10.0
  54. */
  55. export declare function map<F extends URIS3>(
  56. F: Functor3<F>
  57. ): <A, B>(f: (a: A) => B) => <S, R, E>(fa: StateT3<F, S, R, E, A>) => StateT3<F, S, R, E, B>
  58. export declare function map<F extends URIS3, E>(
  59. F: Functor3C<F, E>
  60. ): <A, B>(f: (a: A) => B) => <S, R>(fa: StateT3<F, S, R, E, A>) => StateT3<F, S, R, E, B>
  61. export declare function map<F extends URIS2>(
  62. F: Functor2<F>
  63. ): <A, B>(f: (a: A) => B) => <S, E>(fa: StateT2<F, S, E, A>) => StateT2<F, S, E, B>
  64. export declare function map<F extends URIS2, E>(
  65. F: Functor2C<F, E>
  66. ): <A, B>(f: (a: A) => B) => <S>(fa: StateT2<F, S, E, A>) => StateT2<F, S, E, B>
  67. export declare function map<F extends URIS>(
  68. F: Functor1<F>
  69. ): <A, B>(f: (a: A) => B) => <S>(fa: StateT1<F, S, A>) => StateT1<F, S, B>
  70. export declare function map<F>(F: Functor<F>): <A, B>(f: (a: A) => B) => <S>(fa: StateT<F, S, A>) => StateT<F, S, B>
  71. /**
  72. * @since 2.10.0
  73. */
  74. export declare function ap<M extends URIS3>(
  75. M: Chain3<M>
  76. ): <S, R, E, A>(fa: StateT3<M, S, R, E, A>) => <B>(fab: StateT3<M, S, R, E, (a: A) => B>) => StateT3<M, S, R, E, B>
  77. export declare function ap<M extends URIS3, E>(
  78. M: Chain3C<M, E>
  79. ): <S, R, A>(fa: StateT3<M, S, R, E, A>) => <B>(fab: StateT3<M, S, R, E, (a: A) => B>) => StateT3<M, S, R, E, B>
  80. export declare function ap<M extends URIS2>(
  81. M: Chain2<M>
  82. ): <S, E, A>(fa: StateT2<M, S, E, A>) => <B>(fab: StateT2<M, S, E, (a: A) => B>) => StateT2<M, S, E, B>
  83. export declare function ap<M extends URIS2, E>(
  84. M: Chain2C<M, E>
  85. ): <S, A>(fa: StateT2<M, S, E, A>) => <B>(fab: StateT2<M, S, E, (a: A) => B>) => StateT2<M, S, E, B>
  86. export declare function ap<M extends URIS>(
  87. M: Chain1<M>
  88. ): <S, A>(fa: StateT1<M, S, A>) => <B>(fab: StateT1<M, S, (a: A) => B>) => StateT1<M, S, B>
  89. export declare function ap<M>(
  90. M: Chain<M>
  91. ): <S, A>(fa: StateT<M, S, A>) => <B>(fab: StateT<M, S, (a: A) => B>) => StateT<M, S, B>
  92. /**
  93. * @since 2.10.0
  94. */
  95. export declare function chain<M extends URIS3>(
  96. M: Chain3<M>
  97. ): <A, S, R, E, B>(f: (a: A) => StateT3<M, S, R, E, B>) => (ma: StateT3<M, S, R, E, A>) => StateT3<M, S, R, E, B>
  98. export declare function chain<M extends URIS3, E>(
  99. M: Chain3C<M, E>
  100. ): <A, S, R, B>(f: (a: A) => StateT3<M, S, R, E, B>) => (ma: StateT3<M, S, R, E, A>) => StateT3<M, S, R, E, B>
  101. export declare function chain<M extends URIS2>(
  102. M: Chain2<M>
  103. ): <A, S, E, B>(f: (a: A) => StateT2<M, S, E, B>) => (ma: StateT2<M, S, E, A>) => StateT2<M, S, E, B>
  104. export declare function chain<M extends URIS2, E>(
  105. M: Chain2C<M, E>
  106. ): <A, S, B>(f: (a: A) => StateT2<M, S, E, B>) => (ma: StateT2<M, S, E, A>) => StateT2<M, S, E, B>
  107. export declare function chain<M extends URIS>(
  108. M: Chain1<M>
  109. ): <A, S, B>(f: (a: A) => StateT1<M, S, B>) => (ma: StateT1<M, S, A>) => StateT1<M, S, B>
  110. export declare function chain<M>(
  111. M: Chain<M>
  112. ): <A, S, B>(f: (a: A) => StateT<M, S, B>) => (ma: StateT<M, S, A>) => StateT<M, S, B>
  113. /**
  114. * @since 2.10.0
  115. */
  116. export declare function fromState<F extends URIS3>(
  117. F: Pointed3<F>
  118. ): <S, A, R, E>(sa: State<S, A>) => StateT3<F, S, R, E, A>
  119. export declare function fromState<F extends URIS3, E>(
  120. F: Pointed3C<F, E>
  121. ): <S, A, R>(sa: State<S, A>) => StateT3<F, S, R, E, A>
  122. export declare function fromState<F extends URIS2>(F: Pointed2<F>): <S, A, E>(sa: State<S, A>) => StateT2<F, S, E, A>
  123. export declare function fromState<F extends URIS2, E>(
  124. F: Pointed2C<F, E>
  125. ): <S, A>(sa: State<S, A>) => StateT2<F, S, E, A>
  126. export declare function fromState<F extends URIS>(F: Pointed1<F>): <S, A>(sa: State<S, A>) => StateT1<F, S, A>
  127. export declare function fromState<F>(F: Pointed<F>): <S, A>(sa: State<S, A>) => StateT<F, S, A>
  128. /**
  129. * @since 2.10.0
  130. */
  131. export declare function fromF<F extends URIS3>(
  132. F: Functor3<F>
  133. ): <R, E, A, S>(ma: Kind3<F, R, E, A>) => StateT3<F, S, R, E, A>
  134. export declare function fromF<F extends URIS3, E>(
  135. F: Functor3C<F, E>
  136. ): <R, A, S>(ma: Kind3<F, R, E, A>) => StateT3<F, S, R, E, A>
  137. export declare function fromF<F extends URIS2>(F: Functor2<F>): <E, A, S>(ma: Kind2<F, E, A>) => StateT2<F, S, E, A>
  138. export declare function fromF<F extends URIS2, E>(F: Functor2C<F, E>): <A, S>(ma: Kind2<F, E, A>) => StateT2<F, S, E, A>
  139. export declare function fromF<F extends URIS>(F: Functor1<F>): <A, S>(ma: Kind<F, A>) => StateT1<F, S, A>
  140. export declare function fromF<F>(F: Functor<F>): <A, S>(ma: HKT<F, A>) => StateT<F, S, A>
  141. /**
  142. * @since 2.10.0
  143. */
  144. export declare function evaluate<F extends URIS3>(
  145. F: Functor3<F>
  146. ): <S>(s: S) => <R, E, A>(ma: StateT3<F, S, R, E, A>) => Kind3<F, R, E, A>
  147. export declare function evaluate<F extends URIS3, E>(
  148. F: Functor3C<F, E>
  149. ): <S>(s: S) => <R, A>(ma: StateT3<F, S, R, E, A>) => Kind3<F, R, E, A>
  150. export declare function evaluate<F extends URIS2>(
  151. F: Functor2<F>
  152. ): <S>(s: S) => <E, A>(ma: StateT2<F, S, E, A>) => Kind2<F, E, A>
  153. export declare function evaluate<F extends URIS2, E>(
  154. F: Functor2C<F, E>
  155. ): <S>(s: S) => <A>(ma: StateT2<F, S, E, A>) => Kind2<F, E, A>
  156. export declare function evaluate<F extends URIS>(F: Functor1<F>): <S>(s: S) => <A>(ma: StateT1<F, S, A>) => Kind<F, A>
  157. export declare function evaluate<F>(F: Functor<F>): <S>(s: S) => <A>(ma: StateT<F, S, A>) => HKT<F, A>
  158. /**
  159. * @since 2.10.0
  160. */
  161. export declare function execute<F extends URIS3>(
  162. F: Functor3<F>
  163. ): <S>(s: S) => <R, E, A>(ma: StateT3<F, S, R, E, A>) => Kind3<F, R, E, S>
  164. export declare function execute<F extends URIS3, E>(
  165. F: Functor3C<F, E>
  166. ): <S>(s: S) => <R, A>(ma: StateT3<F, S, R, E, A>) => Kind3<F, R, E, S>
  167. export declare function execute<F extends URIS2>(
  168. F: Functor2<F>
  169. ): <S>(s: S) => <E, A>(ma: StateT2<F, S, E, A>) => Kind2<F, E, S>
  170. export declare function execute<F extends URIS2, E>(
  171. F: Functor2C<F, E>
  172. ): <S>(s: S) => <A>(ma: StateT2<F, S, E, A>) => Kind2<F, E, S>
  173. export declare function execute<F extends URIS>(F: Functor1<F>): <S>(s: S) => <A>(ma: StateT1<F, S, A>) => Kind<F, S>
  174. export declare function execute<F>(F: Functor<F>): <S>(s: S) => <A>(ma: StateT<F, S, A>) => HKT<F, S>
  175. /**
  176. * @category zone of death
  177. * @since 2.0.0
  178. * @deprecated
  179. */
  180. export interface StateM<M> {
  181. readonly map: <S, A, B>(fa: StateT<M, S, A>, f: (a: A) => B) => StateT<M, S, B>
  182. readonly of: <S, A>(a: A) => StateT<M, S, A>
  183. readonly ap: <S, A, B>(fab: StateT<M, S, (a: A) => B>, fa: StateT<M, S, A>) => StateT<M, S, B>
  184. readonly chain: <S, A, B>(fa: StateT<M, S, A>, f: (a: A) => StateT<M, S, B>) => StateT<M, S, B>
  185. readonly get: <S>() => StateT<M, S, S>
  186. readonly put: <S>(s: S) => StateT<M, S, void>
  187. readonly modify: <S>(f: (s: S) => S) => StateT<M, S, void>
  188. readonly gets: <S, A>(f: (s: S) => A) => StateT<M, S, A>
  189. readonly fromState: <S, A>(fa: State<S, A>) => StateT<M, S, A>
  190. readonly fromM: <S, A>(ma: HKT<M, A>) => StateT<M, S, A>
  191. readonly evalState: <S, A>(ma: StateT<M, S, A>, s: S) => HKT<M, A>
  192. readonly execState: <S, A>(ma: StateT<M, S, A>, s: S) => HKT<M, S>
  193. }
  194. /**
  195. * @category zone of death
  196. * @since 2.0.0
  197. * @deprecated
  198. */
  199. export interface StateM1<M extends URIS> {
  200. readonly map: <S, A, B>(fa: StateT1<M, S, A>, f: (a: A) => B) => StateT1<M, S, B>
  201. readonly of: <S, A>(a: A) => StateT1<M, S, A>
  202. readonly ap: <S, A, B>(fab: StateT1<M, S, (a: A) => B>, fa: StateT1<M, S, A>) => StateT1<M, S, B>
  203. readonly chain: <S, A, B>(fa: StateT1<M, S, A>, f: (a: A) => StateT1<M, S, B>) => StateT1<M, S, B>
  204. readonly get: <S>() => StateT1<M, S, S>
  205. readonly put: <S>(s: S) => StateT1<M, S, void>
  206. readonly modify: <S>(f: (s: S) => S) => StateT1<M, S, void>
  207. readonly gets: <S, A>(f: (s: S) => A) => StateT1<M, S, A>
  208. readonly fromState: <S, A>(fa: State<S, A>) => StateT1<M, S, A>
  209. readonly fromM: <S, A>(ma: Kind<M, A>) => StateT1<M, S, A>
  210. readonly evalState: <S, A>(ma: StateT1<M, S, A>, s: S) => Kind<M, A>
  211. readonly execState: <S, A>(ma: StateT1<M, S, A>, s: S) => Kind<M, S>
  212. }
  213. /**
  214. * @category zone of death
  215. * @since 2.0.0
  216. * @deprecated
  217. */
  218. export interface StateM2<M extends URIS2> {
  219. readonly map: <S, E, A, B>(fa: StateT2<M, S, E, A>, f: (a: A) => B) => StateT2<M, S, E, B>
  220. readonly of: <S, E, A>(a: A) => StateT2<M, S, E, A>
  221. readonly ap: <S, E, A, B>(fab: StateT2<M, S, E, (a: A) => B>, fa: StateT2<M, S, E, A>) => StateT2<M, S, E, B>
  222. readonly chain: <S, E, A, B>(fa: StateT2<M, S, E, A>, f: (a: A) => StateT2<M, S, E, B>) => StateT2<M, S, E, B>
  223. readonly get: <E, S>() => StateT2<M, S, E, S>
  224. readonly put: <E, S>(s: S) => StateT2<M, S, E, void>
  225. readonly modify: <E, S>(f: (s: S) => S) => StateT2<M, S, E, void>
  226. readonly gets: <S, E, A>(f: (s: S) => A) => StateT2<M, S, E, A>
  227. readonly fromState: <S, E, A>(fa: State<S, A>) => StateT2<M, S, E, A>
  228. readonly fromM: <S, E, A>(ma: Kind2<M, E, A>) => StateT2<M, S, E, A>
  229. readonly evalState: <S, E, A>(ma: StateT2<M, S, E, A>, s: S) => Kind2<M, E, A>
  230. readonly execState: <S, E, A>(ma: StateT2<M, S, E, A>, s: S) => Kind2<M, E, S>
  231. }
  232. /**
  233. * @category zone of death
  234. * @since 2.5.4
  235. * @deprecated
  236. */
  237. export interface StateM2C<M extends URIS2, E> {
  238. readonly map: <S, A, B>(fa: StateT2<M, S, E, A>, f: (a: A) => B) => StateT2<M, S, E, B>
  239. readonly of: <S, A>(a: A) => StateT2<M, S, E, A>
  240. readonly ap: <S, A, B>(fab: StateT2<M, S, E, (a: A) => B>, fa: StateT2<M, S, E, A>) => StateT2<M, S, E, B>
  241. readonly chain: <S, A, B>(fa: StateT2<M, S, E, A>, f: (a: A) => StateT2<M, S, E, B>) => StateT2<M, S, E, B>
  242. readonly get: <S>() => StateT2<M, S, E, S>
  243. readonly put: <S>(s: S) => StateT2<M, S, E, void>
  244. readonly modify: <S>(f: (s: S) => S) => StateT2<M, S, E, void>
  245. readonly gets: <S, A>(f: (s: S) => A) => StateT2<M, S, E, A>
  246. readonly fromState: <S, A>(fa: State<S, A>) => StateT2<M, S, E, A>
  247. readonly fromM: <S, A>(ma: Kind2<M, E, A>) => StateT2<M, S, E, A>
  248. readonly evalState: <S, A>(ma: StateT2<M, S, E, A>, s: S) => Kind2<M, E, A>
  249. readonly execState: <S, A>(ma: StateT2<M, S, E, A>, s: S) => Kind2<M, E, S>
  250. }
  251. /**
  252. * @category zone of death
  253. * @since 2.0.0
  254. * @deprecated
  255. */
  256. export interface StateM3<M extends URIS3> {
  257. readonly map: <S, R, E, A, B>(fa: StateT3<M, S, R, E, A>, f: (a: A) => B) => StateT3<M, S, R, E, B>
  258. readonly of: <S, R, E, A>(a: A) => StateT3<M, S, R, E, A>
  259. readonly ap: <S, R, E, A, B>(
  260. fab: StateT3<M, S, R, E, (a: A) => B>,
  261. fa: StateT3<M, S, R, E, A>
  262. ) => StateT3<M, S, R, E, B>
  263. readonly chain: <S, R, E, A, B>(
  264. fa: StateT3<M, S, R, E, A>,
  265. f: (a: A) => StateT3<M, S, R, E, B>
  266. ) => StateT3<M, S, R, E, B>
  267. readonly get: <R, E, S>() => StateT3<M, S, R, E, S>
  268. readonly put: <R, E, S>(s: S) => StateT3<M, S, R, E, void>
  269. readonly modify: <R, E, S>(f: (s: S) => S) => StateT3<M, S, R, E, void>
  270. readonly gets: <S, R, E, A>(f: (s: S) => A) => StateT3<M, S, R, E, A>
  271. readonly fromState: <S, R, E, A>(fa: State<S, A>) => StateT3<M, S, R, E, A>
  272. readonly fromM: <S, R, E, A>(ma: Kind3<M, R, E, A>) => StateT3<M, S, R, E, A>
  273. readonly evalState: <S, R, E, A>(ma: StateT3<M, S, R, E, A>, s: S) => Kind3<M, R, E, A>
  274. readonly execState: <S, R, E, A>(ma: StateT3<M, S, R, E, A>, s: S) => Kind3<M, R, E, S>
  275. }
  276. /**
  277. * @category zone of death
  278. * @since 2.5.4
  279. * @deprecated
  280. */
  281. export interface StateM3C<M extends URIS3, E> {
  282. readonly map: <S, R, A, B>(fa: StateT3<M, S, R, E, A>, f: (a: A) => B) => StateT3<M, S, R, E, B>
  283. readonly of: <S, R, A>(a: A) => StateT3<M, S, R, E, A>
  284. readonly ap: <S, R, A, B>(fab: StateT3<M, S, R, E, (a: A) => B>, fa: StateT3<M, S, R, E, A>) => StateT3<M, S, R, E, B>
  285. readonly chain: <S, R, A, B>(
  286. fa: StateT3<M, S, R, E, A>,
  287. f: (a: A) => StateT3<M, S, R, E, B>
  288. ) => StateT3<M, S, R, E, B>
  289. readonly get: <R, S>() => StateT3<M, S, R, E, S>
  290. readonly put: <R, S>(s: S) => StateT3<M, S, R, E, void>
  291. readonly modify: <R, S>(f: (s: S) => S) => StateT3<M, S, R, E, void>
  292. readonly gets: <S, R, A>(f: (s: S) => A) => StateT3<M, S, R, E, A>
  293. readonly fromState: <S, R, A>(fa: State<S, A>) => StateT3<M, S, R, E, A>
  294. readonly fromM: <S, R, A>(ma: Kind3<M, R, E, A>) => StateT3<M, S, R, E, A>
  295. readonly evalState: <S, R, A>(ma: StateT3<M, S, R, E, A>, s: S) => Kind3<M, R, E, A>
  296. readonly execState: <S, R, A>(ma: StateT3<M, S, R, E, A>, s: S) => Kind3<M, R, E, S>
  297. }
  298. /**
  299. * @category zone of death
  300. * @since 2.0.0
  301. * @deprecated
  302. */
  303. export declare function getStateM<M extends URIS3>(M: Monad3<M>): StateM3<M>
  304. /** @deprecated */
  305. export declare function getStateM<M extends URIS3, E>(M: Monad3C<M, E>): StateM3C<M, E>
  306. /** @deprecated */
  307. export declare function getStateM<M extends URIS2>(M: Monad2<M>): StateM2<M>
  308. /** @deprecated */
  309. export declare function getStateM<M extends URIS2, E>(M: Monad2C<M, E>): StateM2C<M, E>
  310. /** @deprecated */
  311. export declare function getStateM<M extends URIS>(M: Monad1<M>): StateM1<M>
  312. /** @deprecated */
  313. export declare function getStateM<M>(M: Monad<M>): StateM<M>