leekwars-functional/struct.js at master · Shakadak/leekwars-functional · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
/*
* WARNING : NOT TESTED YET
*/

/**
* tuple1 : a -> Tuple a // Not really useful
*/
function tuple1(@x) { return function(@x_){ x_ =@ x; };}

/**
* stuple1 : a -> Tuple a // Not really useful but resistant to outside assignement, not structural change though, just like arrays and strings
*/
function stuple1(@x) { var _x =@ x; return function(@x_){ x_ =@ _x; };}

/**
* tuple2 : a -> b -> Tuple a b
*/
function tuple2(@x) { return function(@y){
    return function(@x_, @y_) { x_ =@ x; y_ =@ y; };
};}

/**
* stuple2 : a -> b -> Tuple a b
*/
function stuple2(@x) { var _x =@ x; return function(@y) { var _y =@ y;
    return function(@x_, @y_){ x_ =@ _x; y_ =@ _y; };
};}

/**
* utuple2 : (a, b) -> Tuple a b
*/
function utuple2(@x, @y){
    return function(@x_, @y_) { x_ =@ x; y_ =@ y; };
}

/**
* ustuple2 : (a, b) -> Tuple a b
*/
function ustuple2(@x, @y) { var _x =@ x; var _y =@ y;
    return function(@x_, @y_) { x_ =@ _x; y_ =@ _y; };
}

/**
* tuple3 : a -> b -> c -> Tuple a b c
*/
function tuple3(@x) { return function(@y){ return function(@z){
    return function(@x_, @y_, @z_) { x_ =@ x; y_ =@ y; z_ =@ z; };
};};}

/**
* stuple3 : a -> b -> c -> Tuple a b c
*/
function stuple3(@x) { var _x =@ x; return function(@y) { var _y =@ y; return function(@z) { var _z =@ z;
    return function(@x_, @y_, @z_){ x_ =@ _x; y_ =@ _y; z_ =@ _z; };
};};}

/**
* utuple3 : (a, b, c) -> Tuple a b c
*/
function utuple3(@x, @y, @z){
    return function(@x_, @y_, @z_) { x_ =@ x; y_ =@ y; z_ =@ z; };
}

/**
* ustuple3 : (a, b, c) -> Tuple a b c
*/
function ustuple3(@x, @y, @z) { var _x =@ x; var _y =@ y; var _z =@ z;
    return function(@x_, @y_, @z_) { x_ =@ _x; y_ =@ _y; z_ =@ _z; };
}

/**
* uctuple3 : (a, b, c) -> Tuple a b c
*/
function uctuple3(_x, _y, _z) {
    return function(@x_, @y_, @z_) { x_ =@ _x; y_ =@ _y; z_ =@ _z; };
}

/**
* tuple4 : a -> b -> c -> d -> Tuple a b c d
*/
function tuple4(@x) { return function(@y){ return function(@z){ return function(@u){
    return function(@x_, @y_, @z_, @u_) { x_ =@ x; y_ =@ y; z_ =@ z; u_ =@ u; };
};};};}

/**
* stuple4 : a -> b -> c -> d -> Tuple a b c d
*/
function stuple4(@x) { var _x =@ x; return function(@y) { var _y =@ y; return function(@z) { var _z =@ z; return function(@u) { var _u =@ u;
    return function(@x_, @y_, @z_, @u_) { x_ =@ _x; y_ =@ _y; z_ =@ _z; u_ =@ _u; };
};};};}

/**
* utuple4 : (a, b, c, d) -> Tuple a b c d
*/
function utuple4(@x, @y, @z, @u) {
    return function(@x_, @y_, @z_, @u_) { x_ =@ x; y_ =@ y; z_ =@ z; u_ =@ u; };
}

/**
* ustuple4 : (a, b, c, d) -> Tuple a b c d
*/
function ustuple4(@x, @y, @z, @u) { var _x =@ x; var _y =@ y; var _z =@ z; var _u =@ u;
    return function(@x_, @y_, @z_, @u_) { x_ =@ _x; y_ =@ _y; z_ =@ _z; u_ =@ _u; };
}

/**
* uctuple4 : (a, b, c, d) -> Tuple a b c d
*/
function uctuple4(@x, @y, @z, @u) { var _x = x; var _y = y; var _z = z; var _u = u;
    return function(@x_, @y_, @z_, @u_) { x_ =@ _x; y_ =@ _y; z_ =@ _z; u_ =@ _u; };
}

function dswap(@x, @y) {
	var z =@ x;
	x =@ y;
	y =@ z;
}