in reply to Re: Felling a tree JAPH
in thread Felling a tree JAPH

Interesting. 5.8.9, Windows. 

$ perl 20130830.japh.pl
Just another Perl hacker,

[download]

Do you get the same results every time, or does it change on each run?

Update: s/Win/Windows/ for clarity :-)

--MidLifeXis

Replies are listed 'Best First'.
Re^3: Felling a tree JAPH
by Grimy (Pilgrim) on Sep 04, 2013 at 07:49 UTC

    For a given version, I get a consistent result. I reckon the discrepancies between different version are due to internal changes to the GC.

    Relying on DESTROY is problematic, because the order in which thingies are GC’d is unspecified.

[reply]
[d/l]

      That is true. Since they are consistent per version (I wonder if per platform makes any difference), I should see if I can reorder the data to make it work out on each :-)

      --MidLifeXis

[reply]
        What about making the letters depend on the following one? 
        sub DESTROY { print $_[0][0] }
$p = bless [$_, $p] for reverse split //, 'Just another Perl hacker,';

        [download]
         Update: Does not work in a different version. Ignore.
        لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]

In Section Obfuscated Code