Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^4: Challenge: Another Infinite Lazy List

by tlm (Prior)
on Mar 18, 2005 at 22:18 UTC ( #440815=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    # use Stream;
    ...
    # $challenge->show(50);
    
    print "@{[grep has_common_factor($_), 1..50]}\n";
    
  2. or download this
    sub tail {
      my $t = $_[0]{t};
    ...
      }
      $_[0]{t};
    }
    
  3. or download this
     R:  number of primes in the input
    c1:  number of times merge was called
    ...
    10  8015 14108 27602 0.290 0.511
    11  8538 15149 31314 0.273 0.484
    12  9025 16107 35040 0.258 0.460
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2020-10-20 03:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (208 votes). Check out past polls.

    Notices?