Skip to content

Instantly share code, notes, and snippets.

@managedkaos

managedkaos/mini-max-sum.pl

Created August 3, 2017 18:52
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save managedkaos/4f63850174fa6a6bcf4748c13982baaf to your computer and use it in GitHub Desktop.
Save managedkaos/4f63850174fa6a6bcf4748c13982baaf to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mini-max-sum.pl
#!/usr/bin/env perl
# read the input
@data = split /\s+/, <STDIN>;
@data = sort @data;
map { $min += $_ } @data[0 .. ($#data - 1)];
map { $max += $_ } @data[1 .. $#data];
print "$min $max\n";
@managedkaos
Copy link
Author

managedkaos commented Aug 3, 2017 •
edited 

$ cat mini-max-sum.txt
1 2 3 4 5

$ ./mini-max-sum.pl < mini-max-sum.txt
10 14

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment