Meydan okuma

Geçerli yılla başlayan ve 120 yıl önce sona eren yılların bir listesini verin. Yaşayan her insanın doğum yılı bu listeye dahil edilir.

ayrıntılar

Liste azalan sırada olmalıdır.

Dizileri ve / veya listeleri yöneten her yerleşik işleve izin verilir.

Bayt cinsinden en kısa kod kazanır.

Bu yıl çalıştırıldığında çıktı

2016, 2015, ..., 1897, 1896

Gelecek yıl çalıştırıldığında çıktı

2017, 2016, ..., 1898, 1897

Vb.

Güncelleme

• Bazıları listenin formatını sordu. Çoğu kişinin tahmin ettiği gibi, önemli değil. Sayılar arasına herhangi bir ayırıcı yerleştirin. Sezgisel olarak en çok girilen virgül veya boşluk veya her ikisi de, bir diziyi newline veya çıktı.
• Jeanne Calment gibi yarı süper insanlar benim sorumla belirtilen kuralın bir istisnası.

Pyke, 6 bayt

wC7m-

Burada dene!

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

(Sonra w153 için kod noktası var ancak yazdırılamıyor)

Pyth, 11 9 8 bayt

-L.d3C\y

Aralığın üzerinde eşleme yaparak [0...120]ve her sayıyı o yıldan çıkartarak çalışır. Aralık, 121harita argümanı olarak kullanılarak örtük olarak oluşturulmuştur. Arasında bir ayırma boşluk önlemek için .d3ve 121biz dönüştürerek bu sayı elde y's kod noktasıyla için.
@FryAmTheEggman'a bu yaklaşımı sağladığı için teşekkürler!

Burada dene!

Eski 9 baytlık çözüm:

_>121S.d3

Burada dene!

Aralığı oluşturur [1...<current year>]ve yalnızca son 121 elemanını alır.

R, 34 bayt

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

Çevrimiçi tercüman için buraya bakınız .

Düzenleme Kullanılarak 33 bayta indirilebilir substr.

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

Ancak teknik olarak bu çözüm sadece 9999-12-31 tarihine kadar çalışacaktır.

AngularJS + Lodash , 274 bayt

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

Çıktı

BASH + coreutils, 35 33 bayt

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

CJam, 14 12 11 bayt

Martin Ender sayesinde Sp3000 ve 1 byte sayesinde 2 bayt kaydedildi

et0=121,f-p

Çevrimiçi deneyin!

açıklama

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 bayt

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.

2016'dan 1896'ya kadar bir liste gösteriliyor:

05AB1E , 8 7 bayt

Kod:

žg120Ý-

Açıklama:

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

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin! .

PowerShell, 26 24 bayt

@TimmyD geliştirilmiş sürüm:

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

was:

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

nerede dateçalışıyorGet-Date

Dyalog APL , 11 10 bayt

120↑⌽⍳⊃⎕ts

120↑ 120 element al

⌽ ters çevrilmiş

⍳ kadar endeksler

⊃ ilk elemanı

⎕TS [YYYY, M, D, h, m, s, t] biçiminde TimeStamp

TryAPL çevrimiçi!

Eski versiyon:

(⊃⎕TS)-⍳120

⊃⎕TS [YYYY, M, D, h, m, s, t] 'nin ilk elemanı

- eksi

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

⎕IO←0Birçok sistemde varsayılan olan gerektirir .

TryAPL çevrimiçi!

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

Vitsy'nin yerel zaman / tarih alımı yok, bu yüzden bunun için shell ve eval kullanmam gerekti.

Bir başka 3 byte'ı kesmeme yardım ettiği için @Caleb'e teşekkürler!

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

Bunu çevrimiçi deneyemezsiniz, çünkü hem shell AND eval kullanır.

Çıktı karakter kodları gibidir.

Mathematica / Wolfram Dili, 28 bayt

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

R, 4739 bayt

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

Keşke birileri UTF-8'in R sık sık kullanılan sistem fonksiyonlarını kısaltılmış bir uygulaması icat etseydi ...

UDP: (!) 7 tıraş nedeniyle bayt plannapus bir subrtacting önerdi 0:120gelen vektörü yerine sayma aiçin (a-120)bayt öldürücü à ve 1 user5957401 , fark kim doubleyanı sıra çalışacak numeric. Eski versiyon:

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

MATL , 10 bayt

1&Z'0:120-

Çevrimiçi deneyin!

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 bayt

121FžgN-=

Çevrimiçi deneyin

php, 73 66 58 42 bayt

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

Çıktı:

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

Biz ayırmak gerekmiyorsa ,, sonra 58 57 41 bayt:

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

16 bayt kaydetmek için insertusernamehere teşekkürler

Python 2, 64 62 54 bayt

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

@KarlKastor 8 bayt için teşekkürler!

PostgreSQL, 57 bayt

Kimin bir FROM:-) ihtiyacı var ? Muhtemelen çalışmamalı, ama çalışıyor, sqlfiddle'da dene

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

OS X'te Bash, 23

jot 121 `date +%Y` - -1

BSD jotkurulu ise bu da Linux üzerinde çalışacaktır (örn sudo apt-get install athena-jot.

Python 2, 62 bayt

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

Ve 64 baytta:

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

Oracle SQL 11.2, 111 bayt

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

İşlem, 51 42 41 bayt

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

Ungolfed

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

İşleme, eğer bilmiyorsanız Java için bir sarmalayıcıdır ve kazanın çoğunu elinden alır, bu nedenle bariz çözüm aynı zamanda bir Java sürümüne kıyasla çok kısadır. Ayrıca grafik çizmek için bir pencere açar, ancak bana sahip olduğu diskalifiye görünmüyor :)

MATLAB, 18 bayt

Çıktı formatının önemli olmadığını varsayarak (azalan düzen dışında), aşağıdaki program geçerli olandan başlayarak son 121 yılı yazdırır.

year(date)-(0:120)

MATLAB sürüm r2014a veya üstü gerektirir. Daha önceki sürümleryear işlevi .

JavaScript, 55 52 50 49 bayt

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

alertVerilere +9 bayt (bunu bir konsolda çalıştırıyorsanız gerekli değildir).

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

Sınırlayıcı gerekli değilse -4 bayt.

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 bayt

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

İlk golf kodum - Herhangi bir işaretçi iyi karşılanacaktı. Argc / argv ıvır zıvırını kesebilirsem iyi olurdu, ama o kadar yetenekli bir C programcısı değilim . İyileştirmeler hoş geldiniz.

EDIT : Cari yıl, özellikle otomatik, iyi eğitimli bir içme kuşları grubu tarafından komut satırından alınmıştır.

EDIT 2 : 85 bayt Easterly Irk sayesinde (arg fonksiyon parametreleri etrafındaki boşluklar kaldırıldı)

3 EDIT : 76 bayt bariz işaret için anatolyg teşekkürler (kaldırılan ayrıntılı argc / argv param isimleri)

EDIT 4 : 74 bytes Yay295 sayesinde (char ** v, yıl sınırını değiştirdi)

EDIT 5 : 65 bayt, Yay295 ve matt sayesinde (i değişkenini, değişken x değişkeni tekrar kullandı, döngü için değiştirildi, printf atoi () read ve i ++ içerecek şekilde güncellendi)

JavaScript, 60 53 48 Bayt

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

Özyinelemeli bir çözüm kullandım.

Perl, 33 bayt

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

-M5.010Veya ile koş -E:

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

k, 27 bayt

Belirtildiği şekilde çıktı alın

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

Örnek:

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

Çıktıyı biçimlendirmeyerek ve sadece tamsayıların listesini döndürerek daha da kısaltılabilir:

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

jq, 46 karakter

(45 karakter kodu + 1 karakter komut satırı seçeneği)

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

Örnek çalışma:

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

Çevrimiçi test

Vim, 32 29 tuş vuruşları

Bazı tuş vuruşlarını kaydetme ve çıktıları daha düzenli hale getirme konusunda bazı yardımlar için @ daniero'ya teşekkür ederiz .

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

• <Enter> dır-dir Enter
• <Ctrl-x>olduğunu Ctrl+X

Açıklama:

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

Çıkış formatı:

Her numara aşağıdaki gibi ayrı bir satırdadır.

2016
2015
.
.
.
1898
1897