[p5sagit/p5-mst-13.2.git] / Bugs / minmax

#!./perl

sub minmax {
  eval '@_ = sort { $a '.shift().' $b } @_';
  (shift, pop(@_));  
}

($x, $y) = &minmax('<=>', 2, 4, 1, 0, 3);
print "x = $x, y = $y\n";
($x, $y) = &minmax('cmp', "foo", "bar", "zot", "xyzzy");
print "x = $x, y = $y\n";
Commit	Line	Data
79072805	1	#!./perl
	2
	3	sub minmax {
	4	eval '@_ = sort { $a '.shift().' $b } @_';
	5	(shift, pop(@_));
	6	}
	7
	8	($x, $y) = &minmax('<=>', 2, 4, 1, 0, 3);
	9	print "x = $x, y = $y\n";
	10	($x, $y) = &minmax('cmp', "foo", "bar", "zot", "xyzzy");
	11	print "x = $x, y = $y\n";
	12