Re^8: a random_data() implementation

If I understand you correctly: yes, the 3-line data contained things like AAAAAAA, that was picked up by my generator and produced lines like ACAAAABBBCCCAAAABBBBCCAAABCAAAAAAABBBBBBBBBBBBBCAAAACAAABCAABCA

$data = join "", @data, @$random_data;  # remove \n they can be re-ins
+erted later
# Add this to print all data
print join("\n", @$random_data);
[download]

Comment on Re^8: a random_data() implementation Select or Download Code

Replies are listed 'Best First'.
Re^9: a random_data() implementation by LanX (Saint) on Sep 11, 2021 at 14:31 UTC
Thanks! I looked into it and could reproduce your results. FWIW I tried best compression for gzip `use IO::Compress::Gzip qw(gzip :constants); sub compgzip { gzip \(shift) => \(my $output), -Level => Z_BEST_COMPRESSION; $output; } use IO::Uncompress::Gunzip qw(gunzip); sub uncompgzip { gunzip \(shift) => \(my $output); $output; }` [download] and got `------------------------------ Compression by gzip/gunzip length of data 210168 length of compressed data 42210 compressed to 20.1% MATCH` [download] update I noticed that `-Strategy => Z_RLE` already led to `compressed to 20.9%` so my theory is that your runs are so homogeneously distributed that the second phase Huffmann couldn't squeeze more than 0.8% out of it. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re^9: a random_data() implementation by LanX (Saint) on Sep 10, 2021 at 20:51 UTC
OK, strange ... .. I would have expected zip to perform better then. Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply]

update