http://www.perlmonks.org?node_id=11118384


in reply to Divide a list of string into substrings

are overlapping substrings allowed?

"333X111",
"222X111",
"000X333",
"000X111"

[download]

With overlap "000X","X111","222","333" weight => 22

Otherwise what is the solution???

update

Added first row "333X111"

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery

Replies are listed 'Best First'.
Re^2: Divide a list of string into substrings
by choroba (Cardinal) on Jun 23, 2020 at 18:44 UTC
    > Otherwise what is the solution???

    My program (changing the tolerance to int rand 5) says 

    Score 27
$VAR1 = [
          [
            '333',
            'X111'
          ],
          [
            '222',
            'X111'
          ],
          [
            '000',
            'X333'
          ],
          [
            '000',
            'X111'
          ]
        ];

    [download]

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

In Section Seekers of Perl Wisdom