Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Recalling a function iteratively

by AnomalousMonk (Bishop)
on Nov 29, 2021 at 05:05 UTC ( #11139202=note: print w/replies, xml ) Need Help??


in reply to Recalling a function iteratively

Here's my guess:

c:\@Work\Perl>perl -wMstrict -le "use List::MoreUtils qw(any); ;; sub myfunc { return map { int rand 10 } 1 .. $_[0]; } ;; my @List_new; ;; UNTIL_TRUE: { @List_new = myfunc(7); any { $_ == 3 } @List_new or redo UNTIL_TRUE; } ;; print qq{@List_new}; " 0 1 6 1 8 1 3
Notes:
  • List::MoreUtils::any() can be replaced with the built-in grep for short lists (for some definition of "short").
  • any() may also be found in List::Util in later versions of Perl.
  • The label UNTIL_TRUE is not needed, it's just documentary.


Give a man a fish:  <%-{-{-{-<

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2022-05-22 04:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (79 votes). Check out past polls.

    Notices?