Re^2: Multiplication digit persistence


    printf "\e[102m Count[$num] = %s\e[m\n\n", persist($num, $dbg);
[download]

You are not using printf correctly.


    printf "\e[102m Count[%s] = %s\e[m\n\n", $num, persist($num, $dbg)
+;
[download]

The first argument is a FORMAT string and using variable interpolation could introduce an invalid '%' character.


    my @dbg = ( );
    map { push @dbg, ($res *= $_) } split(//, $num);
[download]

You are not using map correctly:


    my @dbg = map { $res *= $_ } split(//, $num);
[download]

Comment on Re^2: Multiplication digit persistence Select or Download Code

Replies are listed 'Best First'.
Re^3: Multiplication digit persistence by ikegami (Patriarch) on Mar 21, 2019 at 19:41 UTC
Not many numbers have `%` as a digit.	[reply] [d/l]