aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Bitwise-IO/REXX/bitwise-io.rexx → Task/Bitwise-IO/REXX/bitwise-io-1.rexx
View file

15
Task/Bitwise-IO/REXX/bitwise-io-2.rexx Normal file
View file

@ -0,0 +1,15 @@
/*REXX pgm encodes/decodes/displays ASCII character strings as (7─bits) binary string.*/
parse arg $; if $=='' then $='STRING' /*get optional argument; Use default ? */
say ' input string=' $ /*display the input string to terminal.*/
out=comp($); say ' encoded string=' out /*encode─► 7─bit binary string; display*/
ori=dcomp(out); say ' decoded string=' ori /*decode─► 8─bit char " ; " */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
comp: parse arg x; z=; do j=1 for length(x) /*convert─►right-justified 7-bit binary*/
z=z || right( x2b( c2x( substr(x, j, 1) )), 7)
end /*j*/; return left(z,length(z)+(8-length(z)//8)//8,0)
/*──────────────────────────────────────────────────────────────────────────────────────*/
dcomp: parse arg x; z=; do k=1 by 7 to length(x); _=substr(x, k, 7)
if right(_, 1)==' ' then leave
z=z || x2c( b2x(0 || _) )
end /*k*/; return z