Tantangan

Keluarkan daftar tahun yang dimulai dengan tahun berjalan dan berakhir 120 tahun yang lalu. Tahun kelahiran setiap manusia yang hidup akan dimasukkan dalam daftar ini.

Detail

Daftar harus dalam urutan menurun.

Setiap fungsi bawaan untuk memanipulasi array dan / atau daftar diperbolehkan.

Kode terpendek dalam byte menang.

Saat dijalankan tahun ini, hasilnya akan menjadi

2016, 2015, ..., 1897, 1896

Ketika dijalankan tahun depan hasilnya akan seperti itu

2017, 2016, ..., 1898, 1897

Dll

Memperbarui

• Beberapa orang bertanya tentang format daftar. Seperti dugaan kebanyakan orang, itu tidak masalah. Masukkan pemisah mana pun di antara angka-angka. Secara intuitif sebagian besar memasukkan koma atau spasi atau keduanya, baris baru atau output array.
• Manusia super semu seperti Jeanne Calment adalah pengecualian dari aturan yang disebutkan dalam pertanyaan saya.

Pyke, 6 byte

wC7m-

Coba di sini!

w     - 121
   m- - for i in range(^):
 C7   -  current_year-i

(Setelah w, codepoint untuk 153 hadir tetapi tidak dapat dicetak)

Pyth, 11 9 8 byte

-L.d3C\y

Bekerja dengan memetakan rentang [0...120]dan mengurangi setiap angka dari tahun berjalan. Rentang ini dibangun secara implisit dengan menggunakan 121sebagai argumen peta. Untuk menghindari spasi putih yang memisahkan antara .d3dan 121kami mendapatkan nomor ini dengan mengonversikannya ymenjadi codepoint.
Terima kasih kepada @FryAmTheEggman untuk datang dengan pendekatan ini!

Coba di sini!

Solusi 9 byte lama:

_>121S.d3

Coba di sini!

Buat rentang [1...<current year>]dan hanya ambil 121 elemen terakhir dari itu.

R, 34 byte

(format(Sys.Date(),"%Y"):0)[1:121]

Lihat di sini di penerjemah online.

Sunting Bisa dikurangi menjadi 33 byte dengan menggunakan substr.

(substr(Sys.Date(),1,4):0)[1:121]

tetapi secara teknis solusi ini hanya akan berfungsi hingga 9999-12-31.

AngularJS + Lodash , 274 byte

angular.module('x',[]).controller('x',['$scope',function(x){x.x=_.range(9,new Date().getFullYear()+1).slice(-121).reverse()}])

<script src=//goo.gl/M5LvGe></script><script src=//goo.gl/opljJl></script><select ng-app=x ng-controller=x multiple><option ng-repeat="x in x">{{x}}

Keluaran

BASH + coreutils, 35 33 byte

x=`date +%Y`;seq $x -1 $((x-120))

CJam, 14 12 11 byte

Disimpan 2 byte berkat Sp3000 dan 1 byte terima kasih kepada Martin Ender

et0=121,f-p

Cobalah online!

Penjelasan

et0=         e# Push the current year
    121,     e# Push the range 0, 1, ..., 120
        f-   e# For each item in the range, subtract it from current year
          p  e# Print the array

HP50g RPL, 97 byte

120 'S' STO DATE ->STR 6 9 SUB OBJ-> 'Y' STO {} S WHILE 0 >= REPEAT Y S - + 'S' DECR END REVLIST

Tidak Disatukan:

120
'span' STO     @ Store the span of years to cover.
DATE           @ Get the date as number 11.082016. 
→STR           @ Convert to string "11.082016".
               @ (Number format must allow all these decimal places.)
6 9 SUB        @ "11.082016" Substring for the year.
               @       ^  ^
               @  123456789
OBJ→           @ Convert string to number.
'year' STO     @ Store as the year to start at.
{} span        @ Start empty list to collect the years.
               @ Leave loop counter on the stack.
WHILE 0 ≥      @ Loop until the counter goes negative.
REPEAT
  year span -  @ E.g. on first iteration: 2016 - 120 = 1896.
  +            @ Append the year to the list on the stack.
  'span' DECR  @ Decrement loop counter and leave on stack.
END
REVLIST        @ Put list in reverse chronological order.

Menampilkan daftar 2016 hingga 1896:

05AB1E , 8 7 byte

Kode:

žg120Ý-

Penjelasan:

žg         # Get the current year.
  120Ý     # Create the list [0, 1, ..., 119, 120].
      -    # Substract, which leaves [year - 0, year - 1, ..., year - 120].

Menggunakan pengkodean CP-1252 . Cobalah online! .

PowerShell, 26 24 byte

@TimmyD versi yang disempurnakan:

0..120|%{(date).Year-$_}

Apakah:

($d=(date).year)..($d-120)

di mana dateberjalanGet-Date

Dyalog APL , 11 10 byte

120↑⌽⍳⊃⎕ts

120↑ ambil 120 elemen

⌽ dari yang terbalik

⍳ indeks sampai

⊃ elemen pertama dari

⎕TS TimeStamp dalam format [YYYY, M, D, h, m, s, t]

TryAPL online!

Versi lama:

(⊃⎕TS)-⍳120

⊃⎕TS elemen pertama [YYYY, M, D, h, m, s, t]

- minus

⍳120 [0, 1, 2, ..., 118, 119]

Membutuhkan ⎕IO←0, yang merupakan standar pada banyak sistem.

TryAPL online!

Vitsy + * sh + JavaScript , 33 26 21 18 byte

Vitsy tidak memiliki pencarian waktu / tanggal asli, jadi saya harus menggunakan shell dan eval untuk yang ini.

Terima kasih kepada @Caleb karena membantu saya menghilangkan 3 byte lagi!

'Y%+ etad',Dca*-HZ

'Y%+ etad'               Push the string 'date +"%Y"' to the stack.
          ,              Execute through shell. 
           Dca*-         Dupe n, push n - 120.
                H        Pop x, y, push range(x, y) to the stack.
                 Z       Output all stack as characters.

Anda tidak dapat mencoba yang ini secara online, karena ia menggunakan shell DAN eval.

Output adalah sebagai kode karakter.

Bahasa Mathematica / Wolfram, 28 byte

Date[][[1]]-#&/@Range[0,120]

R, 47 39 byte

as.double(substr(Sys.Date(),1,4))-0:120

Jika hanya seseorang yang menemukan implementasi UTF-8 dari R dengan fungsi sistem yang sering digunakan ...

UPD: dicukur 7 (!) Byte karena plannapus , yang menyarankan sub-subtacting 0:120vektor daripada menghitung dari ake (a-120)dan 1 byte grâce à user5957401 , yang memperhatikan bahwa itu doubleakan berhasil juga numeric. Versi lama:

a=as.numeric(format(Sys.Date(),"%Y"));a:(a-120)

MATL , 10 byte

1&Z'0:120-

Cobalah online!

1&Z'      % Push first component of "clock" vector, which is year
0:120     % Literal vector [0, 1, 2, ..., 120]
-         % Subtract element-wise. Implicitly display

05AB1E, 9 byte

121FžgN-=

Coba online

php, 73 66 58 42 byte

<?=implode(', ',range($j=date(Y),$j-120));

Keluaran:

2016, 2015, 2014, 2013, 2012, 2011, 2010, 2009, 2008, 2007, 2006, 2005, 2004, 2003, 2002, 2001, 2000, 1999, 1998, 1997, 1996, 1995, 1994, 1993, 1993, 1992, 1991, 1990, 1989, 1988, 1988, 1986, 1985, 1984, 1983, 1982, 1981, 1980, 1979, 1978, 1977, 1976, 1975, 1973, 1972, 1971, 1970, 1969, 1968, 1967, 1966, 1965, 1964, 1963, 1962, 1961, 1960, 1959, 1958, 1957, 1955, 1954, 1953, 1952, 1951, 1950, 1949, 1948, 1947, 1946, 1946, 1945, 1944, 1943, 1942, 1941, 1940, 1939, 1938, 1937, 1936, 1935, 1934, 1932, 1931, 1930, 1929, 1928, 1927, 1926, 1925, 1924, 1923, 1922, 1921, 1920, 1919, 1918, 1917, 1916, 1915, 1914, 1913, 1912, 1911, 1910, 1909, 1908, 1907, 1906, 1905, 1904, 1903, 1902, 1901, 1900, 1899, 1898, 1897, 1896

Jika kita tidak perlu berpisah dengan ,, maka 58 57 41 byte:

<?=implode(' ',range($j=date(Y),$j-120));

Terima kasih untuk menyisipkan nama pengguna di sini untuk menghemat 16 byte

Python 2, 64 62 54 byte

import time
n=time.gmtime()[0]
exec'print n;n-=1;'*121

@KarlKastor terima kasih untuk 8 byte!

PostgreSQL, 57 byte

Siapa yang butuh FROM:-). Mungkin seharusnya tidak berhasil, tetapi ternyata berhasil, cobalah di sqlfiddle

select date_part('y',current_date)-generate_series(0,120)

Bash pada OS X, 23

jot 121 `date +%Y` - -1

Ini juga akan berfungsi di Linux jika Anda telah jotmenginstal BSD (mis sudo apt-get install athena-jot.

Python 2, 62 byte

import time
for n in range(121):print int(time.ctime()[-4:])-n

Dan pada 64 byte:

for n in range(121):print int(__import__("time").ctime()[-4:])-n

Oracle SQL 11.2, 111 byte

SELECT LISTAGG(TO_CHAR(SYSDATE,'YYYY')-LEVEL+1,', ')WITHIN GROUP(ORDER BY LEVEL)FROM DUAL CONNECT BY LEVEL<122;

Memproses, 51 42 41 byte

for(int i=0;i<121;)print(year()-i+++" ");

Tidak disatukan

for(int i = 0; i < 121;)
    print(year() - i++ + " ");

Pemrosesan hanyalah pembungkus untuk Java jika Anda tidak tahu, dan mengambil sebagian besar boilerplate, sehingga solusi yang jelas juga sangat pendek dibandingkan dengan versi Java. Juga membuka jendela untuk menggambar grafik, tetapi memiliki itu tampaknya tidak mendiskualifikasi saya :)

MATLAB, 18 byte

Dengan asumsi format output tidak masalah (selain urutan menurun), program berikut mencetak 121 tahun terakhir dimulai dengan yang sekarang.

year(date)-(0:120)

Ini membutuhkan versi MATLAB r2014a atau lebih tinggi. Versi sebelumnya tidak termasuk yearfungsi.

JavaScript, 55 52 50 49 byte

for(a=d=s=Date().substr(11,4);d-->s-120;)a+=" "+d

+9 byte ke alertdata (tidak perlu jika Anda menjalankan ini di konsol).

for(a=d=s=Date().substr(11,4);d-->s-120;)a+=" "+d;alert(a)

-4 byte jika pembatas tidak diperlukan.

for(a=d=s=Date().substr(11,4);d-->s-120;)a+=d

for (a = d = s = Date().substr(11, 4); d --> s - 120; )
    a += " " + d;
console.log(a);

C, 87 85 76 74 65 byte

main(int i,char**v){for(i=0;i<121;printf("%d,",atoi(v[1])-i++));}

Tidak Disatukan:

main(int i,char**v){
    for(i = 0; i < 121; printf("%d,", atoi(v[1])-i++));
}

Golf kode pertama saya - Pointer apa pun akan diterima dengan baik. Akan lebih baik jika saya bisa memotong sampah argc / argv, tapi saya tidak begitu mahir programmer C. Perbaikan disambut baik.

EDIT : Tahun ini diperoleh dari commandline - khusus oleh sekelompok burung minum otomatis yang terlatih.

EDIT 2 : 85 bytes Terima kasih kepada Easterly Irk (menghapus spasi di sekitar parameter fungsi arg)

EDIT 3 : 76 bytes Berkat anatolyg untuk menunjukkan yang jelas (nama parameter verbose argc / argv dihapus)

EDIT 4 : 74 byte Terima kasih kepada Yay295 (char ** v, pembatas tahun berubah)

EDIT 5 : 65 byte terima kasih kepada Yay295 dan matt (digunakan kembali variabel i, hapus variabel x, ubah sementara menjadi untuk loop, perbarui printf untuk menyertakan atoi () baca dan i ++)

JavaScript, 60 53 48 Bytes

f=x=>x>Date().split` `[3]-121&&(alert(x),f(x-1))

Saya menggunakan solusi rekursif.

Perl, 33 byte

say+(gmtime)[5]-$_+1900for 0..120

Jalankan dengan -M5.010atau -E:

perl -E 'say+(gmtime)[5]-$_+1900for 0..120'

k, 27 byte

Output seperti yang ditentukan

1@", "/:$(`year$.z.d)-!121;

Contoh:

k)1@", "/:$(`year$.z.d)-!121;
2016, 2015, 2014, 2013, 2012, 2011, 2010, 2009, 2008, 2007, 2006, 2005, 2004, 2003, 2002, 2001, 2000, 1999, 1998, 1997, 1996, 1995, 1994, 1993, 1992, 1991, 1990, 1989, 1988, 1987, 1986, 1985, 1984, 1983, 1982, 1981, 1980, 1979, 1978, 1977, 1976, 1975, 1974, 1973, 1972, 1971, 1970, 1969, 1968, 1967, 1966, 1965, 1964, 1963, 1962, 1961, 1960, 1959, 1958, 1957, 1956, 1955, 1954, 1953, 1952, 1951, 1950, 1949, 1948, 1947, 1946, 1945, 1944, 1943, 1942, 1941, 1940, 1939, 1938, 1937, 1936, 1935, 1934, 1933, 1932, 1931, 1930, 1929, 1928, 1927, 1926, 1925, 1924, 1923, 1922, 1921, 1920, 1919, 1918, 1917, 1916, 1915, 1914, 1913, 1912, 1911, 1910, 1909, 1908, 1907, 1906, 1905, 1904, 1903, 1902, 1901, 1900, 1899, 1898, 1897, 1896

Ini dapat dipersingkat lebih dengan tidak memformat output dan hanya mengembalikan daftar bilangan bulat:

(`year$.z.d)-!121

jq, 46 karakter

(45 karakter kode + 1 opsi baris perintah karakter)

now|strftime("%Y")|tonumber|range(.;.-121;-1)

Contoh dijalankan:

bash-4.3$ jq -n 'now|strftime("%Y")|tonumber|range(.;.-121;-1)' | head
2016
2015
2014
2013
2012
2011
2010
2009
2008
2007

Tes online

Vim, 32 29 penekanan tombol

Terima kasih kepada @daniero untuk bantuan dalam menghemat beberapa penekanan tombol dan membuat hasilnya sedikit lebih rapi.

"=strftime('%Y')<Enter>pqqYp<Ctrl-x>q118@q

• <Enter> aku s Enter
• <Ctrl-x>adalah Ctrl+X

Penjelasan:

"                                          # Put into the register {
 =strftime('%Y')                           #   This year in YYYY form
                <Enter>                    # }
                       p                   # Paste the register
                        qq                 # Record macro q {
                          Y                #   Yank (copy) the current line
                           p               #   Paste
                            <Ctrl-x>       #   Decrment number at cursor
                                    q      # }
                                     118@q # Do macro q 118 times

Format output:

Setiap angka berada pada baris terpisah seperti di bawah ini.

2016
2015
.
.
.
1898
1897