1 |
|
2 |
|
3 | "use strict";
|
4 |
|
5 |
|
6 |
|
7 |
|
8 |
|
9 | var utils = require("./utils.js");
|
10 |
|
11 |
|
12 |
|
13 |
|
14 |
|
15 |
|
16 | function showDef(obj) {
|
17 | return JSON.stringify(obj);
|
18 | }
|
19 |
|
20 |
|
21 |
|
22 |
|
23 | function showPair(showA, showB) {
|
24 | var result = function (p) {
|
25 | return "(" + showA(p[0]) + ", " + showB(p[1]) + ")";
|
26 | };
|
27 |
|
28 | return utils.curried3(result, arguments);
|
29 | }
|
30 |
|
31 |
|
32 |
|
33 |
|
34 | function showEither(showA, showB) {
|
35 | function showLeft(value) {
|
36 | return "Left(" + showA(value) + ")";
|
37 | }
|
38 |
|
39 | function showRight(value) {
|
40 | return "Right(" + showB(value) + ")";
|
41 | }
|
42 |
|
43 | var result = function (e) {
|
44 | return e.either(showLeft, showRight);
|
45 | };
|
46 |
|
47 | return utils.curried3(result, arguments);
|
48 | }
|
49 |
|
50 |
|
51 |
|
52 |
|
53 | function showTuple(shows) {
|
54 | var result = function (objs) {
|
55 | var strs = [];
|
56 | for (var i = 0; i < shows.length; i++) {
|
57 | strs.push(shows[i](objs[i]));
|
58 | }
|
59 | return strs.join("; ");
|
60 | };
|
61 |
|
62 | return utils.curried2(result, arguments);
|
63 | }
|
64 |
|
65 |
|
66 |
|
67 |
|
68 | function showSum(shows) {
|
69 | var result = function (sum) {
|
70 | return sum.fold(function (idx, n, value) {
|
71 | return "Sum(" + idx + "/" + n + ": " + shows[idx](value) + ")";
|
72 | });
|
73 | };
|
74 |
|
75 | return utils.curried2(result, arguments);
|
76 | }
|
77 |
|
78 |
|
79 |
|
80 |
|
81 | function showArray(show) {
|
82 | var result = function (arr) {
|
83 | return "[" + arr.map(show).join(", ") + "]";
|
84 | };
|
85 |
|
86 | return utils.curried2(result, arguments);
|
87 | }
|
88 |
|
89 | module.exports = {
|
90 | def: showDef,
|
91 | pair: showPair,
|
92 | either: showEither,
|
93 | tuple: showTuple,
|
94 | sum: showSum,
|
95 | array: showArray,
|
96 | };
|