soel/func.lua at main · ymte/soel · 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
118
119
120
121
122
123
124
125
126
function componeer(...)
	local fns = {...}
	if #fns == 1 then
		fns = fns[1]
	end

	return function (...)
		local r = {...}
		for i,fn in ipairs(fns) do

			r = {fn(...)}
			if r[1] == nil then return nil end
		end
		return unpack(r)
	end
end

function curry(a,b)
	return nil
end

function map(v, fn, ...)
	local r = {}
	for k,v in pairs(v) do r[k] = fn(v, ...) end
	return r
end

function imap(v, fn, ...)
	local r = {}
	for k,v in ipairs(v) do r[k] = fn(v, ...) end
	return r
end

function imap(v, fn)
	local r = {}
	for k,v in ipairs(v) do r[k] = fn(v) end
	return r
end

function filter(t,fn)
	local r = {}
	for i,v in ipairs(t) do
		if fn(v) then
			r[#r+1] = v
		end
	end
	return r
end

function keerom(t)
	local r = {}
	for i,v in ipairs(t) do
		r[#t-i+1] = v
	end
	return r
end

function setlijst(set)
	local r = {}
	for k in spairs(set) do
		r[#r+1] = k
	end
	return r
end

function join(a,b)
	local r = {}
	for i,v in ipairs(a) do
		for i,v in ipairs(v) do
			r[#r+1] = v
		end
		if b then
			r[#r+1] = b
		end
	end
	return r
end

-- past binop toe op alle leden
-- zoals som
function binop(lijst, fn)
	local r = lijst[1]
	for i=2,#lijst do
		r = fn(r, lijst[i])
	end
	return r
end

function staart(lijst)
	local t = {}
	for i=2,#lijst do
		t[i-1] = lijst[i]
	end
	return t
end

func = {
	['-'] = function(A) if b then return a - b else return a end end;
	['·'] = function(A) return a * b end;
	['/'] = function(A) return a / b end;
	['^'] = function(A) return a ^ b end;

	['..'] = function(a,b)
		local t = {}
		for i,v in ipairs(a) do t[#t+1] = v end
		for i,v in ipairs(b) do t[#t+1] = v end
		return t
	end;

	-- lib
	['cat'] = cat;

	['split'] = function(a,b)
		local r = {}
		local t = {}
		for i,v in ipairs(a) do
			if v == b then
				r[#r+1] = t
				t = {}
			else
				t[#t+1] = v
			end
		end
		return r
	end;
}