Koderzy zawsze starają się spłaszczyć tablice w nudne jednowymiarowe byty i to mnie zasmuca.

Twoim zadaniem jest rozpłaszczenie dowolnego ciągu znaków, tworząc piękny miejski krajobraz.

Rozważ ciąg: aaabbbbbccqrrssstttttttPPw

Wygląda znacznie lepiej:

            tt
            tt
  bb        tt
  bb        tt
aabb      sstt
aabbcc  rrssttPP
aabbccqqrrssttPPww

(Ok, tak, litery są duplikowane, aby wyglądały bardziej na panoramę miasta).

Weź ciąg wejściowy, powiel każdą podsekcję pasujących znaków (niekoniecznie liter alfabetu) i zbuduj mi miasto!

Najkrótszy bajt kodu wygrywa.

Myślałem, że mam określone wymagania, ale muszę odpowiedzieć na kilka pytań:

• musi leżeć na ziemi
• możesz mieć dodatkowe niebo, jeśli chcesz (wiodące puste linie, otaczające puste miejsce) - ale nie między budynkami
• litery mogą być ponownie użyte w ciągu (ta sama architektura, inna lokalizacja)
• zakłada się, że litery są ASCII, ale bardziej sprytne zostaną te, które obsługują dodatkowe kodowanie (UTF8 itp.)

05AB1E , 6 bajtów

γ€DζR»

Wypróbuj online!

W wersji nowszej niż wyzwanie ζdodano jako zamiennik fo.Bø

05AB1E , 8 bajtów

γ€D.BøR»

Wyjaśnienie:

γ            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

Wypróbuj online!

CJam , 23 bajty

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

Wypróbuj online!

Wyjaśnienie:

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

Galaretka , 9 bajtów

Œgx'2z⁶ṚY

Wypróbuj online!

Wyjaśnienie:

Œ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 bajtów

-19 bajtów dzięki @LeakyNun
-2 bajtów dzięki @officialaimm
-1 bajtów dzięki @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='')

Wypróbuj online!

Python 2 , 117 bajtów

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)

Wypróbuj online!

Java 8, 412 400 330 324 312 319 bajtów

-6 bajtów dzięki VisualMelon
-12 bajtów dzięki Kevin Cruijssen,
ale +19 bajtów, ponieważ zapomniałem uwzględnić import w liczbie bajtów.

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

Wypróbuj online!

Japt , 19 18 15 13 12 bajtów

Zawiera końcowe spacje w każdej linii.

ò¦
íU c ·z w

Sprawdź to

Wyjaśnienie

         :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 bajtów

(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 bajtów

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),,'')

Wypróbuj online!

czyta ze standardowego wejścia, zapisuje na standardowe wyjście (ze znakiem nowej linii).

Wyjaśnienie:

• rle znajduje długość pasm postaci, wysokość każdej wieży.
• subwyrażenie zastępuje każdy znak z jego double (więc nie trzeba syf o ustawienie sąsiadujące ze sobą indeksów)
• sapply zwraca tablicę (w tym przypadku macierz):
  • sum(e$l|1)to liczba różnych znaków; idziemy od góry do dołu
  • ifelse( ... ) jest wektoryzacją if...else pozwalającą nam zbudować matrycę wież i podwójnych przestrzeni
  • write zapisuje na konsoli, z kilkoma opcjami formatowania.

Pyth , 13 bajtów

j_.tsC*2]*Mr8

Wypróbuj online!

PHP , 138 bajtów

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

Wypróbuj online!

MATL , 15 bajtów

'(.)\1*'XXtvc!P

Wypróbuj online!

Wyjaśnienie

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

Węgiel drzewny , 40 bajtów:

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

Wypróbuj online! Link jest do pełnej wersji kodu. Początkowo próbowałem prostej pętli nad ciągiem wejściowym, aby drukować podłużne za każdym razem, gdy zmieniała się litera, ale przełączyłem się na tę metodę budowania listy, ponieważ oszczędzała 5 bajtów. Objaśnienie: Zmienna lzawiera zagnieżdżoną listę liter wejściowych. Znaki pasujące do aktualnych ostatnich elementów listy są wypychane na ostatnią listę, w przeciwnym razie dla tej postaci tworzona jest nowa lista podrzędna. Następnie pozostaje połączyć litery w każdej podlistie, aby można je było dwukrotnie wydrukować pionowo.

C, 259 231 bajtów

Kod do gry w golfa

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

Pełny kod

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

}

Kompilowany z GCC, bez specjalnych flag

Edytować

Zaoszczędzono 28 bajtów dzięki Adelphusowi. Jego zmiana pozwoliła mi stworzyć definicję. I utworzyłem pętle while w pętlach for, aby zaoszczędzić 2 bajty, zmieniając układ pętli. Rozwiązałem również problem polegający na tym, że kod pękał, gdy ostatni wprowadzony znak nie był singletonem. Kod zawiedzie, jeśli jest tylko jedna unikalna litera, ale powinien działać we wszystkich innych przypadkach.

Pypeć , 22 bajty

21 bajtów kodu, +1 dla -lflagi.

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

Wypróbuj online!

Wyjaśnienie

                       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 bajtów

+1 bajt dla 1flagi.

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

Wypróbuj online!

⊖⍵ post-proces przez odwrócenie do góry nogami

(.)\1* przebiegi identycznych znaków

2/⍪⍵M zduplikowane columnified M atch

1Flaga powoduje, że wyniki mają być połączone ze sobą.

Haskell, 144 bajty

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

Jestem przekonany, że mogę to zrobić lepiej, ale na razie to najlepsze, co mogę wymyślić.

Ułożone , 42 bajty

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

Wypróbuj online!

Rubin , 116 bajtów

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

Wypróbuj online!

APL (Dyalog) , 37 bajtów

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

Wypróbuj online!

q / kdb +, 53 bajty

Rozwiązanie:

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

Przykład:

 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"

Wyjaśnienie:

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

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

Wypróbuj online!