挑战

输出从当前年份开始到120年前结束的年份列表。每个活着的人的出生年份将包括在此列表中。

细节

该列表应按降序排列。

允许使用每个内置函数来操纵数组和/或列表。

以字节为单位的最短代码获胜。

今年运行时，输出为

2016, 2015, ..., 1897, 1896

明年运行时，输出为

2017, 2016, ..., 1898, 1897

等等。

更新资料

• 有些人询问了列表的格式。正如大多数人所猜测的，这无关紧要。在数字之间插入任何分隔符。直观上，大多数情况下插入逗号或空格或两者，换行符或输出数组。
• 珍妮·卡门特（Jeanne Calment）等准超人是我问题中提到的规则的例外。

Pyke，6个字节

wC7m-

在这里尝试！

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

（之后w，存在153的代码点，但无法打印）

Pyth，11 9 8字节

-L.d3C\y

通过映射范围[0...120]并从当前年份中减去每个数字来工作。范围是通过121用作map参数隐式构建的。为避免在之间使用空格.d3，121我们通过转换y为它的代码点来获得此数字。
感谢@FryAmTheEggman提出了这种方法！

在这里尝试！

旧的9字节解决方案：

_>121S.d3

在这里尝试！

建立范围[1...<current year>]，仅接受范围的最后121个元素。

R，34个字节

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

请参阅此处的在线翻译。

使用可以将“ 编辑”减少为33个字节substr。

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

但从技术上讲，此解决方案仅在9999-12-31之前有效。

AngularJS + Lodash，274个字节

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

输出量

BASH + coreutils，35 33字节

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

CJam，14 12 11字节

Sp3000节省了2个字节，Martin Ender节省了1个字节

et0=121,f-p

在线尝试！

说明

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个字节

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

取消高尔夫：

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.

显示2016年至1896年的清单：

05AB1E，8 7字节

码：

žg120Ý-

说明：

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

使用CP-1252编码。在线尝试！。

PowerShell，26个 24字节

@TimmyD改进版：

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

是：

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

在哪里date跑Get-Date

Dyalog APL，11个10 字节

120↑⌽⍳⊃⎕ts

120↑ 带120个元素

⌽ 反转的

⍳ 索引直到

⊃ 第一个要素

⎕TS 时间戳记，格式为[YYYY，M，D，h，m，s，t]

在线尝试APL！

旧版本：

(⊃⎕TS)-⍳120

⊃⎕TS [YYYY，M，D，h，m，s，t]的第一个元素

- 减去

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

要求⎕IO←0，这是许多系统上的默认设置。

在线尝试APL！

Vitsy + * sh + JavaScript，33 26 21 18字节

Vitsy没有本地时间/日期检索功能，因此我不得不为此使用shell和eval。

感谢@Caleb帮助我减少了另外3个字节！

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

您无法在线尝试使用此命令，因为它同时使用了shell和eval。

输出为字符代码。

Mathematica / Wolfram语言，28个字节

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

R，47 39字节

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

如果只有某人发明了R的UTF-8实现并带有经常使用的缩写系统功能...

UPD：由于plannapus减少了7（！）字节，建议删除一个0:120向量，而不是从ato到(a-120)1字节计数àuser5957401，后者注意到该double方法同样适用numeric。旧版本：

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

MATL，10字节

1&Z'0:120-

在线尝试！

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个字节

121FžgN-=

在线尝试

php，73 66 58 42字节

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

输出：

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、1897、1896

如果我们不需要用分隔,，则58 57 41个字节：

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

感谢insertusernamehere节省了16个字节

Python 2，64 62 54字节

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

@KarlKastor感谢您提供8个字节！

PostgreSQL，57个字节

谁需要一个FROM:-)。可能不应该，但是可以，请在sqlfiddle中尝试

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

Bash在OS X上，23

jot 121 `date +%Y` - -1

如果您已jot安装BSD （例如），这在Linux上也可以使用sudo apt-get install athena-jot。

Python 2，62个字节

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

并为64个字节：

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

Oracle SQL 11.2，111字节

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

处理中，51 42 41字节

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

不打高尔夫球

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

如果您不知道，处理只是Java的包装，它会占用大部分样板，因此与Java版本相比，显而易见的解决方案也非常短。还会打开一个用于绘制图形的窗口，但是看起来没有资格取消我的资格:)

MATLAB，18个字节

假设输出格式无关紧要（除格式降序外），以下程序将打印从当前年份开始的最近121年。

year(date)-(0:120)

它需要MATLAB版本r2014a或更高版本。早期版本不包含该year功能。

JavaScript，55 52 50 49字节

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

alert数据+9字节（如果在控制台中运行，则不需要）。

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

如果不需要定界符，则为-4个字节。

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字节

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

取消高尔夫：

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

我的第一个代码高尔夫球-任何指针都会受到欢迎。如果可以切掉argc / argv垃圾，那会很好，但是我不是C语言程序员那么熟练。欢迎改进。

编辑：本年度是从命令行中获得的-特别是由一群自动化的，训练有素的饮水鸟获得的。

编辑 2：85个字节，感谢Easterly Irk（删除了arg函数参数周围的空格）

编辑 3：76个字节感谢anatolyg指出了显而易见的（删除了冗长的argc / argv参数名称）

编辑 4：74个字节，感谢Yay295（char ** v，更改的年份分隔符）

编辑 5：65字节，感谢Yay295和matt（重新使用了变量i，删除了变量x，更改为for循环，更新了printf以包括atoi（）读取和i ++）

JavaScript，60 53 48字节

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

我使用了递归解决方案。

Perl，33个字节

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

使用-M5.010或运行-E：

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

k，27个字节

按指定输出

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

例：

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

可以通过不格式化输出而仅返回整数列表来进一步缩短它：

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

jq，46个字符

（45个字符的代码+ 1个字符的命令行选项）

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

样品运行：

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

在线测试

Vim，32 29击键

感谢@daniero在保存一些击键和使输出更整洁方面提供了一些帮助。

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

• <Enter> 是 Enter
• <Ctrl-x>是Ctrl+X

说明：

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

输出格式：

每个数字都在单独的一行中，如下所示。

2016
2015
.
.
.
1898
1897