Re: [perlre/perlgolf] Golf this: return -1 or return +1 on regexp subroutine please

Wierdly enough, this works (67)

sub by_priority {

  ($a cmp$b,grep$_,map$b=~/$_/-$a=~/$_/,FAQ,SERVICE,ORGANIZATION)[-1]
}
[download]

Thanks to hints from a golfer who plays the pro circuit.

p

Comment on Re: [perlre/perlgolf] Golf this: return -1 or return +1 on regexp subroutine please Download Code