Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Coroutines in Perl

by fizbin (Chaplain)
on May 07, 2004 at 18:04 UTC ( #351555=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      COROUTINE(int) lucas_numbers(int x0, int x1)
      {
    ...
           printf "%d\n", COROUTINE_INVOKE(lucas_numbers, 1, 1);
         }
      }
    
  2. or download this
    --
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
    map{y/X_/\n /;print}map{pop@$_}@/for@/
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2022-12-06 19:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?