25 lines
600 B
Nim
25 lines
600 B
Nim
# Test the closure implementation
|
|
|
|
proc map(n: var openarray[int], fn: proc (x: int): int {.closure}) =
|
|
for i in 0..n.len-1:
|
|
n[i] = fn(n[i])
|
|
|
|
proc foldr(n: openarray[int], fn: proc (x, y: int): int {.closure}): int =
|
|
result = 0
|
|
for i in 0..n.len-1:
|
|
result = fn(result, n[i])
|
|
|
|
var
|
|
myData: array[0..9, int] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
|
|
|
|
proc testA() =
|
|
var p = 0
|
|
map(myData, lambda (x: int): int =
|
|
result = x + 1 shl (lambda (y: int): int =
|
|
return y + 1
|
|
)(0)
|
|
inc(p), 88)
|
|
|
|
testA()
|
|
for x in items(myData):
|
|
echo x
|