blob: 6e2123c8b1af9a08bc83dc043c3d2741ca9d10a0 (
plain)
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
|
pkg iter =
type zipiter(@a, @b) = struct
s1 : @a[:]
s2 : @b[:]
;;
impl iterable zipiter(@a, @b) -> (@a, @b)
generic byzip : (a : @a[:], b : @b[:] -> zipiter(@a, @b))
;;
generic byzip = {a, b
-> [.s1 = a, .s2 = b]
}
impl iterable zipiter(@a, @b) -> (@a, @b) =
__iternext__ = {itp, valp
if itp.s1.len > 0 && itp.s2.len > 0
valp# = (itp.s1[0], itp.s2[0])
itp.s1 = itp.s1[1:]
itp.s2 = itp.s2[1:]
-> true
else
-> false
;;
}
__iterfin__ = {itp, valp
}
;;
|
