diff options
Diffstat (limited to 'tests/tclosure.nim')
-rwxr-xr-x | tests/tclosure.nim | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/tests/tclosure.nim b/tests/tclosure.nim deleted file mode 100755 index 399f68463..000000000 --- a/tests/tclosure.nim +++ /dev/null @@ -1,26 +0,0 @@ -# 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 = - for i in 0..n.len-1: - result = fn(result, n[i]) - -var - myData: array[0..4, int] = [0, 1, 2, 3, 4] - -proc testA() = - var p = 0 - map(myData, lambda (x: int): int = - result = x + 1 shl (lambda (y: int): int = - return y + p - )(0) - inc(p)) - -testA() -for x in items(myData): - write(stout, x) -#OUT 2 4 6 8 10 - - |