packed UTF 9 by yt(bit op)

with text_io;use text_io;procedure a is
s:string:=get_line;d,i,b:integer:=0;begin
for j in 1..10353 loop
d:=d+integer'value("16#"&s(j*3-2..j*3-1)&"#")*2**i;i:=i+8;if i>8 then
put(character'val(d mod 512));i:=i-9;d:=d/512;end if;end loop;end;

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page