Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^3: Challenge: Dumping trees.

by Anonymous Monk
on Oct 15, 2012 at 17:14 UTC ( [id://999127]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Challenge: Dumping trees.
in thread Challenge: Dumping trees.

I also finally succeeded

neat :) it really is much easier on the eyes

Upon further testing, the anomalies

Hmm, weird. Using your tree generator

from genBiaryTree
my $root = do { our $S //= 0; srand $S if $S; my $r; my @a =( 'a'..'z', 1..9, 'A'..'Z', ); $r = int( rand $#a ), splice @a, $r, 2, [ @a[ $r, $r+1 ]] while @a + > 1; @a = @{ $a[0] }; \@a; };
And running

I was not able to reproduce the anomalies, I get

_________________/\_____________________________________________ +____ _/\_____ __ +___/\___________________________________ _/\ _/\_______ ___________________________/\_ +__ _/\_________ /\ c _/\ ___/\_ _________/\_____ +_/\ _______________________/\ _/\ a b /\ f _/\_ /\ _/\_______ _/\_______ / +\ B ___/\_________________ T _____/\ Z d e /\ /\ k l _/\ _/\ _/\ ___/\_________ 9 +A ___/\_ _____/\_ /\_ Y g h i j /\ o ___/\ t /\ w _/\_ _______/\_ + /\_ /\ ___/\___ /\_ U /\_ m n /\_ s u v /\ /\ /\___ /\ + C /\ F G ___/\_ _/\ Q /\ V /\ p /\ x y z 1 2 _/\_ 7 8 + D E _/\_ /\ /\ P R S W X q r /\ /\ + /\ /\ L M N O 3 4 5 6 + H I J K _______/\_____________________________________________________ +________________________________________________ _/\___ + _______________________________/\_ _/\ _/\_ ______________________ +_______________/\___ /\ _/\ d /\ /\ _____________/\_____________________ +______________ _/\_________________________ Y Z /\ c e f g h ___________/\_______ + _______/\ /\ _________________/\ a b ___/\_____ _/\___ ________________ +_____/\___ H I J _____/\_______________ X /\_ _/\___ _/\ _/\ ___/\_ + _/\_ /\_ ___________/\ i /\ _/\ _/\ _/\ u /\ x /\_ /\_ + /\ /\ K /\_ _/\___ W j k /\ n /\ q /\ t v w y /\ 2 /\_________ + D E F G L /\ /\ _/\_____ l m o p r s z 1 3 _______/\_ +__ M N O P /\ _/\ /\_ +_/\_ Q R _/\ V 4 /\___ / +\ /\ /\ U 5 _/\ 9 +A B C S T /\ 8 6 7 ______________________________ +_________________________________________________/\ ___________________________________/\_____________________________ +______________ Z _/\___________________________ ____________________ +_____________/\_______________________________ /\ _______/\_ _____/\_________ + _______________/\_ a b _________/\_ /\_ _/\_ _____/\_________ +__ ___________/\_ /\ ___/\_______ /\___ q /\_ /\ /\_ _/\_ ______ +_/\_______ _/\_________ /\_________ X Y ___/\_ _____/\ m _/\ r /\ u v w /\ /\ /\_ _/\___ + _/\_ /\ _/\ P _/\_ /\_ /\ /\_ l /\ p s t x y z 1 2 /\ /\ _/\_ + ___/\ /\ H I _/\ O ___/\ /\ c /\ f g h /\_ n o 3 4 5 6 /\ / +\ /\_ E F G _/\ N _/\_ U V W d e i /\ 7 8 9 +A B /\ _/\ M /\ /\ j k + C D /\ L Q R S T + J K ________________________________________________________________ +_________/\_____________________________________ _/\___________________________ + ___________________________________/\_ _/\ _____/\_______________ + /\_______________________________ /\ /\ c _/\_ ___________/\___________________ + F ___________________________/\_ Y Z a b _______/\ /\_ _/\_________ _______________/ +\_ _/\_________________________ /\ ___/\_ n o /\ /\ _/\ _/\_ + /\_ /\ ___________/\ W X ___/\_ /\_ p q r s ___/\ y /\ /\_ +A /\_ G H _____/\_____ V _/\_ /\ j /\_ _/\_ x z 1 2 /\___ + B /\_ _/\_ _/\___ /\ /\ h i k /\ /\ /\ 3 _/\___ + C /\ ___/\ /\_ _/\ _/\ d e f g l m t u v w /\ _/\_ + D E /\_ L M /\ /\ R /\ U 4 5 /\ /\ + I /\ N O P Q S T 6 7 8 9 + J K ___________/\_______________________________________ ___/\_______ _____________________________/ +\___ _/\_ ___/\_ ___/\_________________________ + _/\___________ _____/\ /\ _/\_ /\ ___/\_ _____________________/\_ + /\ _____/\___ _/\___ g h i /\ /\ n o /\_ /\ _/\_________________ /\ +A B ___/\___ _/\___________ _/\ _/\ j k l m p /\ s t /\ ___________/\_ 8 9 + /\_ _/\ /\ _______/\_________ /\ c /\ f q r u v _/\_________ /\ + C /\ /\ H I J _/\___ ___/\___ a b d e _/\ _____/\ 6 7 + D E F G /\ _/\_ ___/\_ _/\_ /\ y _/\_ 5 + K L /\ /\ /\_ /\ /\ /\_ w x /\ /\_ + M N O P Q /\ T U V W X /\ z 1 2 /\ + R S Y Z 3 4 _________________________/\___________________________ +__________________________ _____________/\_ + _____________/\_ /\_______ /\_____________________ ____ +___________/\_ /\_____________ a _/\_ i _____________/\ ___/\___ +____ /\_____ N _________/\___ ___/\ /\_ ___/\___ u ___________/\_ +___/\___ G ___/\_ _/\_ _/\_ /\_ e f /\ _/\_ _/\_____ _____/\___ /\ _/ +\_ _/\_ /\_ /\_ /\ /\_ /\ /\_ b /\ g h /\ /\ /\ _/\_ /\_ _/\_____ 6 7 /\ + /\ /\ /\ H /\ K /\ O P Q /\___ V W X /\ c d j k l m n o _/\ /\ v /\_ /\ _/\ 8 9 +A B C D E F I J L M R _/\ Y Z /\ r s t w /\ z 1 _/\ 5 + /\ U p q x y /\ 4 + S T 2 3 ________________ +___________________/\_________________ _/\_______________ +________ _________/\___ _______________________________________________/\ + ___/\___ _____/\___ _/\___ _/\_____________________________________ 1 ____________ +___/\_ _/\_____ /\___ _/\___ /\ _/\_ /\ _____________/\_______ _/\___ + /\ /\ _/\ K _/\ /\ _/\ T U /\ /\_ a b _______/\_ _/\ /\ _/\___ + C D E F _/\ J /\ N O P /\ S V W X /\ _______/\_____ /\___ _/\ z 2 3 /\ _/\___ + /\ I L M Q R Y Z ___/\_ ___/\ o _/\_____ _/\ y 4 5 /\ _/ +\_ G H _/\_ /\_ /\_ n /\ _/\ /\ x 6 7 /\ + /\ /\ /\ g /\_ k /\ p q _/\ u v w 8 9 +A B c d e f h /\ l m /\ t i j r s _______/\_____________________ +______________________ ___________________________________/\_____ ______________ +_____________________/\___________ _/\___________________ ___/\ _____/\_____________ +____________________ _______/\_ /\ _______/\_________ /\_ x /\___ ____________ +___________________/\ _/\___ /\_ a b _______/\_ _______/\___ u /\ y _/\ /\___ + K /\ _/\_ R /\___ _/\___ /\_ /\_ _/\ v w /\ 2 3 _/\_ + L M /\ /\ S _/\_______ /\ _/\_ i /\_ m /\_ /\ t z 1 /\ /\_____ +__________ N O P Q /\ _/\ c d /\ /\ j /\ n /\_ r s 4 5 6 +_________/\___ T U ___/\ Z e f g h k l o /\ _/ +\_ _/\___ /\_ Y p q _/\ + /\_____ /\ _/\ V /\ /\ 9 +A ___/\ F G /\ J W X 7 8 + /\_ E H I + B /\ + C D

Replies are listed 'Best First'.
Re^4: Challenge: Dumping trees.
by BrowserUk (Patriarch) on Oct 15, 2012 at 20:58 UTC
    I was not able to reproduce the anomalies,

    Okay.

    1. First problem: Your version of the generator is not -- for the same setting of srand-- producing the same randomly generated tree.

      At first, I assumed this must be because you were using a different rand to me. I guessed you might be running on some flavour of *nix -- but then I noticed your use of notepad above -- which squashed that idea.

      Then I thought you might be running some other flavour of windows perl -- perhaps Strawberry. So, I thought I'd re-generate the failing test cases using my version of the generator and supply you with the generated trees.

    2. Second problem: my version of the generator is no longer producing the same trees for a given value of -S=nnn!

      Did I change the generator between posting and now? I don't remember, but I can only assume that something in the original code I used, that used rand has changed.

      Never mind: I'll reverse engineer the output I posted back to a raw tree structure and give you that.

    3. Third problem: Reverse engineering this pretty form of output is extremely painstaking, laborious and painful!

      But I did it!

      my $root = [ [ ['a','b'], [ [[['c','d'],[['e','f'],'g']],[['h',['i',['j','k']]],'l']], [['m',['n',['o','p']]],'q'] ] ], [ [ [ [[[['r',[['s','t'],'u']],'v'],['w','x']],[['y','z'],]], [ ['1',[['2','3'],[['4','5'],[['6',['7',['8','9']]],['A','B']]]]], [[['C','D'],['E','F']],'G'] ] ], [ [ [['H',[['I',['J','K']],'L']],[['M','N'],'O']], ['P',[[[['Q','R'],['S','T']],'U'],['V','W']]] ], ['X','Y'] ] ],'Z' ] ] ;

      Which fed to your dumper produces the same (malformed) dump that I originally posted:

      C:\test>anonBinTreeDumper.pl _____________________________/\___________________________________ +___________________________________________________ _/\___________________ + ___________________________________/\ /\ _________/\_______ _________________ +______________/\_______________________________ Z a b _____/\_______ _____/\ ____/\________________ +_____ _______________/\_ _/\___ _____/\ /\_ q ___/\ _______________ +____/\_______ _____/\_ /\ /\ _/\ /\_ l m /\_ _/\_ _/ /\___ + ___/\ _______/\___ /\_________ X Y c d /\ g h /\_ n /\ _____/\ //\ 1 _/\___ + _/\_ G /\_____ _/\ P _/\_ e f i /\ o p /\___ v wyxz /\ _/\______ +_ /\ /\ H ___/\ /\ O ___/\ /\ j k r _/\ 2 3 /\ _____ +/\_ C D E F /\_ L M N _/\_ U V W /\ u 4 5 /\_ + /\ I /\ /\ /\ s t 6 /\_ + A B J K Q R S T 7 /\ 8 9

      But that raises another problem...

    4. Fourth problem: if you look at the raw tree above, you'll see it is malformed: [['y','z'],]; the x,y node is paired with a null node.

      And that raises the final problem.

    5. Fifth problem: Given that the raw tree is reproduced from the pretty-printer output, there is no way to determine if the tree my generator fed your dumper was malformed; or if the malformation is a result of occlusion in the dumper output?

      I don't think that it is possible for the generator to produce bad trees -- but I haven't proven that.

      Looking at the spacing between the 'z' and the '1' nodes, the gap is too big, which makes me think it is a artifact of the dumper.

    At that point, I manually made the simplest correction to the raw tree that (I thought) would make it valid:

    and re-ran the dumper. As you can see, it still produces the identical, malformed dump:

    C:\test>anonBinTreeDumper.pl _____________________________/\___________________________________ +___________________________________________________ _/\___________________ + ___________________________________/\ /\ _________/\_______ _________________ +______________/\_______________________________ Z a b _____/\_______ _____/\ ____/\________________ +_____ _______________/\_ _/\___ _____/\ /\_ q ___/\ _______________ +____/\_______ _____/\_ /\ /\ _/\ /\_ l m /\_ _/\_ _/ /\___ + ___/\ _______/\___ /\_________ X Y c d /\ g h /\_ n /\ _____/\ //\ 1 _/\___ + _/\_ G /\_____ _/\ P _/\_ e f i /\ o p /\___ v wyxz /\ _/\______ +_ /\ /\ H ___/\ /\ O ___/\ /\ j k r _/\ 2 3 /\ _____ +/\_ C D E F /\_ L M N _/\_ U V W /\ u 4 5 /\_ + /\ I /\ /\ /\ s t 6 /\_ + A B J K Q R S T 7 /\ 8 9

    So then I fed that corrected tree to my dumper:

    C:\test>perl \perl64\site\lib\Tree\Dump.pm ____________________________________________________ +_________________________________ _____________/ + \___________________ _/ \_________ __________ +_________________________________/ \ / \ _____/ \_____ _______/ + \_______________ Z a b ___/ \_____ _/ \ _____/ \__________ +___________ ___/ \_ _/ \_ _/ \ / \_ q _/ \ ___/ + \___ _______/ \_________ / \ / \ _/ \ / \_ l m / \_ ___/ \_ _/ / \___ + _/ \ ___/ \_ / \_ X Y c d / \ g h / \_ n / \ ___/ \ / \ / \ 1 _/ \___ + _/ \_ G / \___ _/ \ P ___/ \_ e f i / \ o p / \_ v w x y z / \ _/ \__ +___ / \ / \ H _/ \ / \ O _/ \ / \ j k r _/ \ 2 3 / \ _/ + \_ C D E F / \_ L M N _/ \_ U V W / \ u 4 5 / \_ + / \ I / \ / \ / \ s t 6 / \ +_ A B J K Q R S T 7 / + \ 8 + 9

    At this point, I'm kicking the ball into your court to decide if it is worth pursuing further?


    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    RIP Neil Armstrong

      ..But I did it!...At this point, I'm kicking the ball into your court to decide if it is worth pursuing further?

      I see, thanks. Nope, definitely not worth pursuing Fudgy further.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://999127]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (7)
As of 2024-03-28 08:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found