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
|
discard """
output: '''3
2
5
1
@[@[0, 0], @[0, 1]]
@[@[0, 0], @[0, 1]]
@[@[2, 2], @[2, 3]]
@[@[2, 2], @[2, 3]]'''
"""
when true:
# bug #2604
import algorithm
iterator byDistance*[int]( ints: openArray[int], base: int ): int =
var sortable = @ints
sortable.sort do (a, b: int) -> int:
result = cmp( abs(base - a), abs(base - b) )
for val in sortable:
yield val
when true:
proc main =
for val in byDistance([2, 3, 5, 1], 3):
echo val
main()
when true:
# bug #1527
import sequtils
let thread = @[@[0, 0],
@[0, 1],
@[2, 2],
@[2, 3]]
iterator threadUniqs(seq1: seq[seq[int]]): seq[seq[int]] =
for i in 0 ..< seq1.len:
block:
let i = i
yield seq1.filter do (x: seq[int]) -> bool: x[0] == seq1[i][0]
proc main2 =
for uniqs in thread.threadUniqs:
echo uniqs
main2()
|
