도전

현재 연도로 시작하여 120 년 전에 끝나는 연도 목록을 출력합니다. 모든 살아있는 인간의 출생 연도가이 목록에 포함됩니다.

세부

목록은 내림차순이어야합니다.

배열 및 / 또는 목록을 조작하는 모든 내장 기능이 허용됩니다.

바이트 단위의 최단 코드가 이깁니다.

올해 실행하면 출력은

2016, 2015, ..., 1897, 1896

내년에 실행하면 출력은

2017, 2016, ..., 1898, 1897

기타.

최신 정보

• 일부는 목록의 형식에 대해 물었습니다. 대부분 추측했듯이 중요하지 않습니다. 숫자 사이에 구분 기호를 삽입하십시오. 직관적으로 대부분 쉼표 나 공백 또는 둘 다 삽입하거나 배열을 출력합니다.
• Jeanne Calment 와 같은 준 초 인간 은 내 질문에 명시된 규칙의 예외입니다.

파이크, 6 바이트

wC7m-

여기 사용해보십시오!

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

(이후 w에는 153의 코드 포인트가 있지만 인쇄 할 수 없습니다)

Pyth, 11 9 8 바이트

-L.d3C\y

범위를 매핑 [0...120]하고 현재 연도에서 모든 숫자를 빼서 작동합니다 . 범위는 121map 인수로 사용하여 암시 적으로 빌드 됩니다. 사이에 분리 공백을 피하기 위해, .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.

1896 년부터 2016 년까지의 목록 표시 :

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] 형식의 타임 스탬프

TryAPL 온라인!

구 버전:

(⊃⎕TS)-⍳120

⊃⎕TS [YYYY, M, D, h, m, s, t]의 첫 번째 요소

- 마이너스

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

⎕IO←0많은 시스템에서 기본값 인이 필요합니다 .

TryAPL 온라인!

Vitsy + * sh + JavaScript , 33 26 21 18 바이트

Vitsy는 기본 시간 / 날짜 검색이 없으므로이 작업에 쉘과 평가를 사용해야했습니다.

다른 3 바이트를 제거하는 데 도움을 준 @Caleb에게 감사드립니다!

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

쉘과 평가를 모두 사용하기 때문에 온라인으로 시도 할 수 없습니다.

출력은 문자 코드입니다.

Mathematica / Wolfram 언어, 28 바이트

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

R, 47 39 바이트

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

누군가가 편리하게 자주 사용되는 시스템 기능으로 R의 UTF-8 구현을 발명 한 경우 ...

UPD : (!) 7 깎아은 때문에 바이트 plannapus subrtacting 제안 0:120에서 벡터보다는 계산을 a하는 (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, 1896

우리는 함께 분리 할 필요가없는 경우 ,다음 58 57 41 바이트를 :

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

16 바이트를 저장하는 insertusername 덕분에

파이썬 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)

OS X의 배쉬, 23

jot 121 `date +%Y` - -1

이것은 BSD가 jot설치되어 있는 경우 Linux에서도 작동합니다 (예 : sudo apt-get install athena-jot.

파이썬 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기능이 포함되지 않았습니다 .

자바 스크립트, 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 덕분에 (제거 된 verbose argc / argv 매개 변수 이름)

편집 4 : 74 바이트 Yay295 덕분에 (char ** v, 연도 구분 기호 변경)

편집 5 : Yay295 및 matt 덕분에 65 바이트 (변수 i 재사용, 변수 x 제거, for 루프 동안 변경, atoi () read 및 i ++를 포함하도록 printf 업데이트)

자바 스크립트, 60 53 48 바이트

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

재귀 솔루션을 사용했습니다.

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