Coders selalu mencoba untuk meratakan array menjadi entitas 1-dimensi yang membosankan dan itu membuat saya sedih.

Tugas Anda adalah untuk menghapus serangkaian karakter yang berubah-ubah, menghasilkan skyscape kota yang indah.

Pertimbangkan string: aaabbbbbccqrrssstttttttPPw

Terlihat jauh lebih baik seperti ini:

            tt
            tt
  bb        tt
  bb        tt
aabb      sstt
aabbcc  rrssttPP
aabbccqqrrssttPPww

(Ok, ya, surat-surat itu digandakan agar terlihat lebih seperti kota-langit).

Ambil string input, duplikat setiap subbagian karakter yang cocok (tidak harus huruf alfabet) dan bangunkan saya kota!

Byte kode terpendek menang.

Saya benar-benar berpikir saya memiliki persyaratan dipaku, tetapi untuk menjawab beberapa pertanyaan:

• itu harus di tanah
• Anda dapat memiliki langit tambahan jika diinginkan (memimpin garis kosong, mengelilingi ruang kosong) - tetapi tidak di antara bangunan
• huruf dapat digunakan kembali di dalam string (arsitektur yang sama, lokasi berbeda)
• surat-surat itu dianggap ASCII, tetapi lebih banyak bakat akan diberikan kepada mereka yang mendukung penyandian tambahan (UTF8, dll)

05AB1E , 6 byte

γ€DζR»

Cobalah online!

Dalam versi yang lebih baru daripada tantangan, ζtelah ditambahkan sebagai pengganti.Bø

05AB1E , 8 byte

γ€D.BøR»

Penjelasan:

γ            Convert into a list of consecutive equal elements
 €D          Duplicate each element
   .B        Squarify; pad each element with spaces so that they are the length of the longest element
     ø       Transpose
      R      Reverse (otherwise the city would be upside-down)
       »     Join by newlines

Cobalah online!

CJam , 23 byte

qe`::*:__:,:e>f{Se[}zN*

Cobalah online!

Penjelasan:

qe`::*:__:,:e>f{Se[}zN* Accepts (multi-line?) input
q                       Take all input
 e`::*                  Split into groups of equal elements
      :_                Duplicate each
        _:,:e>          Push maximal length without popping
              f{Se[}    Left-pad each to that length with space strings (NOT space chars, although not a problem here)
                    z   Zip
                     N* Join with newlines

Jelly , 9 byte

Œgx'2z⁶ṚY

Cobalah online!

Penjelasan:

Œgx'2z⁶ṚY  Main Link
Œg         Group runs of equal elements
  x        Repeat
   '              the lists
    2                       twice without wrapping
     z⁶    Zip (transpose), filling in blanks with spaces
       Ṛ   Reverse the whole thing so it's upside-down
        Y  Join by newlines

Python 3 , 155 136 134 132 byte

-19 byte berkat @LeakyNun
-2 byte berkat @officialaimm
-1 byte berkat @Wondercricket

s=input()+'+'
k=' '*len(s)
a=[]
c=b=''
while s:
 while c in b:b+=c;c,*s=s
 a+=b+k,b+k;b=c
for r in[*zip(*a)][:0:-1]:print(*r,sep='')

Cobalah online!

Python 2 , 117 byte

import re
s=input()
for l in zip(*[x+S*len(s)for x,_ in re.findall(r'((.)\2*)',s)for S in'  '])[::-1]:print''.join(l)

Cobalah online!

Java 8, 412 400 330 324 312 319 byte

-6 byte terima kasih kepada VisualMelon
-12 byte terima kasih kepada Kevin Cruijssen
tetapi +19 byte karena saya lupa memasukkan impor dalam hitungan byte.

import java.util.*;x->{Map m=new HashMap(),n;int l=x.length(),i=l,v,y,h=0,d=1;char c,k;for(;i-->0;m.put(c,d=m.get(c)!=null?d+1:1),h=d>h?d:h)c=x.charAt(i);for(y=h;y>0;y--){n=new HashMap(m);for(i=0;i<l;i++)if(n.get(k=x.charAt(i))!=null){v=(int)m.get(k);System.out.print((y>v?"  ":k+""+k)+(i==l-1?"\n":""));n.remove(k);}}}

Cobalah online!

Japt , 19 18 15 13 12 byte

Termasuk spasi tambahan di setiap baris.

ò¦
íU c ·z w

Menguji

Penjelasan

         :Implicit input of string U
ò        :Split U to an array by ...
¦        :   checking for inequality between characters.
í        :Pair each item in U with...
U        :   The corresponding item in U (i.e, duplicate each string)
c        :Flatten the array (í creates an array of arrays).
·        :Join to a string with newlines.
z        :Rotate 90 degrees.
w        :Reverse.
         :Implicit output of resulting string.

Mathematica, 150 byte

(z=Characters[v=#];f=CharacterCounts[v][#]&/@(d=Union@z);Row[Column/@Map[PadLeft[#,Max@f,""]&,Table[Table[d[[i]]<>d[[i]],f[[i]]],{i,Length@d}],{1}]])&

R , 135 byte

e=rle(sub('(.)','\\1\\1',strsplit(scan(,''),'')[[1]]));write(sapply(sum(e$l|1):1,function(x)ifelse(e$l>=x,e$v,'  ')),'',sum(e$l|1),,'')

Cobalah online!

membaca dari stdin, menulis ke stdout (dengan trailing newline).

Penjelasan:

• rle menemukan panjang garis-garis karakter, ketinggian masing-masing menara.
• yang subekspresi menggantikan masing-masing karakter dengan yang ganda (jadi saya tidak perlu bergelandangan dengan pengaturan indeks yang berdekatan bersama-sama)
• sapply mengembalikan array (dalam hal ini sebuah matriks):
  • sum(e$l|1)adalah jumlah karakter yang berbeda; kita pergi dari atas ke bawah
  • ifelse( ... )adalah vektor yang if...elsememungkinkan kita untuk membangun matriks menara dan ruang ganda
  • write menulis ke konsol, dengan beberapa opsi untuk memformat.

Pyth , 13 byte

j_.tsC*2]*Mr8

Cobalah online!

PHP , 138 byte

for(;~$s=&$argn;$s=substr($s,$r++%2*$i))for($i=0;$i<strspn($s,$c=$s[0]);$f[$i++][$r]=$c)a&$f[$i]?:$f[$i]=" ";krsort($f);echo join("
",$f);

Cobalah online!

MATL , 15 byte

'(.)\1*'XXtvc!P

Cobalah online!

Penjelasan

'(.)\1*' % Push string to be used as regexp pattern
XX       % Implicit input. Regexp matching. Pushes row cell array of matching substrings
t        % Duplicate
v        % Concatenate vertically
c        % Convert to char. This reads cells in column-major order (down, then across)
         % and produces a 2D char array, right-padding with spaces
!        % Transpose
P        % Flip vertically. Implicitly display

Arang , 40 byte:

Ａ⟦⟦ω⟧⟧λＦθ¿⁼ι§§λ±¹¦⁰⊞§λ±¹ι⊞λ⟦ι⟧ＦλＦ²↑⁺⪫ιω¶

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Saya awalnya mencoba loop sederhana pada string input untuk mencetak lonjong setiap kali surat itu berubah, tapi saya beralih ke metode pembuatan daftar ini karena menghemat 5 byte. Penjelasan: Variabel lberisi daftar bersarang dari huruf input. Karakter yang cocok dengan elemen daftar terakhir saat ini didorong ke daftar terakhir jika tidak, sublist baru dibuat untuk karakter tersebut. Kemudian tetap bergabung dengan huruf-huruf di setiap sublist sehingga mereka dapat dicetak dua kali secara vertikal.

C, 259 231 Bytes

Kode Golf

#define v a[1][i
i,k,l,x,h,w;main(char*s,char**a){for(;v];w+=2*!x,s=v++],h=x>h?x:h)x=(s==v])*(x+1);h++;s=malloc((x=h++*++w+1)+w);memset(s,32,h*w);for(i=k;v];s[x+1]=s[x]=k=v++],x=k==v]?x-w:(h-1)*w+l++*2+3)s[i*w]=10;printf("%s",s);}

Kode Verbose

//Variable Explanations:
//i - increment through argument string, must beinitialized to 0
//k - increment through argument string, must be initialized to 0
//l - record x coordinate in return value, must be initialized to 0
//x - record the actual character position within the return string
//arrheight - the height of the return string
//arrwidth - the width of the return string
//arr - the return string
//argv - the string containing the arguments
#define v argv[1][i

i,k,l,x,arrheight,arrwidth;

main(char*arr,char**argv){
  for(;v];                                 //For Length of input
    arrwidth+=2*!x,                        //increment width by 2 if this char is not the same as the last
    arr=v++],                              //set arr to current char
    arrheight=x>arrheight?x:arrheight      //see if x is greater than the largest recorded height
  )x=(arr==v])*(x+1);                     //if this character is the same as the last, increment x (using arr to store previous char)
  arrheight++;                             //increment height by one since its 0 indexed
  arr=malloc((x=arrheight++*++arrwidth+1)+arrwidth); //create a flattened array widthxheight and set x to be the bottom left position
  memset(arr,32,arrheight*arrwidth);       //fill array with spaces
  for(i=k;v];                              //For Length of input
    arr[x+1]=arr[x]=k=v++],                //set x and x+1 positions to the current character, store current character in i
    x=k==v]?x-arrwidth:(arrheight-1)*arrwidth+l++*2+3 //if next char is same as current move vertically, else set x to bottom of next column
  )arr[i*arrwidth]=10;                     //Add new lines to string at end of width

  printf("%s",arr);                        //output string

}

Disusun dengan GCC, tidak ada Bendera khusus

Edit

Disimpan 28 byte berkat adelphus. Perubahannya memungkinkan saya untuk membuat definisi. Dan saya membuat loop sementara untuk loop untuk menyimpan masing-masing 2 byte dengan mengatur ulang loop. Saya juga memperbaiki masalah di mana kode akan terputus ketika karakter terakhir dalam input tidak tunggal. Kode akan gagal jika hanya ada satu huruf unik tetapi harus berfungsi dalam semua kasus lainnya.

Pip, 22 bytes

21 bytes of code, +1 for -l flag.

Ya@`(.)\1*`RV:yWVyZDs

Try it online!

Explanation

                       a is 1st cmdline arg; s is space (implicit)
 a@`(.)\1*`            Using regex, create list of runs of same character in a
Y                      Yank that into y variable
              yWVy     Weave (interleave) y with itself to duplicate each item
                  ZDs  Zip to transpose, with a default character of space filling gaps
           RV:         Reverse the resulting list (with the compute-and-assign
                        meta-operator : being abused to lower the precedence)
                       Auto-print, one sublist per line (implicit, -l flag)

QuadS, 15 + 1 = 16 bytes

+1 byte for the 1 flag.

⊖⍵
(.)\1*
2/⍪⍵M

Try it online!

⊖⍵ post-process by flipping upside down

(.)\1* runs of identical characters

2/⍪⍵M duplicate the columnified Match

The 1 flag causes the results to be merged together.

Haskell, 144 bytes

f s=let x=groupBy(==)s;l=length;m=maximum(map l x)in concatMap(++"\n")$reverse$transpose$concat[[z,z]|z<-(map(\y->y++(replicate(m-(l y))' '))x)]

I'm pretty confident I can do better than this, but this is the best I can come up with for the time being.

Stacked, 42 bytes

[rle toarr[...*chars]map FIX 2*tr rev out]

Try it online!

Ruby, 116 bytes

->s{a=s.scan(/(.)(\1*)/).map{|x,y|[x,y.size+1]}.to_h
m=a.values.max
m.times{|i|puts a.map{|k,v|v+i<m ?'  ':k*2}*''}}

Try it online!

APL (Dyalog), 37 bytes

{⊃,/⍵↑⍨¨-⌈/≢¨⍵}'(.)\1*'⎕S{2/⍪⍵.Match}

Try it online!

q/kdb+, 53 bytes

Solution:

{(|)(+)(,/)(max(#:)each c)$(+)2#(,)c:((&)differ x)_x}

Example:

 q){(|)(+)(,/)(max(#:)each c)$(+)2#(,)c:((&)differ x)_x}"BBPPPPxxGGGGKKKKKKKkkkkEEeeEEEeeEEEEEOOO8####xxXXX"
 "        KK                      "
 "        KK                      "
 "        KK          EE          "
 "  PP  GGKKkk        EE    ##    "
 "  PP  GGKKkk    EE  EEOO  ##  XX"
 "BBPPxxGGKKkkEEeeEEeeEEOO  ##xxXX"
 "BBPPxxGGKKkkEEeeEEeeEEOO88##xxXX"

Explanation:

{reverse flip raze (max count each c)$flip 2#enlist c:(where differ x)_x} / ungolfed function
{                                                                       } / lambda function
                                                      (where differ x)    / indices where x differs
                                                                      _   / cut at these points aabbbc -> "aa","bbb","c"
                                                    c:                    / save in variable c
                                             enlist                       / put this list in another list
                                           2#                             / take two from this list (duplicate)
                                      flip                                / rotate columns/rows
                   (max count each c)                                     / find the longest run of characters
                                     $                                    / whitespace pad lists to this length
              raze                                                        / reduce down lists
         flip                                                             / rotate columns/rows
 reverse                                                                  / invert so buildings are on the ground

Perl 5, 92 + 1 (-p) = 93 bytes

while(s/(.)\1*//){$a[$_].=($"x($i-length$a[$_])).$1x2for 1..length$&;$i+=2}say while$_=pop@a

Try it online!