With the given text below, there are some words in the text that repeats several times in the text. Use any programming language to write a short code that compresses the text to display it. Or in other words, use the smallest number of bytes to display the text.
The Text is:
Peter Piper picked a peck of pickled peppers.
A peck of pickled peppers Peter Piper picked.
If Peter Piper picked a peck of pickled peppers,
Where's the peck of pickled peppers Peter Piper picked?
"["=gsub
cat(1["Peter Piper picked",2[" peck of pickled peppers","1 a2.
A2 1.
If 1 a2,
Where's the2 1?"]])
“¡ŀṪ]ṃ{yṁ“Ñ3$ṘW5Ḍż⁸¢Hŀ“³ḌM“¡FỊİg“ÑɲʋØƥþƈƘ}“ṣɠ»“Ƙ9~ḷ’ṃFḊ”?
“...“...“...“...“...“...»“Ƙ9~ḷ’ṃFḊ”? - Main Link: no arguments
“...“...“...“...“...“...» - list of compressed strings
- = [" Peter Piper picked",
- " peck of pickled peppers",
- ".\nA",
- ".\nIf",
- ",\nWhere's the",
- " a"]
“Ƙ9~ḷ’ - base 250 literal X = 2331781969
ṃ - base decompress - i.e. use the list of strings as if
- they were the digits [1,2,3,4,5,0]
- X in base 6 is [1,0,2,3,2,1,4,1,0,2,5,2,1], so:
- [" Peter Piper picked",
- " a",
- " peck of pickled peppers",
- ".\nA"," peck of pickled peppers",
- " Peter Piper picked",
- ".\nIf",
- " Peter Piper picked",
- " a",
- " peck of pickled peppers",
- ",\nWhere's the",
- " peck of pickled peppers",
- " Peter Piper picked"]
F - flatten
Ḋ - dequeue (remove the leading space)
”? - literal '?' character (causes print of previous)
- implicit print (of the '?' character)
00000000: 0b48 2d49 2d52 08c8 2c00 9205 99c9 d9a9 .H-I-R..,.......
00000010: 290a 890a 05a9 c9d9 0af9 6960 819c d414 ).........i`....
00000020: 20bf 0028 5fac c7e5 884b 4a01 d31c 3d2e ..(_....KJ...=.
00000030: cf34 0552 8cd7 e10a cf48 2d4a 552f 5628 .4.R.....H-JU/V(
00000040: c948 25c1 227b 00 .H%."{.
gzip on the highest compression level (-9) plus some metadata shaving using head and tail, the 71 byter is generated using zopfli, which I initially forgot about. Zopfli usually creates shorter DEFLATE streams.
\$\endgroup\$
print(`0 a1.
A1 0.
If 0 a1,
Where's the1 0?`.replace(/\d/g,n=>+n?' peck of pickled peppers':'Peter Piper picked'))
I would claim this answer is from ovs, anyway, 19 bytes saved.
Thanks Arnauld, saves 3 bytes.
a="Peter Piper picked"
b=" peck of pickled peppers"
print a,"a%s.\nA"%b+b,a+".\nIf",a,"a%s,\nWhere's the"%b+b,a+"?"
Prints multiple commas-separated strings to put spaces in between them.
print("1 a2.\nA2 1.\nIf 1 a2,\nWhere's the2 1?".translate({49:"Peter Piper picked",50:" peck of pickled peppers"}))
Python 3's translate does the heavy lifting. Using non-printable characters with single-digit ASCII value should save two bytes.
exit saves 1 byte for the Python 3 program.
\$\endgroup\$
Commented
Oct 14, 2018 at 20:14
“...“...») to form most of the four lines and then interleaving (ż) with the less repetitive parts (like ',\nIf'), again with compressed string lists; you can see how mine works from the description.
\$\endgroup\$
Commented
Oct 15, 2018 at 12:31
echo "${P=Peter Piper picked} a${p= peck of pickled peppers}.
A$p $P.
If $P a$p,
Where's the$p $P?"
-12 bytes: turns out 2 substitutions are shorter which is basically the same as everyone else's solution (except Bubblegum?)
i1 a0.
A0 1.
If 1 a0,
Where's the0 1?Í0/ peck of pickled peppers
Í1/Peter Piper picked
a,b="Peter Piper picked"," peck of pickled peppers"
exit(f"{a} a{b}.\nA{b} {a}.\nIf {a} a{b},\nWhere's the{b} {a}?")
Format strings were shorter than addition(129 bytes) and a join(140 bytes).
-3 thanks to Jo King, -1 thanks to Jonathan Allen
print with exit.
\$\endgroup\$
Commented
Oct 14, 2018 at 20:12
v->"".format("%s a%s.%nA%2$s %1$s.%nIf %1$s a%2$s,%nWhere's the%2$s %1$s?","Peter Piper picked"," peck of pickled peppers")
This uses a simple replacement to fill in the gaps.
Twig's replace() filter allows you to define the values to replace as the keys of an hash.
Luckly, it also works with arrays, as they have numerical keys.
{{"0a1.
A1 0.
If 0 a1,
Where's the1 0?"|replace(["Peter Piper picked"," peck of pickled peppers"])|raw}}
The |raw is needed to avoid escaping, which turned Where's into Where's.
You can try it on https://twigfiddle.com/phqpts
Since this is compiled down to PHP, the equivalent for PHP would be:
<?php
$array = array("Peter Piper picked", " peck of pickled peppers");
$string = "0 a1.
A1 0.
If 0 a1,
Where's the1 0?";
echo str_replace(array_keys($array), $array, $string);
Which can be shortened significatively.
/ a/=~$a="Peter Piper picked a peck of pickled peppers"
puts"#$a.
A#$' #$`.
If #$a,
Where's the#$' #$`?"
/1/Peter Piper picked//2/ peck of pickled peppers/1 a2.
A2 1.
If 1 a2,
Where's the2 1?
f(){printf("%s a%s.\nA%2$s %1$s.\nIf %1$s a%2$s,\nWhere's the%2$s %1$s?","Peter Piper picked"," peck of pickled peppers");}
import StdEnv,Text;f="peck of pickled";g="picked";u="peppers";p="Peter Piper";s=join" "[p,g,"a",f,u+".\nA",f,u,p,g+".\nIf",p,g,"a",f,u+",\nWhere's","the",f,u,p,g+"?"]
s/^/0 a1.\nA1 0.\nIf 0 a1,\nWhere's the1 0?/
s/0/Peter Piper picked/g
s/1/ peck of pickled peppers/g
-1 byte thanks to @DigitalTrauma
.* with ^ to save a byte
\$\endgroup\$
Commented
Oct 14, 2018 at 2:10
(106 characters code + 4 characters command line options)
"1 a2.
A2 1.
If 1 a2,
Where's the2 1?"|gsub("1";"Peter Piper picked")|gsub("2";" peck of pickled peppers")
Sample run:
bash-4.4$ jq -nr '"1 a2.
A2 1.
If 1 a2,
Where'"'"'s the2 1?"|gsub("1";"Peter Piper picked")|gsub("2";" peck of pickled peppers")'
Peter Piper picked a peck of pickled peppers.
A peck of pickled peppers Peter Piper picked.
If Peter Piper picked a peck of pickled peppers,
Where's the peck of pickled peppers Peter Piper picked?
declare @a char(18)='Peter Piper picked'
declare @b char(24)=' peck of pickled peppers'
declare @c char=char(10)
print @a+' a'+@b+'.'+@c+'A'+@b+' '+@a+'.'+@c+'If '+@a+' a'+@b+','+@c+'Where''s the'+@b+' '+@a+'?'
declare; use an actual line break in the string instead of char(10), in fact you can put the line breaks directly in the print statement and eliminate @c entirely. Pick your most-used variable and use @ by itself (its valid!)
\$\endgroup\$
"i am. Am i. If i am, Where's them i?" I can't stop laughing. This is gold.
\$\endgroup\$
Commented
Aug 23, 2019 at 17:50
4D534346000000009C00000000000000
2C000000000000000301010001000000
000000004200000001000100DF000000
000000000000544DB5682000612E6261
7400E59D45D15200DF00434B73484DCE
C85708482D492D5208C82C00920599C9
D9A9290A890A05A9C9D90AF96960811C
A048416A0150BE588F970BA2C911970A
2CC6C13579A69164990E4C5F78466A51
AA7AB14249462A09D6DA0300
extract %0 .bat
.batSelf-extracting Cabinet file using Batch/CAB polyglot. The blank line is needed for the batch file processor to find the actual batch code, but can be LF alone instead of CR/LF. The Cabinet file is just a series of "@echo <string>" lines, and the '@' symbol suppresses the "echo" itself from being displayed.
SELECT p+a+k+'.
A'+k+' '+p+'.
If '+p+a+k+',
Where''s the'+k+' '+p+'?'
FROM(SELECT'Peter Piper picked'p,' a'a,' peck of pickled peppers'k)b
That last return before the FROM is for readability only, the rest are part of the string concatenation.
Different method than SeanC's SQL solution.
var s="Peter Piper picked"
var z=" peck of pickled peppers"
var v=s+" a"+z
var x=z+" "+s
print(v+".\n"+"A"+x+".\n"+"If "+v+",\n"+"Where's the "+x+"?")
1 a0.¶A0 1.¶If 1 a0,¶Where's the0 1?
1
Peter Piper picked
0
peck of pickled peppers
Try it online! Same idea as everyone else.
prin rejoin[a:"Peter Piper picked"" a"b:" peck of pickled peppers"".^/A"b" "a".^/If "a" a"b",^/Where's the"b" "a"?"]
The job is done by the rejoin funcion, which reduces and joins a block of values.
prin rejoin [ ; print the reduced (evaluated) and joined block
a: "Peter Piper picked" ; save the text to a
" a" ; literal " a"
b: " peck of pickled peppers" ; save the text to b
".^/A" ; literal newline followed by "A"
b ; " peck of pickled peppers"
" " ; literal " "
a ; "Peter Piper picked"
".^/If " ; literal ".^/If "
a ; "Peter Piper picked"
" a" ; literal " a"
b ; " peck of pickled peppers"
",^/Where's the" ; literal "," folowwed by a newline by "Where's the"
b ; " peck of pickled peppers"
" " ; literal " "
a ; "Peter Piper picked"
"?" ; literal "?"
]
echo('1 a2.',CR,'A2 1.',CR,'If 1 a2,',CR,'Where''s the2 1?')rplc('1';'Peter Piper picked';'2';' peck of pickled peppers')
<?=($a="Peter Piper picked")." a".($b=" peck of pickled peppers").".
A$b $a.
If $a a$b,
Where's the$b $a?";
’0 a1.
A10.
If0 a1,
W€Î's €€10?’TS.•1~¼ ¿•“±æ€‚ ÿÇì“'p0ǝ„íδŒ™„r¾Ð«‚ðì:¦
Explanation:
’0 a1.
A10.
If0 a1,
W€Î's €€10?’ # String "0 a1.\nA10.\nIf0 a1,\nWhere's the10?"
TS # 10 to digits: ["1","0"]
.•1~¼ ¿• # String "pickled"
“±æ€‚ ÿÇì“ # String "neck of ÿ pepper", where the "ÿ" will
# automatically be replaced with the top value of the stack
'p0ǝ # Replace the character at index 0 with a "p":
# "peck of pickled pepper"
„íδŒ # String "peter pipe"
™ # Titlecased: "Peter Pipe"
„r¾Ð # String "r picked"
« # Merge them together: "Peter Piper pickled"
‚ # Pair them together:
# ["peck of pickled pepper","Peter Piper pickled"]
ðì # Prepend a space before each:
# [" peck of pickled pepper"," Peter Piper pickled"]
: # Replace the ["1","0"] with this list of strings
¦ # Remove the leading space (and output implicitly)
See this 05AB1E tip of mine to understand why:
’0 a1.\nA10.\nIf0 a1,\nW€Î's €€10?’ is "0 a1.\nA10.\nIf0 a1,\nWhere's the10?".•1~¼ ¿• is "pickled"“±æ€‚ ÿÇì“ is "neck of ÿ pepper"„íδŒ is "peter pipe"„r¾Ð is "r picked"
g x y=x++y++x
p=g"Peter Piper picked"
q=g" peck of pickled peppers"
a=g" ".("a"++).q
f=p(a".\nA"++p".\nIf "++a",\nWhere's the")++"?"
v=>@"0 a1.
A1 0.
If 0 a1,
Where's the1 0?".Replace("0","Peter Piper picked").Replace("1"," peck of pickled peppers")
Inspired by @Olivier Grégoire's java answer
5 bytes saved by @sebbs
Basically just change the repeater words or sentences with numbers, and then apply php-strtr
<?=strtr("0 a 1.
A 1 0.
If 0 a 1,
Where's the 1 0?",["Peter Piper picked","peck of pickled peppers"]);
Or
<?=strtr("0 1 25 a 3 of 2l5 4.
A 3 of 2l5 4 0 1 25.
If 0 1 25 a 3 of 2l5 4,
Where's the 3 of 2l5 4 0 1 25?",[Peter,Piper,pick,peck,peppers,ed]);
