From 7b4560337b3489ba2364fe97066c79d8a23dad87 Mon Sep 17 00:00:00 2001 From: Araq Date: Thu, 21 Jun 2012 08:46:56 +0200 Subject: bugfixes for closures --- tests/run/tfilter.nim | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 tests/run/tfilter.nim (limited to 'tests/run') diff --git a/tests/run/tfilter.nim b/tests/run/tfilter.nim new file mode 100644 index 000000000..e82d05742 --- /dev/null +++ b/tests/run/tfilter.nim @@ -0,0 +1,28 @@ +discard """ + output: "02468101214161820" +""" + +proc filter[T](list: seq[T], f: proc (item: T): bool {.closure.}): seq[T] = + result = @[] + for i in items(list): + if f(i): + result.add(i) + +let nums = @[0, 1, 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20] + +when true: + let nums2 = filter(nums, + (proc (item: int): bool = + result = (item mod 2) == 0) + ) + +proc outer = + # lets use a proper closure this time: + var modulo = 2 + let nums2 = filter(nums, + (proc (item: int): bool = result = (item mod modulo) == 0) + ) + + for n in nums2: stdout.write(n) + +outer() -- cgit 1.4.1-2-gfad0