Re: Perl comparison function for binary search

2008-04-13 Thread Nelson Castillo
On Sun, Apr 13, 2008 at 10:17 PM, John W. Krahn <[EMAIL PROTECTED]> wrote: > > Nelson Castillo wrote: (cut) > That won't work correctly unless the numbers are sorted correctly: > > $ perl -le' print for sort { $a cmp $b } 0, 2, 3, 11, 12' > 0 > 11 &g

Re: Perl comparison function for binary search

2008-04-13 Thread Nelson Castillo
On Sun, Apr 13, 2008 at 3:10 PM, John W. Krahn <[EMAIL PROTECTED]> wrote: (cut) > >my $c = &$cmpf($arr->[$mid], $value); > > > > That is usually written as: > > > my $c = $cmpf->($arr->[$mid], $value); Thanks Chas. and John for your feedback. I think I'm happy with this version: #!/us

Perl comparison function for binary search

2008-04-13 Thread Nelson Castillo
Hi :-) I wrote this binary search function. I wrote it so that I could pass a comparison function as the last parameter. But I have to write "sub" and I noticed that the built in sort function doesn't need it. So I have to write: sub { shift <=> shift} instead of: {$a <=> b}. This might be a

What is the best/simplest wat to call a pointer to a sub?

2002-09-10 Thread Nelson Castillo
Hi, I want to call a sub, and I've been using eval. The problem is that I know this is not good and there must be a clever way. I must confess that I am a C programmer =) I've tried to use something like a pointer to the functions with no success. sub f1($){...} sub f2($){...} my $func; if(some