RosettaCodeData/Task/Reverse-a-string/Dc/reverse-a-string.dc

2 lines
103 B
Plaintext

22405534230753963835153736737 [ 256 ~ d SS 0<F LS SR 1+ ] d sF x 1 - [ 1 - d 0<F 256 * LR + ] d sF x P