Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Multiplication digit persistence

by choroba (Cardinal)
on Mar 21, 2019 at 17:41 UTC ( [id://1231555]=note: print w/replies, xml ) Need Help??


in reply to Multiplication digit persistence

When searching for the 12 stepper, you probably need to modify the script in the following way: 
-     my $p = product split //, $n;
+     my $p = 'Math::BigInt'->new(product split //, $n);

[download]
Also, put 
use Math::BigInt;

[download]
somewhere to the top, and enclose the to-be-winner in quotes.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Replies are listed 'Best First'.
Re^2: Multiplication digit persistence
by tobyink (Canon) on Mar 22, 2019 at 10:20 UTC

    Tbh, I doubt that's enough. product is written in C. You'd probably want to replace it with a Math::BigInt version.

    toby döt ink
[reply]
[d/l]

In Section Cool Uses for Perl

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1231555]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2024-04-19 12:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found