Zawsze wzmacniający zygzak

24

Napisz program lub funkcję, która przyjmuje dodatnią liczbę całkowitą N i wysyła pierwsze N ​​liczb tego wzmacniającego zygzakowatego wzoru, używając tylko potrzebnych linii:

                                         26
                                       25  27                                      .
         10                          24      28                                  .
        9  11                      23          29                              .
 2     8     12                  22              30                          44
1 3   7        13              21                  31                      43
   4 6           14          20                      32                  42
    5              15      19                          33              41
                     16  18                              34          40
                       17                                  35      39
                                                             36  38
                                                               37

Więc jeśli N jest 1wynikiem, to

1

Jeśli N jest 2, wyjście jest

 2
1

Jeśli N jest 3wyjście, to

 2
1 3

Jeśli N to 4wyjście, to

 2
1 3
   4

Jeśli N to 10wyjście, to

         10
        9
 2     8
1 3   7
   4 6
    5

Jeśli N to 19wyjście, to

         10
        9  11
 2     8     12
1 3   7        13
   4 6           14
    5              15      19
                     16  18
                       17

i tak dalej.

Notatki

  • Każdy szczyt lub dolina zygzaka osiąga punkt o jedną linię dalej od linii z 1nim niż poprzedni szczyt lub dolina.

  • N nie jest ograniczony do 44. Zygzak rośnie w tym samym wzorze i należy wspierać większy N.

  • Liczby z wieloma cyframi powinny „dotykać” tylko w rogach, jak pokazano. Upewnij się, że działa to, gdy N jest 100większe.

  • Wyjście nie powinno zawierać pustych (lub tylko spacji) wierszy, z wyjątkiem jednej opcjonalnej końcowej linii nowej linii.

  • Każda linia może mieć dowolną liczbę końcowych spacji.

Punktacja

Najkrótszy kod w bajtach wygrywa. Tiebreaker to wcześniejsza odpowiedź.

Hobby Calvina
źródło
Jaka jest maksymalna możliwa N?
Julie Pelletier,
@JuliePelletier Teoretycznie nie ma, ale możesz założyć, że będzie mniej niż 2 ^ 16.
Calvin's Hobbies
Czy używanie znaków kontrolnych jest dozwolone, czy ograniczamy się do spacji cyfr i znaków?
Dennis
2
@Dennis Powiedzmy nie. Tylko cyfry / spacje / znaki nowej linii.
Calvin's Hobbies
1
Ktoś powinien przesłać to do OEIS w tym formacie jako żart.
DanTheMan

Odpowiedzi:

10

Galaretka , 41 37 29 bajtów

RDµḌ’½Ċ-*_\x©L€Ṣ.ị®ạ€⁶ẋj"FZj⁷

Wypróbuj online!

Jak to działa

RDµḌ’½Ċ-*_\x©L€Ṣ.ị®ạ€⁶ẋj"FZj⁷  Main link. Argument: n (integer)

R                              Range; yield [1, ..., n].
 D                             Decimal; yield A =: [[1], ..., [1, 0], ...].
  µ                            Begin a new, monadic chain. Argument: A
   Ḍ                           Undecimal; convert back to falt range.
    ’                          Decrement to yield [0, ..., n-1].
     ½Ċ                        Take the square root and round up (ceil).
       -*                      Elevate -1 to each rounded square root.
         _\                    Cumulatively reduce by subtraction.
                               This yields [1, 2, 1, 0, -1, 0, ...], i.e., the
                               vertical positions of the digits in A.
             L€                Compute the length of each list in A.
           x                   Repeat the nth position l times, where l is the
                               nth length.
            ©                  Copy the result to the register.
               Ṣ               Sort.
                .ị             At-index 0.5; yield the last and first element,
                               which correspond to the highest and lowest position.
                  ạ€®          Take the absolute difference of each position in the
                               register and the extrema.
                               This yields the number of spaces above and below
                               the integers in r as a list of pairs.
                     ⁶ẋ        Replace each difference with that many spaces.
                         F     Flatten the list A.
                       j"      Join the nth pair of strings of spacing, separating
                               by the nth digit in flat A.
                          Z    Zip/transpose the result.
                           j⁷  Join, separating by linefeeds.
Dennis
źródło
2
Dlaczego nie stworzyć funkcji w twoim języku (galaretki), która może to zrobić w kilku znakach, gdy jesteś przy tym?
Julie Pelletier
19
@JuliePelletier Sztuka pisania dobrego języka golfowego polega na opracowaniu zestawu instrukcji (i semantyki składni / języka), które pozwalają pisać krótkie rozwiązania dla jak największej liczby różnych zadań, a nie na temat rozwiązywania jednego bardzo konkretnego i wymyślone wyzwanie w jednym bajcie. Dobry język gry w golfa jest zwykle bardzo mocny i wyrazisty, w przeciwieństwie do bycia kolekcją wbudowanych elementów, które są bezużyteczne do niczego poza konkretną funkcją, którą obliczają.
Martin Ender
@JuliePelletier I byłoby to również sprzeczne z zasadami PPCG SE
Bálint
8

PHP, 211 177 164 163 bajtów

Przewiduj piki $ni dynamicznie zwiększaj tablicę w dowolnym kierunku, używając ($x, $y)kursora wyjściowego.

Liczby są wyrównane, str_pad()a ostatecznym wynikiem jest implode()tablica ciągów ( $g).

for($x=0,$d=-1,$h=$n=2,$y=$a=1;$a<=$argv[1];$y+=$d){$g[$y]=str_pad($g[$y],$x).$a;$x+=strlen($a);if($a++==$n){$h+=2;$n+=$h-1;$d*=-1;}}ksort($g);echo implode(~õ,$g);

Przetestuj online!

Aktualizacja: usunięto 34 bajty, pozbywając się niepotrzebnej array_pad (). Update2: poszedł za @ inserttusernametutaj porada, aby nieco go skrócić. Update3: postępował zgodnie z radą @ Lynn, aby zapisać jeszcze jeden bajt za pomocą ~ õ, który narzuca użycie zestawu znaków LATIN-1. (niedostępne w emulatorze PHP online, więc go nie uwzględniono)

Julie Pelletier
źródło
Tylko pytanie o ten kod. Nie musisz inicjować tablicy $ g, zanim uzyskasz dostęp do określonego elementu? Mam na myśli nadanie jej długości lub wstawienie wierszy? Nie mam dużego doświadczenia z PHP, więc wygląda mi to dziwnie ... Dzięki.
Yotam Salmon
Nie. Po zdefiniowaniu $arr = [];możesz się odwołać $arr[anything]. Niektóre przypadki generują powiadomienia, ale są one tutaj ignorowane. Pamiętaj, że czytanie takich rzeczy prawdopodobnie nie pomoże ci w nauce języka. Twój komentarz uświadomił mi, że mogę go skrócić, ponieważ początkowo myślałem, że muszę uzupełnić tablicę, ale nie robię tego. :)
Julie Pelletier
Haha cieszy się z pomocy;) Właśnie zdałem sobie sprawę, że w PHP tablica i słownik są inicjowane w ten sam sposób i są całkowicie takie same, gdy patrzymy na składnię (Dlaczego, PHP ?!)
Yotam Salmon
Kilka drobnych usprawnień - 164 bajty : for($x=0,$d=-1,$h=$n=2,$y=$a=1;$a<=$argv[1];$y+=$d){$g[$y]=str_pad($g[$y],$x).$a;$x+=strlen($a);if($a++==$n){$h+=2;$n+=$h-1;$d*=-1;}}ksort($g);echo implode("⏎",$g);(Zamień ⏎ na nowy
znak
Uważam, że jeśli poprawnie skonfigurujesz kodowanie (Latin-1, nie UTF-8), to dwubajtowa alternatywa dla "⏎".
Lynn
8

Pyth, 60 53 52 46 42 39 38 36 34 32 31 bajtów

39: Jest teraz na równi z naprawioną błędem wersją Galaretki , a ja wygrałem konkurencyjną wersję Dennisa!

38: Nie grałem w Dennisa!

36: Znów wygrałem Dennisa!

34: Jeszcze niższy niż jego wersja z naprawioną usterką!

31: 32 -> 31 dzięki Dennisowi.

[email protected] ++ *] * dl`hkabhSK`hk *] * dl`hkabeSKKd 
[email protected] *] * dl`hkhaeSKhSKabhSKhkKd 
J1K.u + N=J_WsI@Y2JtQZ=-RhSKKjsM.t.eX *] * dl`hkheSKbhkKd 
J1K.u+N=J_WsI@Y2JtQQj-#dsMC.eX *] * dl`hkheSKbhkK 
J1j- # dsMC.eXh *] * d` + Qbhkm = + Z = J_WsI @ td2J 
J1j- # dsMCmX *] *; l`hdyQ + Q = + Z = J_WsI @ td2Jhd 
J1j- # dsMCmX *] *; l'hdyQ + Q = + Z = J_WsI @ td2Jh 
J1j - # dsMCmX *] *; l`hdyQ + Q = + Z = @ _ BJsI @ td2h 
j- # dsMCmX *] *; l`hdyQ + Q = + Zsty% s @ td2 2h 
j- # dsMCmX *] *; l `hdyQ + Q = + Z @ _B1.E @ d2h 
JQj- # dsMCmX *] *; l`hdyQ = + J @ _B1.E @ d2h 
JyQj- # dsMCmX *] *; l`hdJ = + Q @ _B1. E @ d2h
 j- # dsMCmX *] *; l`hdyQ = + Q @ _B1.E @ d2h
j- # dsMCmX *] *; l`hdyQ=+Q^_1.E@d2h

Wypróbuj online!

Jak to działa

j-#dsMCmX*]*;l`hdyQ=+Q^_1.E@d2h      input: Q
j-#dsMCmX*]*;l`hdyQ=+Q^_1.E@d2hdQ    implicit filling arguments

       m                        Q    for each number d from 0 to Q-1:
                           @d2           yield the square root of d.
                         .E              yield its ceiling.
                      ^_1                raise -1 to that power. this
                                         yields the desired direction.
                   =+Q                   increment Q by this amount.

               hd                        yield d+1.
              `                          yield its string representation.
             l                           yield its length.
           *;                            repeat " " for that number of times
          ]                              yield a list containing the string above.
         *       yQ                      repeat the list for Q*2 times.
                                         the Q has changed, but Q*2 is
                                         an overshoot that is high
                                         enough, so we don't have to
                                         worry about it.

        X                                in that list, replace the
                                         element with index being the
                                         number generated above
                              hd         with d+1.

      C                              transpose the resulting array.
    sM                               flatten each element.
 -#d                                 remove lines containing only spaces.
                                     (filter on truthiness of set difference with space)
j                                    join by newlines.
Leaky Nun
źródło
2
39: na równi z galaretką ”; „ 38: Nie grałem w Dennisa! ” Przez kilka godzin to zrobiłeś, ale wygląda na to, że @Dennis nie lubi być bity w golfa: Jelly 37 bajtów ;)
Kevin Cruijssen
1
@KevinCruijssen Gotowe.
Leaky Nun
Miły! xD M̶a̶y̶b̶e̶ Mam szaloną wyobraźnię, ale teraz wyobrażam sobie, że przez wiele godzin patrzyłeś i patrzyłeś z frustracją, aż w końcu znalazłeś to krótsze rozwiązanie, a teraz @Dennis obudzi się i skróci swój kod ponownie. (Jk, mam nadzieję, że pozostaniesz poniżej Dennisa!)
Kevin Cruijssen
@KevinCruijssen Tada! Jest teraz niższy niż wersja z naprawioną usterką.
Leaky Nun
5

MATLAB, 148 bajtów

n=input('');k=fix(n^.5);m=0;w=1;d=-1;for l=1:n;s=num2str(l);m(k+1,w:w+nnz(s)-1)=s;w=w+nnz(s);k=k+d;d=d*(-1)^(l^.5==fix(l^.5));end;[m(any(m,2),:),'']

Zauważ, że brakuje spacji w Octave, ponieważ MATLAB drukuje znak zindeksowany 0jako spację, podczas gdy oktawa po prostu pomija ten znak.

Wyjaśnienie:

n=input('');
k=fix(n^.5);                    %caculate starting height
m=0;w=1;d=-1;                   %initialize counters and output matrix
for l=1:n;
    s=num2str(l);
    m(k+1,w:w+nnz(s)-1)=s;      %insert current index as a string
    w=w+nnz(s);                 %current horizontal position
    k=k+d;                      %current vertical position
    d=d*(-1)^(l^.5==fix(l^.5)); %if we reached a square number, change direction
end
[m(any(m,2),:),'']              %delete all zero rows
wada
źródło
3

Haskell, 144 142 bajty

g n|k<-take n$scanl(+)0$[1..]>>= \x->(-1)^x<$[2..2*x]=unlines[[1..n]>>= \x->show x#(k!!(x-1)==y)|y<-[minimum k..maximum k]]
s#g|g=s|1<2=' '<$s

Przykład użycia:

*Main> putStr $ g 19
         10                  
        9  11                
 2     8     12              
1 3   7        13            
   4 6           14          
    5              15      19
                     16  18  
                       17    

Jak to działa:

s#g|g=s|1<2=' '<$s              -- # is a helper function that expects a string s
                                -- and a boolean g. It returns s if g is True, else
                                -- as many spaces as there a characters in s 

k<-take n$                      -- bind k to the first n elements of
 [1..]>>= \x->(-1)^x<$[2..2*x]  -- 2*x-1 copies of (-1)^x for each x in [1,2,3,...]
                                -- i.e. [-1, 1,1,1, -1,-1,-1,-1,-1, 1,1,1,1,1,1,1..]
 scanl(+)0                      -- build partial sums, starting with 0
                                -- i.e. [0,-1,0,1,2,1,0,-1,-2,-3,-2,-1...]
                                -- -> k is the list of y coordinates for the
                                --    numbers 1,2,3,...

 [  |y<-[minimum k..maximum k]] -- for all y coordinates in k 
      \x->show x#(k!!(x-1)==y)  -- map the # function
  [1..n]>>=                     -- over [1..n] (the x coordinates)
                                -- where # is called with
                                --  s -> a string representation of x 
                                --  g -> True if k at index x equals the current y
unlines                         -- join with newlines

Edycja: Dzięki @Lynn za dwa bajty!

nimi
źródło
2

JavaScript (ES6), 213 bajtów

with(Math)n=>(a=[...Array(n)].map((_,i)=>n-=1+sqrt(--i)&1||-1).map((e,_,a)=>e-min(...a))).map((e,i)=>r[e][i]=++i,r=[...Array(1+max(...a))].map(_=>a.map((_,i)=>` `.repeat(1+log10(++i)))))&&r.map(a=>a.join``).join`\n`

Gdzie \nreprezentuje dosłowny znak nowej linii. Wyjaśnienie:

with(Math)                          Bring functions into scope
 n=>                                Accepts one parameter
  (a=                               Intermediate result variable
   [...Array(n)].map(               For each number 0..n-1
    (_,i)=>n-=                      Accumulate index for each number
     1+sqrt(--i)&1||-1              Calculate the direction
    ).map((e,_,a)=>e-min(...a))     Scale the smallest index to zero
  ).map((e,i)=>r[e][i]=++i,         Overwrite the padding with 1..n
   r=[...Array(1+max(...a))].map(   Calculate number of lines
    _=>a.map((_,i)=>                For each number 1..n
     ` `.repeat(1+log10(++i)))))    Calculate the padding needed
  &&r.map(a=>a.join``).join`\n`     Join everything together

Aby skrócić pow(-1,ceil(sqrt(i))), przepisuję go, ponieważ to sqrt(i-1)&1||-1jednak nie działa, i=0więc naprawiam dodawanie 1, ale to następnie odwraca znak wyniku i dlatego kończę n-=.

Neil
źródło
hej, masz złotą odznakę! dobra robota! i święte pali, że masz prawie tyle samo przedstawicieli, co ja. kontynuuj!
Conor O'Brien,
1
@ CᴏɴᴏʀO'Bʀɪᴇɴ To „tylko” odznaka fanatyczna. Najwyraźniej jestem bardzo blisko zdobycia złotej plakietki z kodem golfowym!
Neil,
podwójne święte dymy. Muszę się ruszyć XD
Conor O'Brien
1

Python 2, 137 bajtów

l={}
i=x=y=n=v=0
exec"v+=1;l[y]=l.get(y,'').ljust(x)+`v`;x+=len(`v`);i=-~i%-~n;y+=n%4-1;n+=2>>i*2;"*input()
for k in sorted(l):print l[k]

Wyświetl wynik na ideone .

Lynn
źródło
Hm ... To nie trwa i trwa i trwa i trwa.
Zizouz212
@ Zizouz212 Tak, ideone ma po prostu stałą moc wyjściową i automatycznie przerywa zbyt długie linie.
flawr