Skip to main content
deleted 14 characters in body
Source Link
Shaggy
  • 43.5k
  • 4
  • 36
  • 94

Rockstar, 9595 81 bytes

listen to S
cut S
X's0Y's 1
Y's0O's ""
while S-X
let S atO Xbe+roll be*1+YS*Y
let Y be not Y
let-1 Xor be+1
2
join S
say SO

Try it here (Code will need to be pasted in)

Rockstar, 95 bytes

listen to S
cut S
X's0
Y's0
while S-X
let S at X be*1+Y
let Y be not Y
let X be+1

join S
say S

Try it here (Code will need to be pasted in)

Rockstar, 95 81 bytes

listen to S
cut S
Y's 1
O's ""
while S
let O be+roll S*Y
let Y be Y-1 or 2

say O

Try it here (Code will need to be pasted in)

Source Link
Shaggy
  • 43.5k
  • 4
  • 36
  • 94

Rockstar, 95 bytes

listen to S
cut S
X's0
Y's0
while S-X
let S at X be*1+Y
let Y be not Y
let X be+1

join S
say S

Try it here (Code will need to be pasted in)