Tantangan

Tugas Anda dalam pertanyaan ini adalah menulis program atau fungsi bernama yang mengambil bilangan bulat positif n(lebih besar dari 0) sebagai input melalui STDIN, ARGV atau argumen fungsi dan menghasilkan array melalui STDOUT atau nilai fungsi yang dikembalikan.

Kedengarannya cukup sederhana? Sekarang inilah aturannya

• Array hanya akan berisi bilangan bulat dari 1hinggan
• Setiap bilangan bulat dari 1ke nharus diulang xkali di mana xnilai dari setiap bilangan bulat.

Sebagai contoh:

Memasukkan:

5

Keluaran:

[1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5]

Array mungkin atau mungkin tidak diurutkan.

Ini adalah kode-golf sehingga pemenang adalah kode terpendek dalam byte.

Bonus

Lipat gandakan skor Anda dengan 0.5jika tidak ada dua bilangan bulat yang berdekatan di array output Anda sama.

Misalnya untuk n = 5, satu konfigurasi seperti itu

[5, 4, 5, 4, 3, 4, 5, 2, 5, 3, 1, 2, 3, 4, 5]

APL, 4 karakter

/⍨⍳⎕

Bagaimana itu bekerja:

⎕membaca input pengguna. Sedangkan untuk output, APL secara default mencetak hasil dari setiap baris.

⍳nadalah bilangan bulat dari 1 hingga n. Contoh:⍳3←→ 1 2 3

/berarti mereplikasi . Setiap elemen dari argumen kanan diulang sebanyak yang ditentukan oleh elemen yang sesuai dari argumen kiri. Contoh:2 0 3/'ABC'←→ 'AACCC'

⍨adalah operator perjalanan . Ketika itu terjadi di sebelah kanan fungsi, ia memodifikasi perilakunya, sehingga ia bertukar argumen ( A f⍨ B ←→ B f A, karenanya "bepergian") atau memberikan argumen yang sama di kedua sisi ( f⍨ A ←→ A f A, "selfie"). Bentuk terakhir digunakan dalam solusi ini.

Bonus:

6-∊⌽⍳¨⍳⎕(8 karakter, terima kasih @ phil-h )

⍳5(iota lima) adalah 1 2 3 4 5.

⍳¨ ⍳5(Iota setiap iota lima) adalah (,1)(1 2)(1 2 3)(1 2 3 4)(1 2 3 4 5), vektor vektor. Setiap ( ¨) adalah operator, dibutuhkan fungsi di sebelah kiri dan menerapkannya ke setiap item dari array di sebelah kanan.

⌽membalikkan array, jadi kita dapatkan (1 2 3 4 5)(1 2 3 4)(1 2 3)(1 2)(,1).

∊adalah Terdaftar (alias meratakan ). Secara rekursif melintasi argumen dan mengembalikan skalar sederhana dari itu sebagai vektor.

Ruby (rekursif), 41 byte * 0,5 = 20,5

def n(n,i=1);i>n ?[]:n(n,i+1)+[*i..n];end

Atau menggunakan lambda (seperti yang direkomendasikan oleh histokrat dan Ventero): 34 byte * 0,5 = 17

r=->n,i=n{i>0?[*i..n]+r[n,i-1]:[]}

(panggil menggunakan r[argument])

Pyth , 9 byte * 0,5 = 4,5

smrhQhdUQ

Dengan bantuan dari @FryAmTheEggman

Cobalah online.

Penjelasan

s             reduce + on list
 m            map
  rhQhd       lambda d: reversed(range(d+1, Q+1)), over
       UQ     range(Q)

dimana Qinputnya

Haskell, 31 karakter = skor 15,5

f n=[y|x<-[n,n-1..1],y<-[x..n]]

27 karakter tanpa bonus

f n=[x|x<-[1..n],_<-[1..x]]

Dipukuli oleh Proud Haskeller

C, 22 = 44 byte * 0,5

Fungsi ini hmengambil dua parameter. Yang pertama adalah intmenentukan n . Yang kedua adalah int*yang merupakan buffer output.

h(n,o)int*o;{for(n&&h(~-n,o+=n);*--o=n--;);}

Program uji

main(){
int wow[999],*i;
memset(wow,0,sizeof(wow));
h(6, wow);
for(i=wow;*i;i++)printf("%d ", *i);
}

Pyth - 15 10 * .5 = 5

smr-QdhQUQ

Cobalah online.

Diharapkan input pada stdin. Algoritma yang ditemukan secara independen. Terima kasih @ Sp3000 untuk membantu saya menempel Q terakhir di sana: P Juga, ironi? XD

Penjelasan:

Q=eval(input())       : implicit
s                     : The sum of...
 m      UQ            : map(...,range(Q))
  r-QdhQ              : range(Q-d,Q+1)

CJam, 12 15 byte * 0,5 = 7,5

li_,f{),f-W%~}`

Ini adalah program STDIN-ke-STDOUT lengkap. Ini menggabungkan akhiran peningkatan 1 ... njangkauan, yang memastikan bahwa tidak ada dua angka yang berdekatan yang identik.

Uji di sini.

Python 2, 53 byte * 0,5 = 26,5

i=n=input()
x=[]
while i:x+=range(i,n+1);i-=1
print x

Tanpa malu-malu meminjam ide @ VisualMelon

Haskell, 34 byte * 0,5 = 17

0%n=[]
i%n=[i..n]++(i-1)%n
g n=n%n

Itulah pertama kalinya saya menggunakan Haskell untuk bermain golf. Panggil dengan g <number>.

Bash + coreutils, 28/2 = 14

Tanpa malu-malu mencuri ide dan golf @ pgy :

seq -f"seq %g $1" $1 -1 1|sh

Bash murni (tanpa coreutils), 30/2 = 15

Eval, melarikan diri dan ekspansi neraka:

eval eval echo \\{{$1..1}..$1}

GolfScript (14 byte * 0,5 = skor 7)

 ~:x,{~x),>~}%`

Demo online

Saya pikir ini mungkin mirip dengan beberapa jawaban yang ada dalam membangun array concat( [n], [n-1, n], [n-2, n-1, n], ..., [1, 2, ..., n] )

Sedihnya saya tidak bisa bermain golf lebih jauh yang bisa dibilang lebih elegan:

~:x]{{,{x\-}/}%}2*`

yang menempatkan input xke dalam array dan kemudian berlaku dua kali {,{x\-}/}%, yang memetakan setiap elemen dalam array untuk menghitung mundur dari banyak elemen dari x.

C # - 81 (161bytes * 0,5)

Pekerjaan sederhana di C #, semoga mendapat bonus no-neibouring-number. Membaca int dari stdin, menulis array seperti contoh ke stdout.

class P{static void Main(){int n=int.Parse(System.Console.ReadLine()),m=n-1,i;var R="["+n;for(;m-->0;)for(i=m;i++<n;)R+=", "+i;System.Console.WriteLine(R+"]");}}

Lebih mudah dibaca:

class P
{
    static void Main()
    {
        int n=int.Parse(System.Console.ReadLine()),m=n-1,i;
        var R="["+n;
        for(;m-->0;)
            for(i=m;i++<n;)
                R+=", "+i;
        System.Console.WriteLine(R+"]");
    }
}

Contoh output:

n = 5
[5, 4, 5, 3, 4, 5, 2, 3, 4, 5, 1, 2, 3, 4, 5]

JavaScript, ES6, 41 byte

f=i=>[...Array(i).fill(i),...i?f(--i):[]]

Ini menciptakan fungsi fyang bisa disebut seperti f(6)dan mengembalikan array yang diperlukan.

Ini menggunakan pendekatan rekursif, di mana setiap iterasi menciptakan array ielemen yang semuanya dihargai idan menggabungkan array yang dikembalikan oleh f(i-1)dengan kondisi berhentii==0 .

Bekerja pada Firefox terbaru.

Haskell, 14 = 28 byte / 2

f n=n:[1..n-1]>>= \r->[r..n]

contoh output:

>f 5
[5,1,2,3,4,5,2,3,4,5,3,4,5,4,5]

24 byte tanpa bonus:

f n=[1..n]>>= \r->[r..n]

Haxe , 53 byte

function l(v)return[for(i in 0...v)for(j in 0...i)i];

Bekerja dengan l (6); karena pemahaman array.
Uji secara online http://try.haxe.org/#741f9

vba, 76 * 0,5 = 38

Sub i(q)
For Z=1 To q:For x=q To Z Step -1:Debug.?x;",";:Next:Next
End Sub

R, 44 * .5 = 22

f=function(n){r=0;for(i in 1:n)r=c(r,n:i);r}

Tes cepat

> f(1)
[1] 1
> f(2)
[1] 2 1 2
> f(3)
[1] 3 2 1 3 2 3
> f(4)
 [1] 4 3 2 1 4 3 2 4 3 4

JavaScript, ES6, 66 byte * 0,5 = 33

f=i=>(g=n=>[...Array(n).fill().map((v,x)=>i-x),...n?g(n-1):[]])(i)

Membangun berdasarkan pendekatan rekursif Pengoptimal , kita dapat membangun penurunan yang menurun dengan panjang, seperti [4,3,2,1, 4,3,2, 4,3, 4].

Alih-alih Array(i).fill(i)membuat undefinedsub -nilai dengan nilai yang sama , kami membuat- sub-bidang dengan panjang yang sesuai dengan Array(n).fill()dan kemudian mengubah nilai-nilai ke run menurun menggunakan .map((v,x)=>i-x). Selain itu, kami mendefinisikan dan mengulangi tentang fungsi batin g; fungsi luar fhanya ada untuk menyimpan nilai isaat gberulang.

T-SQL, 176 * 0,5 = 88

Karena Anda sepertinya melewatkan T-SQL @Optimizer, ini dia semua itu sangat menyenangkan :).

Beberapa opsi fungsi, fungsi skalar, dan nilai tabel sebaris. Fungsi Skalar menggunakan while untuk mengulang dan mengembalikan string angka, di mana fungsi Inline Table Valued menggunakan CTE rekursif untuk urutan dan mengembalikan tabel. Tentu saja ini tidak akan pernah kompetitif, jadi saya belum menghabiskan banyak waktu bermain golf.

Fungsi Tabel Bernilai Inline, 176 * .5

CREATE FUNCTION F(@ INT)RETURNS TABLE RETURN WITH R AS(SELECT @ N UNION ALL SELECT N-1FROM R WHERE N>0)SELECT B.N FROM R CROSS APPLY(SELECT TOP(R.N)N FROM R A ORDER BY N DESC)B

Disebut sebagai berikut

SELECT * FROM dbo.F(5)

Contoh SQLFiddle

Fungsi Skalar, 220 * .5

CREATE FUNCTION G(@ INT)RETURNS VARCHAR(MAX)AS BEGIN DECLARE @S VARCHAR(MAX),@N INT=1,@I INT,@C INT WHILE @N<=@ BEGIN SELECT @I=@N,@C=@ WHILE @C>=@I BEGIN SELECT @S=CONCAT(@S+',',@C),@C-=1 END SET @N+=1 END RETURN @S END

Disebut sebagai berikut

SELECT dbo.G(5)

Contoh SQLFiddle

Mathematica, 34 * 0,5 = 17

f=Join@@Table[x,{y,#},{x,#,y,-1}]&

perl, 26 byte

for(1..$n){print"$_ "x$_;}

JavaScript (dapat dibaca), 131 byte

Saya baru mengenal Code Golf jadi ini bukan yang terbaik

function f(n) {
    var arr = [];
    for(var i = 1; i <= n; i++) {
        for(var j = 0; j < i; j++) {
            arr.push(i);
        }
    }
    return arr;
}

JavaScript (kurang dapat dibaca), 87 byte

Diminimalkan menggunakan jscompress.com

function f(e){var t=[];for(var n=1;n<=e;n++){for(var r=0;r<n;r++){t.push(n)}}return t}

TECO, 25 byte * 0,5 = 12,5

a\+1%a%b<qauc-1%b<-1%c=>>

Di atas nyaris mengalahkan versi non-bonus pada 13 byte:

a\%a<%b<qb=>>

C #, 114 99 * 0,5 = 49,5 byte

(Dengan sedikit bantuan dari jawaban VisualMelon) Edit: dan komentar James Webster

int[]A(int n){int m=n,i,c=0;var a=new int[n*(n+1)/2];while(m-->0)for(i=m;i++<n;)a[c++]=i;return a;}

Tidak Disatukan:

int[] FooBar(int n)
{
    int altCounter = n, i, arrayCounter = 0;
    var returnArray = new int[n * (n + 1) / 2];
    while(m-->0)
        for(i = altCounter; i++ < n; )
            returnArray[arrayCounter++]=i;
    return returnArray;
}

Ada versi yang tidak aman yang saya ambil tanpa malu-malu dari jawaban C feersum, tapi saya tidak 100% yakin cocok dengan aturan karena Anda harus mengalokasikan memori sebelum memanggil metode.

C # (tidak aman), 82 * 0,5 = 41 byte

unsafe void A(int n,int*p){int*z=p;int m=n,i;while(m-->0)for(i=m;i++<n;)z++[0]=i;}

Disebut sebagai berikut:

int n = 5, length = (int)((n / 2f) * (n + 1));
int* stuff = stackalloc int[length];
int[] stuffArray = new int[length];
A(n, stuff);
System.Runtime.InteropServices.Marshal.Copy(new IntPtr(stuffArray), stuffArray, 0, stuffArray.Length);
//stuffArray == { 5, 4, 5, 3, 4, 5, 2, 3, 4, 5, 1, 2, 3, 4, 5 }

Sesuai saran VisualMelon (terima kasih!), Kode tidak aman dapat dibuat kembali dengan kode aman yang mengurangi ukuran lebih jauh! Masih menimbulkan pertanyaan jika pembuatan array hasil akhir diizinkan dilakukan di luar metode.

C #, 72 * 0,5 = 36 byte

void A(int n,int[]p){int z=0,m=n,i;while(m-->0)for(i=m;i++<n;)p[z++]=i;}

Bash dengan seq, expr dan xargs = 59/2 = 29.5

Simpan dan jalankan dengan nomor sebagai argumen pertama.

seq $1|xargs -n1 seq|xargs -n1 expr $1 + 1 -|sed 1d;echo $1

C #, 116 115 + 33 = 148 byte

Bukan kode terpendek, tapi ... tetap berfungsi: P

int[]l(int m){List<int>i=new List<int>();for(int j=1;j<=m;j++){for(int x=0;x<j;x++){i.Add(j);}}return i.ToArray();}

Membutuhkan ini di bagian atas file (33 byte):

using System.Collections.Generic;

Versi tidak golf:

int[] RepatedNumberList(int m)
{
    List<int> intList = new List<int>();
    for (int j = 1; j <= m; j++)
    {
        for (int x = 0; x < j; x++)
        {
            intList.Add(j);
        }
    }
    return initList.ToArray();
}

J, 23 * 0,5 = 11,5

   f=.-;@(<@|.@i."0@>:@i.)
   f 5
5 4 5 3 4 5 2 3 4 5 1 2 3 4 5

J, 11

   f=.#~@i.@>:
   f 5
1 2 2 3 3 3 4 4 4 4 5 5 5 5 5

JavaScript (ES6) 29 (58 * 0,5)

Edit hapus; thx @Optimizer

Q=o=>(m=>{for(n=o,r=[];n>m||++m<(n=o);)r.push(n--)})(0)||r

Tes di konsol FireFox / FireBug

Q(9)

Keluaran

[9, 8, 7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 9, 8, 7, 6, 5, 4, 9, 8, 7, 6, 5, 9, 8, 7, 6, 9, 8, 7, 9, 8, 9]

Tidak disatukan

Q=o=>{
  for(m=0,r=[];m<o;++m)
    for(n=o;n>m;)
      r.push(n--);
  return r
}

ECMAScript6, 67 * 0,5 = 33,5 byte

f=n=>{a=[],b=0;while(c=n+b,n--){while(c-b)a.push(c--);b++}return a}

Cukup senang dengan yang ini ... Ini sekitar seperempat ukuran aslinya.

f(4) pengembalian:

[ 4, 3, 2, 1, 4, 3, 2, 4, 3, 4 ]

Jawaban lama:

f=i=>{a=b=Array;while(i)a=a.concat(b.apply(null,b(i)).map(e=>i)),i--;return a}

Ini adalah pukulan pertama saya di kode golf ... Saya masih ingin mendapatkan bonus 0,5x itu. Ada saran yang disambut!

Disebut dengan f (n).

C #, 108 byte * 0,5 = 54

List<int> f(int n){var r=new List<int>();int m=n-1,i;r.Add(n);for(;m-->0;)for(i=m;i++<n;)r.Add(i);return r;}

Terima kasih kepada VisualMelon untuk melakukan kerja kerasnya! Saya pikir saya akan mencoba menekannya sebanyak mungkin.

(114 byte * 0,5 = 57, jika Anda bersikeras menggunakan .ToArray () untuk mengembalikan int [])