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
|
discard """
file: "tsequtils.nim"
output: '''Zip: [{"Field0": 1, "Field1": 2}, {"Field0": 3, "Field1": 4}, {"Field0": 5, "Field1": 6}]
Filter Iterator: 3
Filter Iterator: 5
Filter Iterator: 7
Filter: [3, 5, 7]
FilterIt: [1, 3, 7]
Concat: [1, 3, 5, 7, 2, 4, 6]
Deduplicate: [1, 2, 3, 4, 5, 7]
@[()]'''
"""
import sequtils, marshal
proc testFindWhere(item : int) : bool =
if item != 1: return true
var seq1: seq[int] = @[]
seq1.add(1)
seq1.add(3)
seq1.add(5)
seq1.add(7)
var seq2: seq[int] = @[2, 4, 6]
var final = zip(seq1, seq2)
echo "Zip: ", $$(final)
#Test findWhere as a iterator
for itms in filter(seq1, testFindWhere):
echo "Filter Iterator: ", $$(itms)
#Test findWhere as a proc
var fullseq: seq[int] = filter(seq1, testFindWhere)
echo "Filter: ", $$(fullseq)
#Test findIt as a template
var finditval: seq[int] = filterIt(seq1, it!=5)
echo "FilterIt: ", $$(finditval)
var concatseq = concat(seq1,seq2)
echo "Concat: ", $$(concatseq)
var seq3 = @[1,2,3,4,5,5,5,7]
var dedupseq = deduplicate(seq3)
echo "Deduplicate: ", $$(dedupseq)
# bug #4973
type
SomeObj = object
OtherObj = object
field: SomeObj
let aSeq = @[OtherObj(field: SomeObj())]
let someObjSeq = aSeq.mapIt(it.field)
echo someObjSeq
|