comparison filter.pl @ 2:d7dd496a4fa6 boosterpack

[svn r4] actual functionality!
author robert
date Tue, 08 Sep 2009 02:45:26 -0400
parents
children 8c6d2ce90677
comparison
equal deleted inserted replaced
1:c702488ef795 2:d7dd496a4fa6
1 sub filter
2 {
3
4 $ref = shift;
5 @list = @_;
6 my @ret = ();
7
8 for $element(@list)
9 {
10 if ($ref->($element))
11 {
12 push @ret, $element;
13 }
14 }
15
16 return @ret
17
18 }
19
20
21
22
23 @test = (1,2,3,4,5,6);
24
25 sub even
26 {
27 return ($_[0]%2 == 0);
28 }
29
30 @rr = &filter(\&even, @test);
31
32 print "@rr";