http://qs321.pair.com?node_id=607586


in reply to Number from given digits puzzle

No idea what the desired output is (No ruby here).

Making 1 change to the perl code, gives me 3 lines of output: 

24 = (3 * (5 - 6))
24 = (6 / (1 - (3 / 4)))
24 = ((5 - 6) * 3)

[download]
While the 1st and the 3rd line are junk the 2nd is at least one (the?) solution. I got there by substituting the code construction (sub {...}) in the recursive poss2 call by a mere $f, reasoning that what is constructed as 
sub {
    my($v3, $s3) = @_;
    &$f($v3, $s3);
}

[download]
just looks like a wrapper to the input sub.

Does that help in any way?


Of course, I have to admit, I do not understand the algorithm (at the moment; but still trying to figure that part out), nor do I know ruby and can comment on your transforming the iterators ("yield") to perl closures :-/

Hoping to learn more, when you resolve the case...

Replies are listed 'Best First'.
Re^2: Number from given digits puzzle
by ambrus (Abbot) on Mar 31, 2007 at 11:36 UTC

    Thanks. Making that change and another trivial one appears to fix the code. I still don't know what problem your change fixes, but I'll try to find it out (it might be something related to aliasing.

    The trivial change is that the second addittion operator in line 28 has to be replaced by a concatenation operator: 

                    &$f($v1 + 10 * $v2, $s1 . $s2);

    [download]

    Here's the fixed code for convenience:

    Read more... (2 kB)
[reply]
[d/l]
[select]
      With one more change, the code works fine:
      27,28c27,28
<       $s1 =~ /^\d+$/ and $s2 =~ /^\d$/ and
<               &$f(10*$v1 + $v2, $s1 . $s2);
---
>       $s1 =~ /^\d+$/ && $s2 =~ /^\d$/ and
>               &$f($v1 + 10 * $v2, $s1 . $s2);

      [download]
      and the output I see is 
      24 = (3 * (14 - 6))
24 = (6 / (1 - (3 / 4)))
24 = ((14 - 6) * 3)

      [download]
      which seems quite OK.

      Now I haven't looked yet if that's an oneliner in some Perl Golf competition, but I'd bet there is something :)

      Would be nice to let us now if in the end you had some personal conclusions about your attempted Ruby/Perl comparison.

      Thanks,
      Krambambuli
[reply]
[d/l]
[select]

        Oh yes. Even the ruby code has that bug.

        (Take care because you're giving a reverse patch.)

[reply]

In Section Seekers of Perl Wisdom