- [ sub { grep { 1 } 1 .. 10 }, 'list' ],
-
- [ sub { map { $_ } 1 .. 3 }, 3 ],
- [ sub { map { () } @_ }, 0 ],
- [ sub { map { @_ } () }, 0 ],
- [ sub { map { @_ } 1, 2 }, 'list' ],
- [ sub { map { $_ } oneortwo() }, { 1 => 0.5, 2 => 0.5 } ],
- [ sub { map { $_ ? 7 : (8, 9) } 1 .. 3 }, $exp_23 ],
- [ sub { map oneortwo, 1 .. 3 }, $exp_23 ],
- [ sub { map oneortwo, @_ }, 'list' ],
- [ sub { map zeroorone, @_ }, { 0 => 0.5, list => 0.5 } ],
- [ sub { map { $_ ? () : 12 } do { $x ? 7 : () } }, { 0 => 0.75, 1 => 0.25 } ],
- [ sub { map zeroorone, do { $x ? 7 : () } }, { 0 => 0.75, 1 => 0.25 } ],
- [ sub { map oneortwo, oneortwo }, $exp_22 ],
- [ sub { map onetwothree, oneortwo }, $exp_32 ],
-