Rosetta Code

Binary strings: Difference between revisions

Page Discussion

Binary strings (view source)

Revision as of 22:37, 14 August 2018

1 byte added ,  5 years ago
m
→‎{{header|REXX}}: added whitespace, corrected a variable name.
m (→‎{{header|REXX}}: added whitespace, corrected a variable name.)
Line 2,725:
dingsta= '11110101'B /* " " " " " " " */
dingsta= '1111 0101'B /* " " " " " " */
 
dingsta2=dingsta dingsta /*clone one string to another (a copy).*/
other= '1001 0101 1111 0111'b /*another binary (or bit) string. */
if dingsta=other other then say 'they are equal' /*compare the two (binary) strings. */
if other== '' then say '"OTHER is empty.'" /*see if the OTHER string is empty.*/
otherA= other || '$' /*append a dollar sign ($) to OTHER. */
otherB= other'$' /*same as above, but with less fuss. */
guts= substr(c2b(other), 10, 3) /*obtain the 10th through 12th bits.*/
new= changeStr('A' , other, "Z") /*change the upper letter A ──► Z. */
tt= changeStr('~~', other, ";") /*change two tildes ──► one semicolon.*/
joined=dignsta dingsta || dingsta2 /*join two strings together (concat). */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/106964"