12
\$\begingroup\$

Challenge

Given a string input, output the demolished version of it.

The Process

P
r      Pr       r
o       o       o
g       g       g
r       r       r      rogr         r
a  ->   a  ->   a  ->     a  ->     a  ->           ->           ->           ->           ->  
m       m       m         m         m
m       m       m         m         m         mmar         m
i       i       i         i         i         i            i           mi           m
n       n       n         n        gn        gn           gn           gn           gni         mgni
g       g      Pg        Pg      roPg      roPg         roPgmar      roPgmar      roPgmar      roPgmar
  1. Place the string vertically.
  2. Select a random integer between 1 and (height of the column of characters) - 1 and a random direction (left or right).
  3. Rotate that number of characters in that direction (if those spaces are unoccupied go to step 4; if not, go back to step 2).
  4. Let those characters fall due to gravity.
  5. Repeat until the height of the column of characters is at most 1 larger than the height of the columns next to it (i.e. it becomes impossible to further demolish ("steps 2-4") the column).
  6. If there is another column of characters that is more than 1 character taller than one or more of its surrounding columns (i.e. demolish-able), repeatedly demolish that column until it is no longer demolish-able. If there are multiple demolish-able columns, completely demolish the tallest column (if there are multiple tallest columns, completely demolish the leftmost one).
  7. Repeat until all columns are no longer demolish-able.

If there are space characters in the input, demolish those first, all at once.

C
o

d      
e  ->     oC  ->         ->  ...
       de         
G        G          G
o        o          o
l        l          l
f        f        defoC

Rules

  • Standard loopholes are forbidden.
  • Trailing and leading newlines are allowed.
  • Your program may either print or return a string/equivalent.
  • The output must be non-deterministic (unless the input is not demolish-able).

This is , so the submissions with the smallest byte counts in their languages win!

\$\endgroup\$
6
  • 1
    \$\begingroup\$ I would doubt if random is really necessary here \$\endgroup\$
    – Keyu Gan
    Commented Oct 13, 2017 at 1:51
  • \$\begingroup\$ @KeyuGan I think the challenge would be fairly trivial if people had to select a fixed number of characters and alternated left/right. \$\endgroup\$ Commented Oct 13, 2017 at 2:22
  • 4
    \$\begingroup\$ We still can say that 4 is random and returned by a fair dice roll \$\endgroup\$ Commented Oct 13, 2017 at 4:02
  • \$\begingroup\$ @someone 4 would make the output deterministic, i.e. not "random." Edited the rules to make that explicit. \$\endgroup\$ Commented Oct 13, 2017 at 5:00
  • \$\begingroup\$ @someone are you referring at 4 because of XKCD? \$\endgroup\$ Commented Oct 13, 2017 at 10:03

1 Answer 1

5
\$\begingroup\$

Python 2, 622 595 573 552 542 534 527 520 515 bytes

from random import*
s=input()
r=range
R=choice
Z=len
L=h=Z(s)
a=[[]for _ in'  '*-~h]
S=s[::-1].split()
X=-1,1
for w in S[1:]:
 for i in r(Z(w)):a[h-~i*R(X)]+=w[i]
a[h]+=S[0]
while L:
 H=[map(Z,a[c-1:c+2])+[c]for c in r(1,h-~h)];D=L=[(min(n,m)-C,i)for n,C,m,i in H if~-C>min(n,m)]
 while D:
	_,c=min(L);n,C,m=map(Z,a[c-1:c+2]);D=X[n+2>C:1+(C-1>m)]
	if D:
	 d=R(D);l=R(r(1,C-[0,m,n][d]));w,a[c]=a[c][-l:],a[c][:-l]
	 for i in r(l):a[c-~i*d]+=w[i]
for l in zip(*[l+[' ']*max(H)[1]for l in a if l])[::-1]:print`l`[2::5]

Try it online!

\$\endgroup\$
7
  • \$\begingroup\$ 527 bytes \$\endgroup\$ Commented Oct 13, 2017 at 10:15
  • \$\begingroup\$ @EriktheOutgolfer Thanks :) \$\endgroup\$
    – TFeld
    Commented Oct 13, 2017 at 10:27
  • \$\begingroup\$ 520 bytes \$\endgroup\$
    – ovs
    Commented Oct 20, 2017 at 7:33
  • \$\begingroup\$ h+R(X)*-~i can be h-~i*R(X). \$\endgroup\$ Commented Oct 21, 2017 at 3:01
  • \$\begingroup\$ L=[...];D=L can be D=L=[...]. \$\endgroup\$ Commented Oct 21, 2017 at 3:08

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.