たかが562 bytesですが圧縮率は概ねgzipを超えるという代物です。圧縮原理はBlock sorting(BWT) + Move to front + 2値Range coderとなります。
BWTは組み込み関数のArray.prototype.sortだけで実装しているので、反復だらけの入力に対しては低速です。まあ一般的な文書に対してはそれなりに高速じみています。

実装編

ちょっと読みやすいかもしれないですが、以下のようなprogramだ! 制御文字てんこ盛りなのでbase64符号化してあります。

base64

Zm9yKFc9J1tpRisrRUlbRGZvcihDO0NCQjtBYV1APWkfe0MeMjUdPXAcT1sbLGkaPDw4GVNbYUUYLS0XPW4WbDw8PTgsFT4+PhQ9REAaEzspElsXaV0RRV09ED1TPT4edmFyIGkPO3I9chl8HTUpDkZdDD1bXSwLFDI0CXJldHVybiAISS5zb3J0KChhGik9PgcZfBhdBjtpElQMPVQRO1QMHAUbbxByCQQ7cD1sKyhyLWwUMTIpKlAMLGI9dhQDLEkLTwtQC1QLYT0dNixiLGMscCxsLG4fLHYsbz0wLHIWO2ESUFtUWxdAPUA9OBlBAixQDC09UAwtKGI8PDEyKT4+NSxiP3IcOmwcKzEaKx8rYilDO2wJPT1yCQ4VAVcPPVMubGVuZ3RoAmkSSREfQgcebBY7bBcSaWYocD0YJW5dLVNGRSVuXSkIcH0pO2E8bjtEYRBTESlpE3x8KGw9YRoWKUFvPDgOG28QbAksFQRBYRcSHnATPTA7VAxecBJpRUJ2HwVCYz04Gj0xO2MDF2MmMQEEfQQ7CE99O1gPAmE8ODtvFhYGKWM9YwZBbhIeaT0xO2k8HTYDMDwcFDABdj12BkIbRBduXRZdHD1URiY9HTVdBX1DUwsHG0AtTwwpO2k8bxJTRhAbYz1EY11dOwhTfSc7WD0vWwEtH0AtRl0vLmV4ZWMoVyk7KXdpdGgoVy5zcGxpdChYKSlXPWpvaW4oc2hpZnQoKSk7ZXZhbChXKQ

base64復号すると562 bytesのprogramが降臨し、eval(...)の中を展開すると以下のような886 bytesの圧縮関数と展開関数が具現化。

W=S=>{for(var i=S.length,I=[],O=[],P=[],T=[],a=256,b,c,p,l,n=i,v,o=0,r=n;a;)P[T[--a]=a]=8<<8;for(;i;)I[--i]=i;for(I.sort((a,i)=>{for(l=n;l--;)if(p=S[a++%n]-S[i++%n])return p});a<n;I[a++]=S[--i])i=I[a],i||(l=a,i=n);for(;o<8;r=r<<8|255)O[o++]=l>>>24,l<<=8,O[o++]=r>>>24;for(;a--;){for(p=I[a],i=0;T[i]^p;)i++;for(v=i;i;)T[i]=T[--i];T[i]=p;for(c=8,i=1;c;p=l+(r-l>>>12)*P[i],b=v>>>--c&1,P[i]-=P[i]-(b<<12)>>5,b?r=p:l=p+1,i+=i+b)for(;l>>>24==r>>>24;r=r<<8|255)l<<=8,O[o++]=r>>>24}O[o++]=r>>>24;return O};
X=S=>{for(var i,I=[],O=[],P=[],T=[],a=256,b,c,p,l,n=i,v,o=0,r=n;a;)P[T[--a]=a]=8<<8;for(;a<8;o=n=n<<8|S[a++])c=c<<8|S[a++];for(;n;){for(i=1;i<256;p=l+(r-l>>>12)*P[i],b=v>>>0<=p>>>0,P[i]-=P[i]-(b<<12)>>5,b?r=p:l=p+1,i+=i+b)for(;l>>>24==r>>>24;r=r<<8|255)l<<=8,v=v<<8|S[a++];for(O[I[--n]=n]=p=T[i&=255];i;)T[i]=T[--i];T[i]=p}for(S=[],I.sort((a,i)=>O[a]-O[i]);i<o;)S[i++]=O[c=I[c]];return S}

関数Wが圧縮、関数Xが展開を担って下さいます。無駄な初期化がちらほら見受けられますが、関数を圧縮する為の小細工です。WとXの引数はArrayかUint8Array、返り値はArrayです(要素は0～255の整数)。
web application(html)にすると762 bytes。file圧縮と展開を実装。例によってbase64符号化してあります(復号すると制御文字てんこ森沢山)。undoを有効にすると展開処理、無効なら圧縮処理。newをclickすると成果物をdonwloadできます。多分。

base64

PHN2ZyBvbmxvYWQ9J2ZvcihBPWBmb3Iofnt+WmFdWVNbWElbVz1pVjt+Tk47TSsrSzI1SnJyYXlIZmlsZUcgaWQ9Rk9bRT1wRCxpQzw8OB9pbnB1dB5jaGVjax1LJW5dHD1uGy0tGmw8PD04LBkgdHlwZT0YPj4+F25ldyAWPVdZQxU7KRRbGmldE0tdPRI8HkYRPVM9Plp2YXIgaRA7cj1yH3xKNSkPW2ldDj1bXSwMFzI0C3JldHVybiAJSS5zb3J0KChhQyk9PggWVWludDhBSCgHH3xYYUtdBjtpFFQOPVQTO1QORAVFbxJyCwQ7cD1sKyhyLWwXMTIpKlAOLGI9dhcDLEkMTwxQDFQMYT1KNixiLGMscCxsLG5WLHYsbz0wLHIbO2EUUFtUWxpZPVk9OB9NAixQDi09UA4tKGI8PDEyKT4+NSxiP3JEOmxEKzFDK1YrYil+O2wLPT1yCw8ZARFrGB1ib3g+dW5kbxFmGEcgb24ePSJBED1TLmxlbmd0aAJpFEkTVk4IWmwbO2waFGlmKHA9WGEcLVhpHCkJcH0pO2E8bjtXYRJTEylpFXx8KGw9YUMbKU1vPDgPRW8SbAssGQRNYRoUWnAVPTA7VA5ecBRpS052VgVOYz04Qz0xO2MDGmMmMQEEfQQ7CU99O0IQAmE8ODtvGxsGKWM9YwZNbhRaaT0xO2k8SjYDMDxEFzABdj12Bk5FVxpuXRtdRD1UW2kmPUo1XQV9flMMCEVZLU8OKTtpPG8UWGkSRWM9V2NdXTsJU307R3NbMF0uYUhCdWZmZXIoKS50aGVuKFM9PmMuaHJlZj10b3AuVVJMLmNyZWF0ZU9iamVjdFVSTCgWQmxvYihbByhrLh1lZD9COkEpKAdTKSkpXSkpKSI+PGFGYyBkb3dubG9hZD4WYDtCPS9bXiAtQklMTy1VWy19XS8uZXhlYyhBKTspd2l0aChBLnNwbGl0KEIpKUE9am9pbihzaGlmdCgpKTt3cml0ZShBKSc+

codepen召喚

See the Pen BWT+MTF+RC compressor by xezz (@xezz) on CodePen.

解説編

では変数を改名して関数どもを現代語訳していきます。Range coderは桁上がりの無い亜種を使用。圧縮処理はBWTの逆順に行います。理由は圧縮率が良くなる場合があるからです。ついでに言うと関数を圧縮しやすかったから(本音)。
元配列の大きさやBWT復元位置をRange coder用の変数に代入している点が不可解に見えますが、これも関数を圧縮しやすくするための工夫。

W=In=>{
	var Index=[],Out=[],Hit=[],MTF=[],
		i=In.length,a=256,bit,c,p,size=i,v,o=0,
		Low,Range=size;// range coder
	for(;a;)Hit[MTF[--a]=a]=8<<8;// bit統計表と記号順位表を初期化
	// BWT
	for(;i;)Index[--i]=i;
	Index.sort((a,i)=>{
		for(Low=size;Low--;)
			if(p=In[a++%size]-In[i++%size])return p
	});
	for(;a<size;Index[a++]=In[--i])
		i=Index[a],i||(Low=a,i=size);

	//元配列の大きさとBWT復号用の位置を刻印
	for(;o<8;Range=Range<<8|255)
		Out[o++]=Low>>>24,Low<<=8,
		Out[o++]=Range>>>24;

	//圧縮処理(BWTの逆順)
	for(;a--;){
		// move to front
		for(p=Index[a],i=0;MTF[i]^p;)i++;
		for(v=i;i;)MTF[i]=MTF[--i];MTF[i]=p;
		// bit単位で記号順位を符号化
		for(c=8,i=1;c;i+=i+bit){
			p=Low+(Range-Low>>>12)*Hit[i];
			bit=v>>>--c&1;
			Hit[i]-=Hit[i]-(bit<<12)>>5;
			bit?Range=p:Low=p+1;
			// normalize
			for(;!((Low^Range)>>>24);Range=Range<<8|255)
				Low<<=8,Out[o++]=Range>>>24
		}
	}
	Out[o++]=Range>>>24;return Out
};
X=In=>{
	var Index=[],Out=[],Hit=[],MTF=[],
		i,a=256,bit,pidx,p,size,v,o=0,
		Low,Range;// range coder
	for(;a;)Hit[MTF[--a]=a]=8<<8;// bit統計表と記号順位表を初期化
	// 元配列の大きさとBWT復号用の位置読み取り
	for(;a<8;o=size=size<<8|In[a++])
		pidx=pidx<<8|In[a++];
	// 展開処理
	for(;o;){
		// bit単位で記号順位を復号
		for(i=1;i<256;i+=i+bit){
			// normalize
			for(;!((Low^Range)>>>24);Range=Range<<8|255)
				Low<<=8,v=v<<8|In[a++];
			p=Low+(Range-Low>>>12)*Hit[i];
			bit=v>>>0<=p>>>0;
			Hit[i]-=Hit[i]-(bit<<12)>>5;
			bit?Range=p:Low=p+1
		}
		Out[Index[--o]=o]=p=MTF[i&=255];
		// move to front
		for(;i;)MTF[i]=MTF[--i];MTF[i]=p
	}
	// BWT復号
	Index.sort((a,i)=>Out[a]-Out[i]);
	for(In=[];i<size;)In[i++]=Out[pidx=Index[pidx]];
	return In
}

用途

js13kgames等の作品に利用したりcode golfに利用できるかも