Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: The Road Goes Ever On

by dakkar (Hermit)
on Dec 19, 2002 at 09:59 UTC ( #221075=note: print w/replies, xml ) Need Help??


in reply to The Road Goes Ever On

my $the_road=Road->new(-begin => $door); my $roading=threads->create(sub{$the_road->go(-on=>1,-dir=>'down')}); (localtime==$now && ($the_road->gone)>($far) && ($the_road->heading) eq 'ahead') && do { if (I->can('follow')) { I->follow(-pursue=>$the_road, -with=>(I->{feet}->set_opt(-eager=>1)), ) until (do{ my @slw=grep {$_->width > $the_road->width} @ways; $done=0; for $slw (@slw) { $the_road->meet($slw) && (grep {$_->meet($slw)} @paths,@errands)>=$many && do {$done=1;last}} $done }); TODO: { local $TODO = "I cannot say"; } }};
-- 
        dakkar - Mobilis in mobile

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://221075]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2022-08-11 11:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?