Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

can it be?? la compression quasi-illimitée sans perte de données

3 réponses
Avatar
uglyvan
ceci est un programme yabasic;
essayez-le sur de petits fichiers ( genre 1Mo ) parce que sinon, vu que c'e=
st du travail d'amateur, il y a des probl=C3=A8mes d'allocation m=C3=A9moir=
e ou que sais-je encore.

nul doute que tout programmeur de ce nom fera du projet CIL un bijou.


dim t(100000000)
dim u(100000000)
dim v(1500)

i=3D1

open 1,"d:pip\dm.zip","rb"
open 2,"d:pip\dm1.txt","wb"
open 3,"d:pip\dm1_log.txt","w"

apr=C3=A8s chaque execution du programme, crunchez le fichier 2 ( dm1.txt )=
qui deviendra dm1.zip, alors qu'un deuxi=C3=A8me dm2.txt remplace le premi=
er


while(!eof(1))
t(i)=3Dpeek(1)
i=3Di+1
rem print i
wend

close 1

20
print "pass 1..."

j=3D1
k=3D1
o=3D0
m=3D1

if (t(1)-128>=3D0) then
f=3D1
else
f=3D0
endif

while (j<=3Di)
rem print j,t(j)
zz=3D256
while (zz>1)
zz=3Dzz/2
if (t(j)-zz>=3D0) then
40
f=3D1
else
f=3D0
endif
if (f=3D1 and o=3D0) then
k=3Dk+1
u(k)=3D1
o=3D1
else if (f=3D1 and o=3D1) then
u(k)=3Du(k)+1
if (m<u(k)) then
m=3Du(k)
endif
t(j)=3Dt(j)-zz
elseif (f=3D0 and o=3D0) then
u(k)=3Du(k)+1
if (m<u(k)) then
m=3Du(k)
endif
60
elseif (f=3D0 and o=3D1) then
k=3Dk+1
u(k)=3D1
o=3D0
endif
endif
wend
j=3Dj+1
wend
print "almost finished"

print
print m

for l=3D1 to k
poke #2,u(l)
v(u(l))=3Dv(u(l))+1

next l
80
close 2

print "finish"

for m=3D1 to 1500
if (v(m)>0) then
print m,v(m)
r=3Dr+m*v(m)
print #3,m,v(m),m*v(m)
endif
next m

print #3,r
close 3

end

3 réponses

Avatar
uglyvan
la philosophie du projet CIL:
chaque fichier comporte une association de bits ( que j'appelle des mots
;
à chaque mot une taille, de 1 à say 58
un mot est une suite de bits de même signe
000011110011111
se traduit par
4425
il suffit d'indiquer le signe ( 0 ou 1 ) du premier mot.
voilà; c'est tout;
c'est le hasard qui m'a acheminé là;
d'après la théorie,
un fichier devrait être rempli de mots de tailles
1 pour 25% x 1 = 25%
2 pour 12.5% x 2 = 25%
3 pour 6.25 x 3 = 19%
4 pour 3.125 x 4 = 12.5%
5 pour 1.6 x 5 = 8%
6 pour 0.8 x 6 =5%
etc
Avatar
uglyvan
Le mardi 8 novembre 2016 10:53:13 UTC+1, uglyvan a écrit :
ceci est un programme yabasic;
essayez-le sur de petits fichiers ( genre 1Mo ) parce que sinon, vu que c 'est du travail d'amateur, il y a des problèmes d'allocation mémo ire ou que sais-je encore.
nul doute que tout programmeur de ce nom fera du projet CIL un bijou.
dim t(100000000)
dim u(100000000)
dim v(1500)
i=1
open 1,"d:pipdm.zip","rb"
open 2,"d:pipdm1.txt","wb"
open 3,"d:pipdm1_log.txt","w"
après chaque execution du programme, crunchez le fichier 2 ( dm1.txt ) qui deviendra dm1.zip, alors qu'un deuxième dm2.txt remplace le pre mier
while(!eof(1))
t(i)=peek(1)
i=i+1
rem print i
wend
close 1
20
print "pass 1..."
j=1
k=1
o=0
m=1
if (t(1)-128>=0) then
f=1
else
f=0
endif
while (j<=i)
rem print j,t(j)
zz%6
while (zz>1)
zz=zz/2
if (t(j)-zz>=0) then
40
f=1
else
f=0
endif
if (f=1 and o=0) then
k=k+1
u(k)=1
o=1
else if (f=1 and o=1) then
u(k)=u(k)+1
if (m<u(k)) then
m=u(k)
endif
t(j)=t(j)-zz
elseif (f=0 and o=0) then
u(k)=u(k)+1
if (m<u(k)) then
m=u(k)
endif
60
elseif (f=0 and o=1) then
k=k+1
u(k)=1
o=0
endif
endif
wend
j=j+1
wend
print "almost finished"
print
print m
for l=1 to k
poke #2,u(l)
v(u(l))=v(u(l))+1
next l
80
close 2
print "finish"
for m=1 to 1500
if (v(m)>0) then
print m,v(m)
r=r+m*v(m)
print #3,m,v(m),m*v(m)
endif
next m
print #3,r
close 3
end

ah oui... info ou intox , je n'ai pas envie de trouver le script pour dà ©compresser les fichiers cil hein??
A vous les pros ( par exemple vu que je n'y connais rien en bizzness je n'i magine même pas contacter genre Winzip incorporated ( GPL ? )
Avatar
uglyvan
ah oui... info ou intox , je n'ai pas envie de trouver le script pour d écompresser les fichiers cil hein??
A vous les pros ( par exemple vu que je n'y connais rien en bizzness je n 'imagine même pas contacter genre Winzip incorporated ( GPL ? )

ben en fait, si, je vais essayer de vendre mon programme ( groumf! )