Các thách thức

Xuất ra một danh sách các năm bắt đầu với năm hiện tại và kết thúc 120 năm trước. Năm sinh của mỗi con người sống sẽ được đưa vào danh sách này.

Chi tiết

Danh sách nên theo thứ tự giảm dần.

Mọi chức năng tích hợp để thao tác với mảng và / hoặc danh sách đều được cho phép.

Mã ngắn nhất trong byte thắng.

Khi chạy năm nay, sản lượng sẽ là

2016, 2015, ..., 1897, 1896

Khi chạy vào năm tới, sản lượng sẽ là

2017, 2016, ..., 1898, 1897

V.v.

Cập nhật

• Một số đã hỏi về định dạng của danh sách. Như hầu hết đã đoán, nó không thành vấn đề. Chèn bất kỳ dấu phân cách giữa các số. Theo trực giác hầu hết chèn một dấu phẩy hoặc dấu cách hoặc cả hai, dòng mới hoặc xuất ra một mảng.
• Những siêu nhân Quasi như Jeanne Calment là một ngoại lệ đối với quy tắc được nêu trong câu hỏi của tôi.

Pyke, 6 byte

wC7m-

Hãy thử nó ở đây!

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

(Sau đó w, mật mã cho 153 có mặt nhưng nó không thể in được)

Pyth, 11 9 8 byte

-L.d3C\y

Hoạt động bằng cách ánh xạ trên phạm vi [0...120]và trừ mọi số từ năm hiện tại. Phạm vi được xây dựng ngầm bằng cách sử dụng 121làm đối số bản đồ. Để tránh một khoảng trắng tách biệt giữa .d3và 121chúng ta có được số này bằng cách chuyển đổi ysang mật mã.
Cảm ơn @FryAmTheEggman đã đưa ra phương pháp này!

Hãy thử nó ở đây!

Giải pháp cũ 9 byte:

_>121S.d3

Hãy thử nó ở đây!

Xây dựng phạm vi [1...<current year>]và chỉ mất 121 yếu tố cuối cùng của nó.

R, 34 byte

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

Xem ở đây trên một thông dịch viên trực tuyến.

Chỉnh sửa có thể được giảm xuống 33 byte bằng cách sử dụng substr.

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

nhưng về mặt kỹ thuật, giải pháp này sẽ chỉ hoạt động cho đến 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}}

Đầu ra

BASH + coreutils, 35 33 byte

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

CJam, 14 12 11 byte

Đã lưu 2 byte nhờ Sp3000 và 1 byte nhờ Martin Ender

et0=121,f-p

Hãy thử trực tuyến!

Giải trình

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

Ung dung:

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.

Hiển thị danh sách năm 2016 đến năm 1896:

05AB1E , 8 7 byte

Mã số:

žg120Ý-

Giải trình:

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

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến! .

PowerShell, 26 24 byte

@TimmyD phiên bản cải tiến:

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

Nghĩa là thuộc to be:

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

datechạy đi đâuGet-Date

APL Dyalog , 11 10 byte

120↑⌽⍳⊃⎕ts

120↑ lấy 120 yếu tố

⌽ của đảo ngược

⍳ chỉ số cho đến

⊃ yếu tố đầu tiên của

⎕TS TimeStamp ở định dạng [YYYY, M, D, h, m, s, t]

Dùng thử trực tuyến!

Phiên bản cũ:

(⊃⎕TS)-⍳120

⊃⎕TS yếu tố đầu tiên của [YYYY, M, D, h, m, s, t]

- dấu trừ

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

Yêu cầu ⎕IO←0, được mặc định trên nhiều hệ thống.

Dùng thử trực tuyến!

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

Vitsy không có truy xuất thời gian / ngày gốc, vì vậy tôi phải sử dụng shell và eval cho cái này.

Cảm ơn @Caleb đã giúp tôi cắt thêm 3 byte!

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

Bạn không thể thử cái này trực tuyến, vì nó sử dụng cả shell AND eval.

Đầu ra là mã ký tự.

Ngôn ngữ toán học / Wolfram, 28 byte

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

R, 47 39 byte

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

Nếu chỉ có ai đó phát minh ra triển khai UTF-8 của R với các chức năng hệ thống được sử dụng thường xuyên viết tắt ...

CẬP NHẬT : đã loại bỏ 7 byte (!) Do plannapus , người đã đề xuất tạo ra một 0:120vectơ thay vì đếm từ ađến (a-120)và 1 byte grâce à user5957401 , người nhận thấy rằng nó doublecũng sẽ hoạt động tốt numeric. Phiên bản cũ:

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

MATL , 10 byte

1&Z'0:120-

Hãy thử trực tuyến!

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-=

Thử trực tuyến

php, 73 66 58 42 byte

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

Đầu ra:

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, 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, 1896

Nếu chúng ta không cần tách riêng ,, thì 58 57 41 byte:

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

Cảm ơn insertusernamehere đã lưu 16 byte

Python 2, 64 62 54 byte

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

@KarlKastor cảm ơn vì 8 byte!

PostgreSQL, 57 byte

Ai cần một FROM:-). Có lẽ không nên làm việc, nhưng nó, hãy thử nó tại sqlfiddle

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

Bash trên OS X, 23

jot 121 `date +%Y` - -1

Điều này cũng sẽ làm việc trên Linux nếu bạn có BSD jotcài đặt (ví dụ sudo apt-get install athena-jot.

Python 2, 62 byte

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

Và ở mức 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;

Đang xử lý, 51 42 41 byte

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

Bị đánh cắp

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

Việc xử lý chỉ là một trình bao bọc cho Java nếu bạn không biết và lấy đi phần lớn bản tóm tắt, vì vậy giải pháp rõ ràng cũng siêu ngắn so với phiên bản Java. Cũng mở một cửa sổ để vẽ đồ họa, nhưng việc đó dường như không đủ tiêu chuẩn cho tôi :)

MATLAB, 18 byte

Giả sử định dạng đầu ra không thành vấn đề (ngoài đơn đặt hàng giảm dần), chương trình sau sẽ in 121 năm qua bắt đầu với hiện tại.

year(date)-(0:120)

Nó yêu cầu MATLAB phiên bản r2014a trở lên. Các phiên bản trước không bao gồm yearchức năng.

JavaScript, 55 52 50 49 byte

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

+9 byte cho alertdữ liệu (không cần thiết nếu bạn chạy cái này trong bàn điều khiển).

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

-4 byte nếu dấu phân cách là không cần thiết.

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++));}

Ung dung:

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

Golf mã đầu tiên của tôi - Bất kỳ con trỏ sẽ được đón nhận. Sẽ rất tuyệt nếu tôi có thể loại bỏ rác argc / argv, nhưng tôi không phải là một lập trình viên C giỏi. Cải tiến chào mừng.

EDIT : Năm hiện tại có được từ dòng lệnh - đặc biệt bởi một nhóm các loài chim uống tự động, được huấn luyện tốt.

EDIT 2 : 85 byte Nhờ Easterly Irk (loại bỏ khoảng trắng xung quanh các tham số chức năng arg)

EDIT 3 : 76 byte Cảm ơn anatolyg vì đã chỉ ra rõ ràng (tên verbose argc / argv bị loại bỏ)

EDIT 4 : 74 byte Nhờ Yay295 (char ** v, dấu phân cách năm thay đổi)

EDIT 5 : 65 byte nhờ Yay295 và matt (sử dụng lại biến i, loại bỏ biến x, thay đổi trong khi thành vòng lặp, printf được cập nhật để bao gồm atoi () đọc và i ++)

JavaScript, 60 53 48 byte

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

Tôi đã sử dụng một giải pháp đệ quy.

Perl, 33 byte

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

Chạy với -M5.010hoặc -E:

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

k, 27 byte

Đầu ra theo quy định

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

Thí dụ:

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

Nó có thể được rút ngắn nhiều hơn bằng cách không định dạng đầu ra và chỉ trả về danh sách các số nguyên:

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

jq, 46 ký tự

(Mã 45 ký tự + 1 ký tự tùy chọn dòng lệnh)

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

Chạy mẫu:

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

Bài kiểm tra trực tuyến

Vim, 32 29 tổ hợp phím

Cảm ơn @daniero vì một số trợ giúp về việc lưu một số tổ hợp phím và làm cho đầu ra gọn gàng hơn một chút.

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

• <Enter> Là Enter
• <Ctrl-x>là Ctrl+X

Giải trình:

"                                          # 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

Định dạng đầu ra:

Mỗi số nằm trên một dòng riêng biệt như dưới đây.

2016
2015
.
.
.
1898
1897