FilesExpand file tree

 master

/

functional.lua

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

36 lines (32 loc) · 637 Bytes

 master

/

functional.lua

Copy path

Top

File metadata and controls

• Code
• Blame

36 lines (32 loc) · 637 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

local tinsert = table.insert

local function nest(func, n)

if n == 1 then

return func

end

return nest(function(...)

return func(func(...))

end, n - 1)

end

local function nestList(func, n, list)

list = list or {}

tinsert(list, func)

if n == 1 then

return func

end

nestList(function(...)

return func(func(...))

end, n - 1, list)

return list

end

local function combineFlat(tbl)

return function(...)

for i = 1, #tbl do

tbl[i](...)

end

end

end

return {

nest = nest,

nestList = nestList,

combineFlat = combineFlat

}