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
|
input = require 'pl.input'
seq = require 'pl.seq'
asserteq = require('pl.test').asserteq
utils = require 'pl.utils'
local L = utils.string_lambda
local S = seq.list
local C = seq.copy
local C2 = seq.copy2
asserteq (seq.sum(input.numbers '10 20 30 40 50'),150)
x,y = unpack(C(input.numbers('10 20')))
assert (x == 10 and y == 20)
local test = {{1,10},{2,20},{3,30}}
asserteq(C2(ipairs{10,20,30}),test)
local res = C2(input.fields({1,2},',','1,10\n2,20\n3,30\n'))
asserteq(res,test)
asserteq(
seq.copy(seq.filter(seq.list{10,20,5,15},seq.greater_than(10))),
{20,15}
)
asserteq(seq.reduce('-',{1,2,3,4,5}),-13)
asserteq(seq.count(S{10,20,30,40},L'|x| x > 20'), 2)
asserteq(C2(seq.zip({1,2,3},{10,20,30})),test)
asserteq(C(seq.splice({10,20},{30,40})),{10,20,30,40})
asserteq(C(seq.map(L'#_',{'one','tw'})),{3,2})
--for l1,l2 in seq.last{10,20,30} do print(l1,l2) end
asserteq(C2(seq.last{10,20,30}),{{20,10},{30,20}} )
asserteq(
seq{10,20,30}:map(L'_+1'):copy(),
{11,21,31}
)
asserteq(
seq{'one','two'}:upper():copy(),
{'ONE','TWO'}
)
asserteq(
C(seq.unique(seq.list{1,2,3,2,1})),
{1,2,3}
)
|
