Re^2: Finding target unspecified value

@a = sort map { int(rand(91))+10 } 1..5;

In the absence of a sort comparison block, the default sort ordering is lexicographic-ascending (see Lexicographical order). This ordering produces surprising 'maximum' values — and also 'minimum' values if negative numbers are considered. An explicit numeric-ascending comparison block is needed if $a[0] and $a[$#a] are to make sense as numeric min/max values.

>perl -wMstrict -MData::Dump -le
"my @raw = (1, 2, 3, -1, -2, -12, 123, 23);
 ;;
 my @sorted_lexical_ascending = sort @raw;
 dd \@sorted_lexical_ascending;
 ;;
 my @sorted_numeric_ascending = sort { $a <=> $b } @raw;
 dd \@sorted_numeric_ascending;
"
[-1, -12, -2, 1, 123, 2, 23, 3]

[-12, -2, -1, 1, 2, 3, 23, 123]
[download]

Comment on Re^2: Finding target unspecified value Select or Download Code

Replies are listed 'Best First'.
Re^3: Finding target unspecified value by Lennotoecom (Pilgrim) on Oct 21, 2013 at 05:17 UTC
I know about $a $b the author said "the number between 10 and 100"	[reply]
Re^4: Finding target unspecified value by AnomalousMonk (Archbishop) on Oct 21, 2013 at 21:16 UTC
the author said "the number between 10 and 100" I think the point you're making here is that the word 'between' implies an exclusive upper limit, and so the set of numbers being dealt with is the same as in the Perl list `(10 .. 99)`, and for those numbers lexicographic and numeric comparison in a sort are equivalent. (Actually, Latnam wrote "... the range set to 10 thru 100 ..." [emphasis added] in the OP, but we could have the same "exclusive vs. inclusive upper limit" argument about 'thru' as about 'between'.) I would agree that lexic and numeric comparison are equivalent over the set produced by `(10 .. 99)`. However, the expression `int(rand(91))+10` used both in your example and in the OPed code does produce the number 100, and when this wildcard is thrown into the mix (as I assumed it would be given the explicit code and my interpretations of 'between' and 'thru'), the equivalence breaks down. `>perl -wMstrict -le "my @set = (10, 20, 100); my @a = sort @set; print qq{max in set (@set) is $a[$#a]}; " max in set (10 20 100) is 20` [download]	[reply] [d/l] [select]