Re^5: best sort

If those were the things I was looking into, I would certainly not want a bare sort for any of them.
If you anticipate repeated elements, you'd probably want a tie-breaking
$a cmp $b
[download]

Well, sure. Here’s some of the code to generate one of those:

say $_->{PHRASE} for sort {
    $b->{TOTAL_VOWELS} <=>  $a->{TOTAL_VOWELS}
                        ||
   $b->{MAX_ANY_VOWEL} <=>  $a->{MAX_ANY_VOWEL}
                        ||
        $b->{NUM_OF_A} <=>  $a->{NUM_OF_A}
                        ||
        $b->{NUM_OF_E} <=>  $a->{NUM_OF_E}
                        ||
        $b->{NUM_OF_I} <=>  $a->{NUM_OF_I}
                        ||
        $b->{NUM_OF_O} <=>  $a->{NUM_OF_O}
                        ||
        $b->{NUM_OF_U} <=>  $a->{NUM_OF_U}
                        ||
        $b->{NUM_OF_Y} <=>  $a->{NUM_OF_Y}
                        ||
        $a->{DICTFOLD} cmp  $b->{DICTFOLD};
                        ||
           $a->{RECNO} <=>  $b->{RECNO};
} @records;
[download]

Look more reasonable?

Comment on Re^5: best sort Select or Download Code

Replies are listed 'Best First'.
Re^6: best sort by jpl (Monk) on Aug 16, 2011 at 18:36 UTC
It helps a lot with the how I am comparing part, although if anyone guessed in advance that was how `By vowels:` sorted, I'd like to solicit their advice on the outcome of upcoming NFL games. It's still not exactly what I had in mind for bringing all identical terms together. The `$a->{RECNO} <=> $b->{RECNO}` [download] is unnecessary if the sort is stable, as sort() is, by default. Since different words can compare equal under the influence of `$a->{DICTFOLD} cmp $b->{DICTFOLD}` [download] (if I'm correctly guessing what `DICTFOLD` is), I still might see `word Word word Word` [download] in the sorted output, when I might have preferred `word word Word Word` [download] which makes it easier to determine if words are "unique" without repeating all the complicated logic. So I would prefer `$a->{ORIGINAL} cmp $b->{ORIGINAL}` [download] as the final tie-breaker. That's neither better nor worse than your code, merely different.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^6: best sort
by jpl (Monk) on Aug 16, 2011 at 18:36 UTC

how I am comparing

By vowels:

identical

$a->{RECNO} <=>  $b->{RECNO}
[download]

$a->{DICTFOLD} cmp  $b->{DICTFOLD}
[download]

DICTFOLD

word
Word
word
Word
[download]

word
word
Word
Word
[download]

$a->{ORIGINAL} cmp $b->{ORIGINAL}
[download]

[reply]
[d/l]
[select]