fork download
  1. #!/usr/bin/perl
  2. use 5.10.0;
  3. map{$s+=$_,$r+=$_**2}(<>..<>);say$s**2-$r
Success #stdin #stdout 0s 6044KB
stdin
91
123
stdout
12087152