Przeplataj liczby od 1 do n, odwracając te same liczby

34

Prosty:

Weź dodatnią liczbę całkowitą n mniejszą niż 1000 i wyślij liczby całkowite od 1 do n przeplecione liczbami całkowitymi od n do 1 . Musisz połączyć liczby tak, aby pojawiały się bez żadnych separatorów między nimi.

Przypadki testowe:

n = 1
11

n = 4
14233241

n = 26
12622532442352262172081991810171116121513141413151216111710189198207216225234243252261

n = 100
110029939849759669579489399210911190128913881487158616851784188319822081218022792378247725762675277428732972307131703269336834673566366537643863396240614160425943584457455646554754485349525051515052495348544755465645574458435942604161406239633864376536663567346833693270317130722973287427752676257724782379228021812082198318841785168615871488138912901191109299389479569659749839921001

To jest więc wygrywa najkrótsze przesłanie w bajtach w każdym języku. Wyjaśnienia są zachęcane.

Stewie Griffin
źródło

Odpowiedzi:

16

JavaScript (ES6), 30 bajtów

f=(n,k=1)=>n?f(n-1,k+1)+n+k:''

W jaki sposób?

Jest to dość proste, ale warto zauważyć, że sznurek jest zbudowany od ogona do głowy. Pusty ciąg na początku jest dołączany jako ostatni i pozwala na przymus końcowy wynik na łańcuch.

Poniżej znajduje się szczegół rekursji dla f(4):

f(4) =                                            // initial call
f(4, 1) =                                         // applying the default value to k
f(3, 2) + 4 + 1 =                                 // recursive call #1
(f(2, 3) + 3 + 2) + 4 + 1 =                       // recursive call #2
((f(1, 4) + 2 + 3) + 3 + 2) + 4 + 1 =             // recursive call #3
(((f(0, 5) + 1 + 4) + 2 + 3) + 3 + 2) + 4 + 1 =   // recursive call #4
((('' + 1 + 4) + 2 + 3) + 3 + 2) + 4 + 1 =        // n = 0 --> end of recursion
'' + 1 + 4 + 2 + 3 + 3 + 2 + 4 + 1 =              // final sum
'14233241'                                        // final result

Przypadki testowe

Arnauld
źródło
10

Python 2 , 46 bajtów

lambda n:''.join(`x+1`+`n-x`for x in range(n))

Dzięki ovs za 4 bajty

Wypróbuj online!

Wyjaśnienie:

lambda n:''.join(`x+1`+`n-x`for x in range(n))
lambda n:                                      # anonymous lambda taking one parameter n
                 `x+1`+`n-x`                   # `x` is repr(x) which is equivalent to str(x) for integers less than INT_MAX
                            for x in range(n)  # integers x in [0, n)
Mego
źródło
1
Dwa bajty więcej w Pythonie 3:f'{x}{n-~-x}'
L3viathan
2
@ L3viathan To nowa funkcja dodana w wersji 3.6.
Mego
1
Python 3.6 to nie Python 3?
L3viathan
6
lambda n:''.join('x+1'+'n-x'for x in range(n))dla 46 bajtów. (zamień 'listę ze zrozumieniem na backticks)
ovs
6
@ovs hej, możesz uciec od backtick -> `\`x+1\``renderuje do`x+1`
Rod
8

-5 dzięki Ørjan Johansen

Haskell , 33 bajty

f n=do a<-[1..n];[a,n-a+1]>>=show

Wypróbuj online!

bartavelle
źródło
3
(1) doWyrażenie jest krótsze niż >>=plus lambda. (2) showMożna jednak łączyć za pomocą >>=show.
Ørjan Johansen
7

Bash , 25 bajtów

printf %s`seq $1 -1 1|nl`

Wypróbuj online!

Wyświetla malejącą sekwencję, zwiększa liczbę linii i printf łączy linie

Rozdzielane spacją, 20 bajtów: seq 1 -1 1 1 | nl | xargs

marcosm
źródło
jeśli nie jest to do przyjęcia, mogę to zmienić o seq $1 -1 1|nl|tr -d ' \n\t'8 bajtów więcej
marcosm
1
Przesłanie 20 bajtów jest nieprawidłowe. Moje głosowanie dotyczy przesłania 25 bajtów.
Cyfrowa trauma
Jak zauważył Digital Trauma, 20-bajtowe rozwiązanie jest nieprawidłowe.
Erik the Outgolfer
time printf %s'seq 1000000 -1 1|nl'; grep name /proc/cpuinfo real 0m7.985s user 0m6.092s sys 0m0.392s model name : Intel(R) Pentium(R) D CPU 3.00GHz model name : Intel(R) Pentium(R) D CPU 3.00GHz
marcosm
7

R, 35 bajtów

n=scan();cat(rbind(1:n,n:1),sep="")

Wypróbuj online

rbind(1:n,n:1)tworzy macierz 2-rzędową z 1 do n w pierwszym rzędzie i n do 1 w drugim. catFunkcja zwija tej matrycy, czytając w dół każdej kolumny.

użytkownik2390246
źródło
1
Zauważ, że działa to tylko w trybie interaktywnym i wymaga od użytkownika wprowadzenia nw wierszu poleceń (zamiast przejścia przez standardowe wejście ).
shadowtalker
@ssdecontrol Tak, myślę, że to zwykle dozwolone, ale jestem tu dość nowy, może się mylić.
user2390246
Myślę, że jest to ogólnie akceptowalne, ale NB, aby poprawnie uruchomić go w TIO, musisz wpisać dane wejściowe w polu Stopka (i zawsze dobrze jest dołączyć link!) Tio.run/nexus/…
Giuseppe
6

05AB1E , 6 5 bajtów

Zapisano bajt przy użyciu nowego wbudowanego przeplotu, jak sugeruje rev

LÂ.ιJ

Wypróbuj online!

Wyjaśnienie

L        # range [1 ... input]
 Â       # create a reversed copy
  .ι     # interleave the lists
    J    # join
Emigna
źródło
Sugerowany użytkownik o nazwie revLÂ.ιJ .
Jonathan Frech
@JathanathanFrech: Wiem teraz, że możemy teraz korzystać z funkcji nowszych niż wyzwanie, ale zwykle waham się edytować stare odpowiedzi, ponieważ nowe wbudowanie lepiej wypełnia wyzwanie. Istnieje tak wiele odpowiedzi, które można w ten sposób poprawić :)
Emigna
Cóż, byłem tylko posłańcem; możliwy @rev powinien opublikować własną odpowiedź.
Jonathan Frech,
@JathanathanFrech: Nie miałem tego na myśli. Rev zrobił to poprawnie, gdy zasugerował edycję, ponieważ lepiej jest edytować istniejącą odpowiedź niż opublikować nową, ilekroć jest wbudowana nowa wersja. Naprawdę powinienem być lepszy w ustalaniu starych odpowiedzi, przynajmniej kiedy pojawiają się sugestie.
Emigna
4

CJam , 10 bajtów

ri,:)_W%]z

Wypróbuj online!

Wyjaśnienie

ri   e# Read input and convert to integer N.
,    e# Turn into range [0 1 ... N-1].
:)   e# Increment to get [1 2 ... N].
_W%  e# Duplicate and reverse the copy.
]    e# Wrap both in an array to get [[1 2 ... N] [N ... 2 1]]
z    e# Transpose to get [[1 N] [2 N-1] ... [N-1 2] [N 1]]
     e# This list is printed implicitly at the end of the program,
     e# but without any of the array structure (so it's essentially flattened,
     e# each number is converted to a string and then all the strings
     e# are joined together and printed).
Martin Ender
źródło
4

Ruby , 29 bajtów

->n{n.times{|x|$><<x+1<<n-x}}

Wyjaśnienie:

->n{n.times{|x|                # x in range [0..n-1]
               $><<            # output on console
                   x+1<<n-x}}  # x+1, then n-x

Wypróbuj online!

GB
źródło
4

Biała spacja , 71 bajtów

   
 
 	
		 
 			
  
 
	   	
	    
 	
 	 
	 
 	
 	   	
	  	 
 
	 	

 


Wypróbuj online!

Wyjaśnienie

sssn  ; push 0 - seed the stack with 0 (this will be our 1->n counter, a)
sns   ; dup
tntt  ; getnum - read n (stored on the heap)
sns   ; dup
ttt   ; retr - pull n onto the stack (this will be our n->1 counter, b)
nssn  ; label 'loop'
snt   ; swap - bring a to the top
ssstn ; push 1
tsss  ; add - increment a
sns   ; dup
tnst  ; putnum - output a as a number
snt   ; swap - bring b to the top
sns   ; dup
tnst  ; putnum - output b as a number
ssstn ; push 1
tsst  ; sub - decrement b
sns   ; dup
ntstn ; jez 'exit' if b is 0
nsnn  ; jmp 'loop'

Pierwsza para instrukcji jest potrzebna do poprawnego ustawienia stosu, polecenia wejściowe Whitespace zapisują na stos, więc musimy skopiować b (wartość wejściową) z powrotem na stos. Zaczynamy od a = 0, ponieważ krótsze jest zadeklarowanie 0 zamiast 1 (zapisuje bajt) i musimy tylko zmienić kolejność instrukcji inkrementacji, aby sobie poradzić. Następnie po prostu zapętlamy i zwiększamy a, wyprowadzamy a, wyprowadzamy b, zmniejszamy b, aż b osiągnie 0 (sprawdzane po zmniejszeniu).

Ephphatha
źródło
może to być znacznie bardziej golfowe, jeśli usuniesz całą tę spację: P
cat
4

Haskell, 65 48 47 bajtów

1 bajt zapisany dzięki Laikoni:

f n=show=<<(\(l,r)->[l,r])=<<zip[1..][n,n-1..1]

6 bajtów zapisanych dzięki nim:

f n=show=<<(\(l,r)->[l,r])=<<zip[1..n][n,n-1..1]

Poprzednia odpowiedź i wyjaśnienie:

f n=concatMap show$concatMap(\(l,r)->[l,r])(zip[1..n][n,n-1..1])

Jest już lepsza odpowiedź Haskella, ale jestem nowy zarówno w Haskell, jak i golfie, więc równie dobrze mogę to opublikować :)

Ta funkcja zamyka listę [1..n] z jej odwrotnością, w wyniku czego powstaje lista krotek.

[(1,n),(2,n-1),(3,n-2)..(n,1)]

Następnie używa concatMapdo mapowania lambda na tę listę krotek, co daje listę list ...

[[1,n],[2,n-1],[3,n-2]..[n,1]]

... i łączy to.

[1,n,2,n-1,3,n-2..n,1]

Następnie końcowe concatMapmapowanie showna listę i łączenie jej w pojedynczy ciąg.

f 26 "12622532442352262172081991810171116121513141413151216111710189198207216225234243252261"

Dan Ambrogio
źródło
2
The infix function =<< is the same (within the list monad) as concatMap: f n=show=<<(\(l,r)->[l,r])=<<zip[1..n][n,n-1..1].
nimi
1
1) Your current solution is only 48 bytes. 2) You can drop the n in [1..n]: Try it online!
Laikoni
1) Dang off-by-one errors... 2) Good call!
Dan Ambrogio
3

Pyth, 7 bytes

jksC_BS

Try it online: Demonstration

Explanation:

jksC_BSQ   implicit Q (=input number) at the end
      SQ   create the range [1, ..., Q]
    _B     bifurcate by inversion, this gives [[1, ..., Q], [Q, ..., 1]]
  sC       zip and flatten result
jk         join to a string
Jakube
źródło
3

Octave, 29 bytes

@(n)printf("%d",[1:n;n:-1:1])

Try it online!

rahnema1
źródło
1
My implementation was so, so much longer! Nice! =)
Stewie Griffin
3

Perl 6, 20 bytes

{[~] 1..*Z~($_...1)}

Test it

With an input of 100000 this takes roughly 10 seconds, including compilation and printing the output.

Expanded:

{                # bare block lambda with implicit parameter 「$_」

  [~]            # reduce using concatenation operator 「&infix:«~»」
                 # (shorter than 「join '',」)

    1 .. *       # Range from 1 to infinity

    Z~           # zip using concatenation operator

    ( $_ ... 1 ) # deduced sequence starting at the input
                 # going down to 1
}

The Z~ needs the ~ because otherwise it generates a list of lists which will stringify with spaces.

There is no need to limit the Range starting at 1, because Z stops when any of the input lists run out.
This saves two bytes (a space would be needed after $_)

Brad Gilbert b2gills
źródło
3

Java 61 bytes

(int n)->{for(int i=0;i<n;System.out.print(i+1+""+(n-i++)));}
cheemcheem
źródło
2
Also, welcome to PPCG! :)
Stewie Griffin
We allow anonymous functions, so (int n)->{//for loop} should work here.
Nathan Merrill
Is that better?
cheemcheem
2
Yep! You can potentially put your System.out.print() in the last statement of the for loop, but it gets complicated because you are using i twice (and you need to increment it in the expression).
Nathan Merrill
I put the print inside the loop and incremented i at the last possible place then checked it with the Test cases to make sure it worked, thanks @NathanMerrill
cheemcheem
3

Jelly, 5 bytes

RṚĖVV

Try it online!

How it works

RṚĖVV  Main link. Argument: n

R      Range; yield [1, ..., n].
 Ṛ     Reverse; yield [n, ..., 1].
  Ė    Enumerate; yield [[1, n], ..., [n, 1]].
   V   Eval; convert each flat array to a string, interpret it as a Jelly program,
       and yield the output. This concatenates the integers in each pair, yielding
       a flat array of integers
    V  Repeat the previous step, concatenating the intgegers from before.
Dennis
źródło
3

Röda, 21 19 bytes

{seq 1,_<>seq _1,1}

Try it online!

This is an anonymous function that takes input from the stream.

Explanation

{seq 1,_<>seq _1,1}               Anonymous function, takes integer n from the stream
        <>                        Interleave
 seq 1,_                            the range 1 .. n with
          seq _1,1                  the range n .. 1
Kritixi Lithos
źródło
2

Clojure, 61 bytes

#(let[a(range 1(+ 1 %))](apply str(interleave a(reverse a))))

Literally does what is asked. I believe it can be outgolfed by a less trivial solution.

See it online

cliffroot
źródło
2

Aceto, 25 22 bytes

)&
pX`=
(pl0
id@z
r}Z)

Explanation:

We read an integer and put it on two stacks.

id
r}

On one, we call range_up (Z), on the other range_down (z), then we set a catch mark to be able to return to this place later:

  @z
  Z)

We then check if the current stack is empty and exit if so:

 X`=
  l0

Otherwise, we print from both stacks and jump back to the catch mark:

)&
p
(p
L3viathan
źródło
2

R, 41 bytes

pryr::f(for(i in 1:x){cat(i);cat(x-i+1)})

pryr::f() creates a function that takes one input. Loops over 1:x and prints each element of 1:x along with each element of x:1. Prints to STDOUT.

JAD
źródło
+1, nice use of pryr
shadowtalker
@ssdecontrol its pretty much staple replacement of function(x) :)
JAD
2

Brachylog, 10 9 bytes

⟦₁g↔ᶻczcc

Try it online!

Explanation

⟦₁           [1, …, Input]
  g↔ᶻc       [[1, …, Input],[Input, …, 1]]
      z      Zip
       cc    Concatenate twice
Fatalize
źródło
2

MATL, 13 11 9 bytes

2 bytes saved thanks to @Luis

:tPv1eVXz

Try it at MATL Online

Explanation

        % Implicitly grab input as a number, N
:       % Create an array from 1..N
tP      % Create a reversed copy
v       % Vertically concatenate the two
1e      % Reshape it into a row vector
V       % Convert to a string
Xz      % Remove whitespace and implicitly display
Suever
źródło
@LuisMendo Ah! I thought there was a function that removed whitespace but couldn't find it. Thanks!
Suever
2

PHP, 36 35 29 bytes

for(;$argn;)echo++$i,$argn--;

Saved one byte thanks to Jörg Hülsermann.
Saved six bytes thanks to Christoph.

user63956
źródło
3
Uhm... for(;$argn;)echo++$i,$argn--; ?
Christoph
2

Scala, 43 bytes

It's not the best but it's my first code golf.

n=>1.to(n).foldLeft("")((s,x)=>s+x+(n-x+1))
Phoenix
źródło
2

V, 20 bytes

ywo1@"­ñykPjñkògJ

Try it online!

Explain:

yw                    ' Copy the input number (for looping later)
  o1                 ' Insert a 1 under the input (on a newline)
     @"               ' [Copy register] number of times
       ­ñ      ñ       ' Do the thing inside of this loop
        ykP           ' Copy the current line and line above it, and paste above both
           j        ' decrement the current (top) number, and increment the one below
               k      ' Go to the top line
                ògJ   ' recursively join all of the lines
nmjcman101
źródło
2

Cubix, 17 bytes

....1I>sO)su.@?(O

Try it online!

cubified:

    . .
    . .
1 I > s O ) s u
. @ ? ( O . . .
    . .
    . .

Pushes 1, reads in the input (I), then enters the loop which swaps the top of the stack, outputs it, increments, swaps, outputs the top of the stack, decrements, and stops if the top of the stack is 0.

Giuseppe
źródło
2

MathGolf, 5 bytes

{îkï-

Try it online!

Explanation:

{      Run a for loop over implicit input
 î     Push 1 based index of loop
  k    Push inputted number
   ï-  Subtract 0 based index of loop
       Implicitly output all this joined together
Jo King
źródło
1
I've been able to find 13 programs of length 5 which yield the same result: ╒{ïí,, ╒{ïk,, ╒{íï-, ╒{kï-, ╒{┐í,, ╒{┐k,, ╒x{î\ , {îïí,, {îïk,, {îíï-, {îkï-, {î┐í,, {î┐k,. However, I have not been able to find any program of length 4 or less. I haven't done a full search, but it is very probable that 5 bytes is optimal for MathGolf.
maxb
2

Mouse-2002, 32 30 bytes

-2 moved conditional to start of loop (z.^ ... ) instead of (... z.0>^)

?n:n.z:(z.^a.1+a:a.!z.!z.1-z:)

Try it online!

Explanation:

?n:                                 ~ get input and store in n
   n.z:                             ~ copy n into z
       (z.^                         ~ stop if z equals 0
           a.1+a:                   ~ add 1 to a
                 a.!                ~ print a
                    z.!             ~ print z
                       z.1-z:)      ~ substract 1 from z
MooseOnTheRocks
źródło