fork download
copy 
  1. #!/usr/bin/perl -l
  2.  
  3. sub Map {
  4.   my $f = shift;
  5.   for (@_) {
  6.     print $f->($_); # применяю функцию, ссылка на которую хранится в переменной $f, к каждому элементу массива @_
  7.   }
  8. }
  9.  
  10. sub square {
  11.   $_[0] ** 2;	
  12. }
  13.  
  14. Map(\&square, 1..10); # квадратики
  15.  
  16. Map(sub { $_[0]*$_[0]*$_[0] }, 1..10); # кубы
  17.  
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
4
9
16
25
36
49
64
81
100
1
8
27
64
125
216
343
512
729
1000
https://ideone.com/rw2zL0
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

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