Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: (Golf) Minimizing the Bacon Number

by MeowChow (Vicar)
on May 14, 2001 at 23:08 UTC ( #80295=note: print w/replies, xml ) Need Help??

in reply to (Golf) Minimizing the Bacon Number

Damn you and your NP-complete problems! =) Well, I'm lazy, and decided to implement a greedy, suboptimal heuristic:
sub bacon { my%t=@_;(sort{@{$t{$b}}<=>@{$t{$a}}}keys%t)[0] }
At least it's fast, if not correct. :)
               s aamecha.s a..a\u$&owag.print

Replies are listed 'Best First'.
Re: Re: (Golf) Minimizing the Bacon Number
by Masem (Monsignor) on May 14, 2001 at 23:35 UTC
    This problem shouldn't be NP-complete. A well-rounded algorithm is going to be, I believe, O(N^2) or O(N^3). However, the golf solution will probably be NP.
    Dr. Michael K. Neylon - || "You've left the lens cap of your mind on again, Pinky" - The Brain
      Sorry to ask but my curiosity is too big...
      What is NP (or NP-complete) ?

      BobiOne KenoBi ;)

        An NP problem is a programming problem that can only be solved by the theoretical nondeterministic Turing machine (NP stands for Nondeterministic Polynomial). An NP-Complete problem has the property that if you can find a polynomial running time solution to this problem than you can find a polynomial solution to all other NP problems as well. Unfortunately, that works both ways, if you prove that there is no polynomial solution to the problem than all other NP problems don't have a polynomial runtime as well.

        For more information, look here.

        Hope This Helps,

        Update: D'oh! Beaten by MeowChow...

        Search Google: NP-complete

        Update: Didn't see the above posts...whoops.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://80295]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2018-06-20 21:18 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.