Các lập trình viên luôn cố gắng san phẳng các mảng thành các thực thể 1 chiều nhàm chán và điều đó làm tôi buồn.

Nhiệm vụ của bạn là hủy kết nối một chuỗi ký tự tùy ý, xuất ra một tòa nhà chọc trời thành phố đáng yêu.

Hãy xem xét chuỗi: aaabbbbbccqrrssstttttttPPw

Nó trông tốt hơn nhiều như thế này:

            tt
            tt
  bb        tt
  bb        tt
aabb      sstt
aabbcc  rrssttPP
aabbccqqrrssttPPww

(Ok, vâng, các chữ cái được nhân đôi để làm cho nó trông giống thành phố hơn - đường chân trời).

Lấy một chuỗi đầu vào, nhân đôi từng phần của các ký tự trùng khớp (không nhất thiết phải là chữ cái) và xây dựng cho tôi một thành phố!

Mã byte ngắn nhất giành chiến thắng.

Tôi thực sự nghĩ rằng tôi có các yêu cầu đóng đinh, nhưng để trả lời một số câu hỏi:

• nó phải ở trên mặt đất
• bạn có thể có thêm bầu trời nếu bạn muốn (dẫn các dòng trống, khoảng trống xung quanh) - nhưng không phải giữa các tòa nhà
• các chữ cái có thể được sử dụng lại bên trong chuỗi (cùng kiến ​​trúc, vị trí khác nhau)
• các chữ cái được coi là ASCII, nhưng sẽ có nhiều sự tinh tế hơn cho những người hỗ trợ mã hóa bổ sung (UTF8, v.v.)

05AB1E , 6 byte

γ€DζR»

Hãy thử trực tuyến!

Trong phiên bản mới hơn thử thách, ζđã được thêm vào để thay thế.Bø

05AB1E , 8 byte

γ€D.BøR»

Giải trình:

γ            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

Hãy thử trực tuyến!

CJam , 23 byte

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

Hãy thử trực tuyến!

Giải trình:

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

Thạch , 9 byte

Œgx'2z⁶ṚY

Hãy thử trực tuyến!

Giải trình:

Œ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 nhờ @LeakyNun
-2 byte nhờ @officialaimm
-1 byte nhờ @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='')

Hãy thử trực tuyến!

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)

Hãy thử trực tuyến!

Java 8, 412 400 330 324 312 319 byte

-6 byte nhờ VisualMelon
-12 byte nhờ Kevin Cruijssen
nhưng +19 byte vì tôi quên bao gồm các nhập khẩu trong số 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);}}}

Hãy thử trực tuyến!

Japt , 19 18 15 13 12 byte

Bao gồm các dấu cách trên mỗi dòng.

ò¦
íU c ·z w

Kiểm tra nó

Giải trình

         :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.

Toán học, 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),,'')

Hãy thử trực tuyến!

đọc từ stdin, ghi vào stdout (với một dòng mới).

Giải trình:

• rle tìm thấy chiều dài của các vệt ký tự, độ cao của mỗi tháp.
• các subbiểu hiện thay thế mỗi nhân vật với đôi của nó (vì vậy tôi không cần phải muck về với thiết chỉ số liền kề nhau)
• sapply trả về một mảng (trong trường hợp này là ma trận):
  • sum(e$l|1)là số lượng ký tự riêng biệt; chúng tôi đi từ trên xuống dưới
  • ifelse( ... )là một vector hóa if...elsecho phép chúng ta xây dựng một ma trận tháp và không gian đôi
  • write ghi vào bàn điều khiển, với một vài tùy chọn để định dạng.

Bình thường , 13 byte

j_.tsC*2]*Mr8

Hãy thử trực tuyến!

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);

Hãy thử trực tuyến!

MATL , 15 byte

'(.)\1*'XXtvc!P

Hãy thử trực tuyến!

Giải trình

'(.)\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

Than , 40 byte:

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Ban đầu tôi đã thử một vòng lặp đơn giản trên chuỗi đầu vào để in một hình chữ nhật mỗi khi chữ thay đổi, nhưng tôi đã chuyển sang phương pháp xây dựng danh sách này vì nó đã lưu 5 byte. Giải thích: Biến lchứa danh sách lồng các chữ cái đầu vào. Các ký tự khớp với các thành phần danh sách cuối cùng hiện tại được đẩy vào danh sách cuối nếu không một danh sách con mới được tạo cho ký tự đó. Sau đó, vẫn còn để nối các chữ cái trong mỗi danh sách con để chúng có thể được in theo chiều dọc hai lần.

C, 259 231 byte

Mã đánh gôn

#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);}

Mã dài dòng

//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

}

Được biên dịch với GCC, không có Cờ đặc biệt

Chỉnh sửa

Đã lưu 28 byte nhờ adelphus. Sự thay đổi của anh ấy cho phép tôi tạo ra một định nghĩa. Và tôi đã tạo các vòng lặp while thành các vòng lặp để tiết kiệm 2 byte mỗi vòng bằng cách sắp xếp lại vòng lặp. Tôi cũng đã sửa một vấn đề trong đó mã sẽ bị hỏng khi ký tự cuối cùng trong đầu vào không phải là đơn lẻ. Mã sẽ thất bại nếu chỉ có một chữ cái duy nhất nhưng sẽ hoạt động trong tất cả các trường hợp khác.

Pip , 22 byte

21 byte mã, +1 cho -lcờ.

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

Hãy thử trực tuyến!

Giải trình

                       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 byte

+1 byte cho 1cờ.

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

Hãy thử trực tuyến!

⊖⍵ hậu xử lý bằng cách lật ngược

(.)\1* chạy các nhân vật giống hệt nhau

2/⍪⍵M nhân đôi M atch cột

Các 1lá cờ gây ra kết quả phải được sáp nhập với nhau.

Haskell, 144 byte

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)]

Tôi khá tự tin Tôi có thể làm tốt hơn thế này, nhưng đây là điều tốt nhất tôi có thể nghĩ ra trong thời điểm hiện tại.

Xếp chồng lên nhau , 42 byte

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

Hãy thử trực tuyến!

Ruby , 116 byte

->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}*''}}

Hãy thử trực tuyến!

APL (Dyalog) , 37 byte

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

Hãy thử trực tuyến!

q / kdb +, 53 byte

Dung dịch:

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

Thí dụ:

 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"

Giải trình:

{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 byte

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

Hãy thử trực tuyến!