Yang sederhana:

Ambil bilangan bulat positif n kurang dari 1000, dan hasilkan bilangan bulat dari 1 ke n yang disatukan dengan bilangan bulat dari n ke 1 . Anda harus menyatukan angka-angka sehingga mereka muncul tanpa pembatas di antara mereka.

Kasus uji:

n = 1
11

n = 4
14233241

n = 26
12622532442352262172081991810171116121513141413151216111710189198207216225234243252261

n = 100
110029939849759669579489399210911190128913881487158616851784188319822081218022792378247725762675277428732972307131703269336834673566366537643863396240614160425943584457455646554754485349525051515052495348544755465645574458435942604161406239633864376536663567346833693270317130722973287427752676257724782379228021812082198318841785168615871488138912901191109299389479569659749839921001

Ini adalah kode-golf sehingga pengajuan terpendek dalam byte di setiap bahasa menang. Penjelasan didorong.

JavaScript (ES6), 30 byte

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

Bagaimana?

Ini cukup mudah tetapi perlu dicatat bahwa tali dibuat dari ekor ke kepala. String kosong di awal ditambahkan terakhir dan memungkinkan paksaan hasil akhir untuk string terjadi.

Di bawah ini adalah detail rekursi untuk 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

Uji kasus

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

console.log(f(1))
console.log(f(4))
console.log(f(26))
console.log(f(100))

Python 2 , 46 byte

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

Berkat ovs untuk 4 byte

Cobalah online!

Penjelasan:

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)

-5 Terima kasih kepada Ørjan Johansen

Haskell , 33 byte

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

Cobalah online!

Bash , 25 byte

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

Cobalah online!

Mencetak urutan yang menurun, jumlah baris meningkat dan printf bergabung dengan baris

Batas ruang, 20 byte: seq $ 1 -1 1 | nl | xargs

R, 35 byte

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

Cobalah online

rbind(1:n,n:1)menciptakan matriks 2 baris dengan 1 ke n di baris pertama dan n ke 1 di baris kedua. The catfungsi runtuh matriks ini, membaca bawah setiap kolom.

05AB1E , 6 5 byte

Menyimpan byte menggunakan interleave built-in baru seperti yang disarankan oleh rev

LÂ.ιJ

Cobalah online!

Penjelasan

L        # range [1 ... input]
 Â       # create a reversed copy
  .ι     # interleave the lists
    J    # join

CJam , 10 byte

ri,:)_W%]z

Cobalah online!

Penjelasan

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

Ruby , 29 byte

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

Penjelasan:

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

Cobalah online!

Spasi , 71 byte

Cobalah online!

Penjelasan

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'

Beberapa instruksi pertama diperlukan untuk mengatur stack dengan benar, perintah input Whitespace menulis ke heap sehingga kita perlu menyalin b (nilai input) kembali ke stack. Kita mulai dengan a = 0 karena lebih pendek untuk mendeklarasikan 0 daripada 1 (menyimpan satu byte) dan kita hanya perlu menyusun ulang instruksi kenaikan untuk mengatasinya. Setelah itu kita hanya mengulang dan menambah a, output a, output b, penurunan b, hingga b mencapai 0 (diperiksa setelah penurunan).

Haskell, 65 48 47 byte

1 byte disimpan berkat Laikoni:

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

6 byte disimpan berkat nimi:

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

Jawaban dan penjelasan sebelumnya:

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

Sudah ada jawaban Haskell yang lebih baik di sini, tapi saya baru mengenal Haskell dan kode golf, jadi saya sebaiknya mempostingnya :)

Fungsi ini membuat zip daftar [1..n] dengan kebalikannya, menghasilkan daftar tupel.

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

Kemudian digunakan concatMapuntuk memetakan lambda ke daftar tupel yang menghasilkan daftar daftar ...

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

... dan menyatukannya.

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

Kemudian concatMappeta terakhir showke daftar dan menyatukannya menjadi satu string.

f 26 "12622532442352262172081991810171116121513141413151216111710189198207216225234243252261"

Pyth, 7 byte

jksC_BS

Cobalah online: Demonstrasi

Penjelasan:

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

Oktaf, 29 byte

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

Cobalah online!

Perl 6 , 20 byte

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

Menguji

Dengan input 100000 ini membutuhkan waktu sekitar 10 detik, termasuk kompilasi dan pencetakan output.

Diperluas:

{                # 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~membutuhkan ~karena jika itu menghasilkan daftar daftar yang akan stringify dengan spasi.

Tidak perlu membatasi Rentang mulai dari 1, karena Zberhenti ketika salah satu daftar input habis.
Ini menghemat dua byte (ruang akan dibutuhkan setelah $_)

Java 61 byte

(int n)->{for(int i=0;i<n;System.out.print(i+1+""+(n-i++)));}

Jelly , 5 byte

RṚĖVV

Cobalah online!

Bagaimana itu bekerja

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.

Röda , 21 19 byte

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

Cobalah online!

Ini adalah fungsi anonim yang mengambil input dari aliran.

Penjelasan

{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

Clojure, 61 byte

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

Secara harfiah melakukan apa yang diminta. Saya percaya itu bisa dikalahkan oleh solusi yang kurang sepele.

Lihat online

Aceto , 25 22 byte

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

Penjelasan:

Kami membaca bilangan bulat dan meletakkannya di dua tumpukan.

id
r}

Di satu, kami memanggil range_up ( Z), di lain range_down ( z), kemudian kami menetapkan tanda tangkap untuk dapat kembali ke tempat ini nanti:

  @z
  Z)

Kami kemudian memeriksa apakah tumpukan saat ini kosong dan keluar jika demikian:

 X`=
  l0

Jika tidak, kami mencetak dari kedua tumpukan dan melompat kembali ke tanda tangkapan:

)&
p
(p

R, 41 byte

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

pryr::f()menciptakan fungsi yang mengambil satu input. Loop 1:xdan cetak setiap elemen 1:xbersama dengan setiap elemen x:1. Mencetak ke STDOUT.

Brachylog , 10 9 byte

⟦₁g↔ᶻczcc

Cobalah online!

Penjelasan

⟦₁           [1, …, Input]
  g↔ᶻc       [[1, …, Input],[Input, …, 1]]
      z      Zip
       cc    Concatenate twice

MATL, 13 11 9 byte

2 byte disimpan berkat @Luis

:tPv1eVXz

Cobalah di MATL Online

Penjelasan

        % 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

PHP, 36 35 29 byte

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

Disimpan satu byte berkat Jörg Hülsermann.
Disimpan enam byte berkat Christoph.

Scala, 43 byte

Ini bukan yang terbaik tapi ini golf kode pertamaku.

n=>1.to(n).foldLeft("")((s,x)=>s+x+(n-x+1))

V , 20 byte

ywo1@"­ñykPjñkògJ

Cobalah online!

Menjelaskan:

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

Cubix , 17 byte

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

Cobalah online!

kubus:

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

Mendesak 1 , membaca di input ( I), kemudian memasuki loop yang menukar bagian atas tumpukan, mengeluarkannya, menambah, menukar, mengeluarkan bagian atas tumpukan, mengurangi, dan berhenti jika bagian atas tumpukan adalah 0.

K (ngn / k) , 16 byte

{,//$r,'|r:1+!x}

Cobalah online!

MathGolf , 5 byte

{îkï-

Cobalah online!

Penjelasan:

{      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

Common Lisp, 63 54 byte

(lambda(n)(dotimes(i n)(format t"~a~a"(1+ i)(- n i))))

Cobalah online!

Mouse-2002 , 32 30 byte

-2 pindah bersyarat untuk memulai loop (z.^ ... ) bukan(... z.0>^)

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

Cobalah online!

Penjelasan:

?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

Sebenarnya , 9 byte

R;R@Z♂iεj

Cobalah online! , atau jalankan semua test case

Penjelasan:

R;R@Z♂iεj
R          range(1, n+1)
 ;R        duplicate and reverse
   @Z      swap and zip
     ♂i    make 1D
       εj  join with empty string