版博士V2.0程序
25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
 
 
 
 

17 satır
509 B

  1. import { identity } from './function';
  2. export function split(P, C) {
  3. return function (pab, pcd) { return C.compose(P.right(pcd), P.left(pab)); };
  4. }
  5. export function fanIn(P, C) {
  6. var splitPC = split(P, C);
  7. return function (pac, pbc) {
  8. return C.compose(P.promap(C.id(), function (cc) { return (cc._tag === 'Left' ? cc.left : cc.right); }, identity), splitPC(pac, pbc));
  9. };
  10. }
  11. export function splitChoice(F) {
  12. return split(F, F);
  13. }
  14. export function fanin(F) {
  15. return fanIn(F, F);
  16. }