fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. use List::MoreUtils qw(zip);
  4.  
  5. @x = (1,2,3,4,5,6);
  6. @y = (11, 12, 13, 14, 15, 16);
  7.  
  8. $r = {zip @x, @y};
  9. map{$n += $_*$r->{$_}, print"$n += $_*$r->{$_}\n"}sort keys %$r;
  10.  
Success #stdin #stdout 0.02s 6396KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
11 += 1*11
35 += 2*12
74 += 3*13
130 += 4*14
205 += 5*15
301 += 6*16
https://ideone.com/3yGP4C
language:
Perl (perl 5.28.1)
created:
3 years ago
visibility:
public

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!