Uygulama: Sıkıştırma
gzip ile sıkıştır, oranı gör.
Bir metni gzip ile sıkıştırıp geri açan, sıkıştırma oranını gösteren program. basır ve basır_aç bayt döndürür; tekrarlı veri çok iyi sıkışır.
Deneyelim
Aşağıdaki kodu sunucudaki gerçek biril yorumlayıcısında çalıştır:
veri = ""
döngü i iç menzil(0, 50):
veri = veri + "Biril "
sıkı = basır(veri)
geri = basır_aç(sıkı)
yaz("Orijinal: " + ip(uzu(veri)) + " bayt")
yaz("Sıkıştırılmış: " + ip(uzu(sıkı)) + " bayt")
yaz("Geri açıldı: " + ip(uzu(geri)) + " bayt")
oran = çember(uzu(sıkı) * 100 / uzu(veri))
yaz("Oran: %" + ip(oran))