ความท้าทาย

แสดงรายการปีที่เริ่มต้นด้วยปีปัจจุบันและสิ้นสุดเมื่อ 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

(หลังจากนั้นwcodepoint สำหรับ 153 มีอยู่ แต่ไม่สามารถพิมพ์ได้)

Pyth, 11 9 8 ไบต์

-L.d3C\y

ทำงานโดยการทำแผนที่ในช่วง[0...120]และลบออกทุกหมายเลขจากปีปัจจุบัน ช่วงนี้ถูกสร้างขึ้นโดยปริยายโดยใช้121เป็นอาร์กิวเมนต์แผนที่ เพื่อหลีกเลี่ยงช่องว่างแยกระหว่าง.d3และ121เราได้รับหมายเลขนี้โดยการแปลงyเป็น codepoint
ขอบคุณ @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 bytes

บันทึก 2 ไบต์ด้วย Sp3000 และ 1 ไบต์ขอบคุณ Martin Ender

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

Ungolfed:

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.

แสดงรายการปี 2559 ถึงปี 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 TimeStamp ในรูปแบบ [YYYY, M, D, h, m, s, t]

ลองใช้ออนไลน์!

เวอร์ชั่นเก่า:

(⊃⎕TS)-⍳120

⊃⎕TS องค์ประกอบแรกของ [YYYY, M, D, h, m, s, t]

- ลบ

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

ต้องการ⎕IO←0ซึ่งเป็นค่าเริ่มต้นในหลาย ๆ ระบบ

ลองใช้ออนไลน์!

Vitsy + * sh + JavaScript , 33 26 21 18 ไบต์

Vitsy ไม่มีการเรียกคืนวันที่ / เวลาดั้งเดิมดังนั้นฉันต้องใช้เชลล์และ 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.

คุณไม่สามารถลองอันนี้แบบออนไลน์ได้เพราะมันใช้ทั้งเชลล์และ eval

เอาต์พุตเป็นรหัสอักขระ

Mathematica / Wolfram Language, 28 ไบต์

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

R, 47 39 ไบต์

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

หากมีเพียงบางคนที่คิดค้นการใช้งาน UTF-8 ของ R ด้วยฟังก์ชั่นระบบที่ใช้งานง่าย ...

UPD: ลบออก 7 (!) ไบต์เนื่องจากplannapusผู้แนะนำ subrtacting a0: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));

เอาท์พุท:

2559, 2558, 2557, 2556, 2555, 2553, 2552, 2551, 2550, 2549, 2549, 2548, 2546, 2545, 2544, 2543, 2542, 2541, 2540, 2539, 2538, 2536, 2535, 2535, 2534, 2533, 2532, 2531, 2529, 2528, 2527, 2526, 2525, 2524, 2523, 2522, 2522, 2519, 2519, 2519, 2517, 2519, 2529, 2511, 2511, 2510, 2509, 2508, 2507, 2506, 2505, 2504, 2503, 2502, 2501, 2502, 2505, 2504, 2504, 2504, 2490, 2490, 2487, 2486, 2486, 2486 2484, 2483, 2482, 2481, 2480, 2479, 2478, 2476, 2475, 2474, 2473, 2473, 2472, 2472, 2470, 2469, 2467, 2466, 2466, 2464, 2461, 2461, 2461, 2461, 2460, 2460 2459, 2458, 2457, 2456, 2455, 2454, 2453, 2452, 2451, 2449, 2449, 2448, 2447, 2446, 2446, 2444, 2442, 2441, 2440, 2439, 2439

หากเราไม่ต้องการแยกด้วย,ดังนั้น58 57 41 ไบต์:

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

ขอบคุณที่ใส่ชื่อที่นี่สำหรับการบันทึก 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

นอกจากนี้ยังจะทำงานบนลินุกซ์หากคุณมี BSD jotติดตั้ง 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+++" ");

Ungolfed

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

+9 ไบต์กับalertข้อมูล (ไม่จำเป็นถ้าคุณเรียกใช้ในคอนโซล)

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

Ungolfed:

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

รหัสกอล์ฟครั้งแรกของฉัน - ตัวชี้ใด ๆ จะได้รับการตอบรับดี คงจะดีถ้าฉันสามารถกำจัดขยะ argc / argv แต่ฉันไม่ใช่โปรแกรมเมอร์ซีที่เก่ง ยินดีต้อนรับการปรับปรุง

แก้ไข : ปีปัจจุบันได้รับจาก commandline - โดยเฉพาะกลุ่มนกอัตโนมัติที่ผ่านการฝึกอบรมมาอย่างดี

แก้ไข 2 : 85 ไบต์ขอบคุณ Easterly Irk (ลบช่องว่างรอบพารามิเตอร์ฟังก์ชัน ARG)

แก้ไข 3 : 76 bytes ขอบคุณ anatolyg สำหรับการชี้ชัด (ลบ verbose argc / argv param ชื่อ)

แก้ไข 4 : 74 ไบต์ขอบคุณ Yay295 (ถ่าน ** v, ตัวคั่นปีที่เปลี่ยน)

แก้ไข 5 : 65 ไบต์ขอบคุณ Yay295 และ matt (ใช้ตัวแปร i อีกครั้ง, ลบตัวแปร x, เปลี่ยนไปเป็นลูป, ปรับปรุง printf เพื่อรวม atoi () อ่านและ i ++)

JavaScript, 60 53 48 Bytes

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

การทดสอบออนไลน์

เป็นกลุ่ม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