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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!./perl
#
# grep() and map() tests
#
print "1..27\n";
$test = 1;
sub ok {
my ($got,$expect) = @_;
print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
print "ok $test\n";
}
{
my @lol = ([qw(a b c)], [], [qw(1 2 3)]);
my @mapped = map {scalar @$_} @lol;
ok "@mapped", "3 0 3";
$test++;
my @grepped = grep {scalar @$_} @lol;
ok "@grepped", "$lol[0] $lol[2]";
$test++;
@grepped = grep { $_ } @mapped;
ok "@grepped", "3 3";
$test++;
}
{
print map({$_} ("ok $test\n"));
$test++;
print map
({$_} ("ok $test\n"));
$test++;
print((map({a => $_}, ("ok $test\n")))[0]->{a});
$test++;
print((map
({a=>$_},
("ok $test\n")))[0]->{a});
$test++;
print map { $_ } ("ok $test\n");
$test++;
print map
{ $_ } ("ok $test\n");
$test++;
print((map {a => $_}, ("ok $test\n"))[0]->{a});
$test++;
print((map
{a=>$_},
("ok $test\n"))[0]->{a});
$test++;
my $x = "ok \xFF\xFF\n";
print map($_&$x,("ok $test\n"));
$test++;
print map
($_ & $x, ("ok $test\n"));
$test++;
print map { $_ & $x } ("ok $test\n");
$test++;
print map
{ $_&$x } ("ok $test\n");
$test++;
print grep({$_} ("ok $test\n"));
$test++;
print grep
({$_} ("ok $test\n"));
$test++;
print grep({a => $_}->{a}, ("ok $test\n"));
$test++;
print grep
({a => $_}->{a},
("ok $test\n"));
$test++;
print grep { $_ } ("ok $test\n");
$test++;
print grep
{ $_ } ("ok $test\n");
$test++;
print grep {a => $_}->{a}, ("ok $test\n");
$test++;
print grep
{a => $_}->{a},
("ok $test\n");
$test++;
print grep($_&"X",("ok $test\n"));
$test++;
print grep
($_&"X", ("ok $test\n"));
$test++;
print grep { $_ & "X" } ("ok $test\n");
$test++;
print grep
{ $_ & "X" } ("ok $test\n");
$test++;
}
|
