| |
DG9EP > AX25 20.12.96 00:34l 151 Lines 8934 Bytes #-10637 (0) @ DL
BID : 19C60FDB0IZ
Read: DH2MBM DJ9SS DL5MCG DG2MNF GUEST
Subj: ! / /COMP - Huffman-Baum
Path: DB0KCP<DB0KFB<DB0CZ<DB0LJ<DB0IZ
Sent: 961219/2321z @:DB0IZ.#NRW.DEU.EU [JO31NE, Op: DL6EE] $:19C60FDB0IZ
de DG9EP @ DB0IZ.#NRW.DEU.EU (Walter)
to AX25 @ DL
moin,
ich hab den hier in einer Soft drin, sind pascalisiert so aus:
{--------------- SP - //Compress Kram --------------------------------}
CONST caHUFF : ARRAY [0..257] OF STRING[15] = (
'101010110010110' , '101010101000010' ,
'100111111100010' , '101010110011110' ,
'101010110001110' , '101010101111110' ,
'101010101110110' , '101010101101010' ,
'101010101011010' , '1111001101' ,
{10} '101010101010010' , '011111010110010' ,
{12} '101010101101110' , '1111010' ,
{14} '101010101001010' , '100111111111010' ,
{16} '100111111101010' , '011111010111010' ,
{18} '101010110100010' , '101010110011010' ,
{20} '101010110010010' , '101010110001010' ,
'101010110000010' , '101010101111010' ,
'101010101110010' , '10101011011000' ,
'101010110000110' , '101010101100110' ,
'101010101011110' , '101010101010110' ,
'101010101001110' , '101010101000110' ,
{32} '110' , '001110101' ,
'1010101111' , '00000000011' ,
'011111010100' , '10101011010111' ,
'000000000000' , '10101011010110' ,
'011111000' , '001111001' ,
'01111101000' , '000000000001' ,
'0001001' , '0111101' ,
'101110' , '0011001' ,
'0010001' , '11110110' ,
'00111101' , '100111100' ,
'101111011' , '011111001' ,
'000000001' , '101010100' ,
'101111010' , '100111110' ,
'00000011' , '1010101101111' ,
'1010101101101' , '001111000' ,
'001100000' , '00000000001' ,
{64} '011111010101' , '0011100' ,
{'B'}'0111100' , '1001110' ,
{'D'}'1111111' , '001001' ,
{'F'}'10111100' , '00000010' ,
{'H'}'00000001' , '11110001' ,
{'J'}'00000000010' , '00110001' ,
'11110010' , '0011010' ,
'0001110' , '0001111' ,
'1011111' , '10101011101' ,
'0011111' , '000101' ,
'0011011' , '111100111' ,
'111100001' , '00100000' ,
'11111100' , '1001111110' ,
'100111101' , '101010111001' ,
'001110111' , '101010111000' ,
'10101011010101' , '0011101001010' ,
{96} '10101011010100' , '10100' ,
{'b'}'000110' , '100110' ,
{'d'}'01110' , '010' ,
{'f'}'000001' , '101011' ,
{'h'}'111110' , '0110' ,
{'j'}'0011101000' , '11111101' ,
{'l'}'00101' , '101100' ,
{'n'}'1000' , '101101' ,
{'p'}'0001000' , '011111010010' ,
{'r'}'11100' , '10010' ,
{'t'}'11101' , '00001' ,
'11110111' , '1010100' ,
'011111011' , '1111001100' ,
'0111111' , '10101011010010' ,
'0011101001001' , '10101011010011' ,
'001110100110' , '100111111111110' ,
'100111111110110' , '00100001' ,
'100111111101110' , '100111111100110' ,
'111100000' , '011111010111110' ,
'011111010110110' , '00111010010000' ,
'101010110100000' , '101010110011100' ,
'101010110011000' , '101010110010100' ,
'101010110010000' , '101010110001100' ,
'1010101101110' , '101010110001000' ,
'101010110000100' , '101010110000000' ,
'101010101111100' , '101010101111000' ,
'001110110' , '101010101110100' ,
'101010101110000' , '101010101101100' ,
'101010101101000' , '10101011011001' ,
'011111010011' , '101010101100100' ,
'101010101100000' , '101010101011100' ,
'101010101011000' , '101010101010100' ,
'101010101010000' , '101010101001100' ,
'101010101001000' , '101010101000100' ,
'101010101000000' , '100111111111100' ,
'100111111111000' , '100111111110100' ,
'100111111110000' , '100111111101100' ,
'100111111101000' , '100111111100100' ,
'100111111100000' , '011111010111100' ,
'011111010111000' , '0011101001011' ,
'011111010110100' , '011111010110000' ,
'101010110100011' , '101010110100001' ,
'101010110011111' , '101010110011101' ,
'101010110011011' , '101010110011001' ,
'101010110010111' , '101010110010101' ,
'101010110010011' , '101010110010001' ,
'101010110001111' , '101010110001101' ,
'101010110001011' , '101010110001001' ,
'101010110000111' , '101010110000101' ,
'101010110000011' , '101010110000001' ,
'101010101111111' , '101010101111101' ,
'101010101111011' , '101010101111001' ,
'101010101110111' , '101010101110101' ,
'101010101110011' , '101010101110001' ,
'101010101101111' , '101010101101101' ,
'101010101101011' , '101010101101001' ,
'101010101100111' , '101010101100101' ,
'101010101100011' , '101010101100001' ,
'101010101011111' , '101010101011101' ,
'101010101011011' , '101010101011001' ,
'101010101010111' , '101010101010101' ,
'101010101010011' , '101010101010001' ,
'101010101001111' , '001110100111' ,
'101010101001101' , '101010101001011' ,
'101010101001001' , '001100001' ,
'101010101000111' , '101010101000101' ,
'101010101000011' , '101010101000001' ,
'100111111111111' , '100111111111101' ,
'100111111111011' , '100111111111001' ,
'100111111110111' , '100111111110101' ,
'100111111110011' , '100111111110001' ,
'100111111101111' , '100111111101101' ,
'100111111101011' , '100111111101001' ,
'100111111100111' , '100111111100101' ,
'100111111100011' , '100111111100001' ,
'011111010111111' , '011111010111101' ,
'011111010111011' , '011111010111001' ,
'011111010110111' , '011111010110101' ,
'011111010110011' , '011111010110001' ,
'001110100100011' , '001110100100010' ,
'101010101100010' , '100111111110010' );
0..255 sind die Ordinalwerte der verwendeten Buchstaben (also wohl nicht auf
eine bestimmte codepage festgelegt)
256 und 257 sind Token für irgendeinen Zweck, den ich vergessen habe :-)
Könnte ich zwar raussuchen, aber es hat ja eh keiner Interesse an Technik,
also was solls :->
Gruss,
Walter
Read previous mail | Read next mail
| |
