Hans Dieter Pearcey on 15 Oct 2003 11:37:28 -0400


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

Re: Small puzzle


On Wed, Oct 15, 2003 at 11:25:45AM -0400, Hans Dieter Pearcey wrote:
> On Wed, Oct 15, 2003 at 11:21:20AM -0400, Hans Dieter Pearcey wrote:
> > Oops.  Of course, this doesn't matter.  I can just use the nodes
> > themselves instead of the labels thereof.
> 
> On further reflection, this is Not True.  Sorry.

Whoops.  I mean, it is.  This is really the last time I'll reply to
myself.

  do {
    $found{$_}++ for @nodes;
    ($ancestor) = grep { $found{$_} == @_ } @nodes;
    @nodes = grep defined, map $_->parent, @nodes;
  } until ($ancestor or not @nodes);

hdp.
-
**Majordomo list services provided by PANIX <URL:http://www.panix.com>**
**To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**