Ideone.com

fork download

copy

#!/usr/bin/perl
 
sub mymap(&\@;@) {
  map &{$_[0]}, @{$_[1]};
}
 
@a = (1..3);
@b = (4..6);
 
print $_, "\n" for mymap { $_ * 3 } @a, @b;

Success #stdin #stdout 0s 3608KB

stdin

copy

Standard input is empty

stdout

copy

3
6
9

https://ideone.com/9ZQH6z

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!