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

YAPC::EU 2018 Glasgow Update!

Browse source
This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Binary-strings/REXX/binary-strings.rexx
View file

@ -3,16 +3,17 @@ dingsta= '11110101'b /*four versions, bit string ass
dingsta= "11110101"b /*this is the same assignment as above.*/
dingsta= '11110101'B /* " " " " " " " */
dingsta= '1111 0101'B /* " " " " " " */
dingsta2=dingsta /*clone one string to another (a copy).*/
dingsta2= dingsta /*clone one string to another (a copy).*/
other= '1001 0101 1111 0111'b /*another binary (or bit) string. */
if dingsta=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 || dingsta2 /*join two strings together (concat). */
if dingsta= 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= dingsta || dingsta2 /*join two strings together (concat). */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
c2b: return x2b( c2x( arg(1) ) ) /*return the string as a binary string.*/