Stack Exchange network consists of 183 Q&A communities including Stack Overflow, the largest, most trusted online community for developers to learn, share their knowledge, and build their careers.
Visit Stack Exchange
Stack Internal
Knowledge at work
Bring the best of human thought and AI automation together at your work.
Explore Stack Internal
ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
2:/8/{{[Im:bm 2:/ Split at index 2. Push head, then tail. 8/ Split into length-8 segments. { m Map block over each segment: { m Map block over each character: [ Copy first two elements (below) in-place. I Index of character in first two characters. :b Convert from binary. Implicit print as string. ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
2:/8/{{[Im:bm 2:/ Split at index 2. Push head, then tail. 8/ Split into length-8 segments. { m Map block over each segment: { m Map block over each character: [ Copy first two elements (below) in-place. I Index of character in first two characters. :b Convert from binary. Implicit print as string. ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
2:/8/{{[Im:bm 2:/ Split at index 2. Push head, then tail. 8/ Split into length-8 segments. { m Map block over each segment: { m Map block over each character: [ Copy first two elements (below) in-place. I Index of character in first two characters. :b Convert from binary. Implicit print as string. ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
2:/8/{{[Im:bm 2:/ Split at index 2. Push head, then tail. 8/ Split into length-8 segments. { m Map block over each segment: { m Map block over each character: [ Copy first two elements (below) in-place. I Index of character in first two characters. :b Convert from binary. Implicit print as string. ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
2:/8/{{[Im:bm 2:/ Split at index 2. Push head, then tail. 8/ Split into length-8 segments. { m Map block over each segment: { m Map block over each character: [ Copy first two elements (below) in-place. I Index of character in first two characters. :b Convert from binary. Implicit print as string. ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
2:/8/{{[Im:bm 2:/ Split at index 2. Push head, then tail. 8/ Split into length-8 segments. { m Map block over each segment: { m Map block over each character: [ Copy first two elements (below) in-place. I Index of character in first two characters. :b Convert from binary. Implicit print as string. îπ@b║`░≥g3)▼ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
chs{n=!m22:/8/{{[Im:bm ch 2:/ Copy input toSplit stackat andindex keep2. onlyPush thehead, firstthen charactertail. s 8/ Swap—input goes toSplit topinto oflength-8 stacksegments. { m { m Map block over array: n= Character equalseach first?segment: ! { m Map block over Logicaleach NOTcharacter: [ 2:/ Chop off theCopy first two characterselements (pretty muchbelow) 8/ Cut into segments of length 8in-place. I { m Map block over arrayIndex (of 8-bit arrays): character in first two characters. :b Convert from binary. Implicit print as string. îπ@b║`░≥g3)▼ Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
chs{n=!m2:/8/{:bm ch Copy input to stack and keep only the first character s Swap—input goes to top of stack { m Map block over array: n= Character equals first? ! Logical NOT 2:/ Chop off the first two characters (pretty much) 8/ Cut into segments of length 8 { m Map block over array (of 8-bit arrays): :b Convert from binary Implicit print as string ó║¥U⌂½íèäöñ Run and debug it at staxlang.xyz!
Quick 'n' dirty approach. Working on improving it. Improved it!
2:/8/{{[Im:bm 2:/ Split at index 2. Push head, then tail. 8/ Split into length-8 segments. { m Map block over each segment: { m Map block over each character: [ Copy first two elements (below) in-place. I Index of character in first two characters. :b Convert from binary. Implicit print as string.