Bir tarih, işaretsiz bir tamsayı ile gösterilebilir: YYYYMMDD. Yapmanız gereken, numarası belirli bir numaraya bölünebilen en son tarihi belirleyen en kısa programı veya işlevi yazmaktır n(bugünün tarihini de içeren). Belirtilen tamsayı ile bölünebilen bir tarih (00000101 ile bugün arasında dahil) bir tarih olmadıysa, -1 değerini döndürmelisiniz.

Örnekler

Current Date     Input     Output

30 July, 2014      4       20140728
30 July, 2014      7       20140729
28 July, 2014      4       20140728
28 July, 2014      7       20140722
28 July,    5    90000     -1

Giriş

STDIN'den okuyabilir veya bir fonksiyon argümanı alabilir, hatta girişin bir değişkende saklanmasını bekleyebilirsiniz. Giriş imzasız bir tamsayı olacaktır.

Çıktı

YYYYMMDD biçiminde tarihi temsil eden tamsayıyı STDOUT'a yazın veya geri döndürün (veya değişkene kaydedin).

Kısıtlamalar

Dilinizin sunduğu herhangi bir standart kütüphaneyi kullanabilirsiniz. Standart boşluklar uygulanır.

Kazanma koşulları

Bu bir kod golf , yani en küçük program (bayt cinsinden) kazanır. Beraberlik durumunda en fazla oy alan cevap kazanır.

Mathematica, 93 60 bayt

For[i=0,(r=DatePlus@i--~FromDigits~100)>0&&!n∣r,];r~Max~-1

Girilecek girişi bekler n.

Dikey çizginin ∣, 3 bayt (UTF-8) olarak saydığım "bölmeler" için unicode karakteri olduğunu unutmayın .

Düzenleme: şişirilmiş DateStringve biçim belirtimi önlemek için temiz bir hile bulundu :).

Düzenleme:-1 Gereksinimi tamamen unuttum . Şimdi düzeltildi.

İşte bir açıklama

For[i=0,            i--                        ,];         (* i is the number of days AFTER
                                                              today. Hence, we decrement 
                                                              it. *)
For[i=0,   DatePlus@i--                        ,];         (* If no reference date is
                                                              provided, DatePlus will add
                                                              the given number of days to
                                                              today's date. The result is a 
                                                              list of 3 integers, luckily 
                                                              in order {year,month,day} *)
For[i=0,   DatePlus@i--~FromDigits~100         ,];         (* Interpret these as the digits
                                                              of a base 100 number. The 
                                                              beauty is that FromDigits
                                                              doesn't care about digits 
                                                              greater than the base and 
                                                              just carries them over. *)
For[i=0,(r=DatePlus@i--~FromDigits~100)        ,];         (* Store the number in r. *)
For[i=0,(r=DatePlus@i--~FromDigits~100)>0      ,];         (* Make sure it's positive. *)
For[i=0,(r=DatePlus@i--~FromDigits~100)>0&&!n|r,];         (* And keep going while n does 
                                                              not divide r. *)
For[i=0,(r=DatePlus@i--~FromDigits~100)>0&&!n|r,];r~Max~-1 (* Clamp result to -1. *)

Unicode bir monospacing ile uğraştığından açıklama |yerine kullandığımı unutmayın ∣.

Python 2 - 150

import datetime as d,re
def f(n):
 t=d.date.today()
 while t:
    c=int(re.sub("-","",str(t)))
    if c%n<1:return c
    try:t-=d.timedelta(1)
    except:return-1

Teşekkürler @ chill0r, days = 'u kaldırmak için öneri için, ve try bloğunun bir satıra indirgenebileceğini belirten Jason S.

C # 136

Gözden geçirilmiş teknik özelliklerle, işaretsiz bir int alan ve bir int döndüren bir işlev.

int F(uint n){var d=System.DateTime.Now;int i;try{while((i=int.Parse(d.ToString("yyyMMdd")))%n>0)d=d.AddDays(-1);}catch{i=-1;}return i;}

Değişken giriş / çıkış ile 152 karakter

Gevşek giriş / çıkış gereksinimlerinden yararlanarak giriş değişkende saklanır n(şu anda tamsayı hariç tüm karakterleri sayar) ve çıkış değişkenle sağlanır s.

class P{static void Main(){var n=4;var d=System.DateTime.Now;string s;try{while(int.Parse(s=d.ToString("yyyMMdd"))%n>0)d=d.AddDays(-1);}catch{s="-1";}}}

STDIN / STDOUT ile 204 karakter:

using System;class P{static void Main(){int n=int.Parse(Console.ReadLine());var d=DateTime.Now;string s;try{while(int.Parse(s=d.ToString("yyyMMdd"))%n>0)d=d.AddDays(-1);}catch{s="-1";}Console.Write(s);}}

T-SQL (2012) - 148

N değerine sahip bir serbest değişken olduğunu @n varsayalım.

declare @ date=getdate()while convert(char,@,112)%@n>0 and'00010101'<@ set @=dateadd(d,-1,@)print iif(convert(char,@,112)%@n=0,convert(char,@),'-1')

Golflua 90 86

n=I.r()d="%Y%m%d"i=O.d(d)+0j=0@i>0?i%n==0w(i)O.q()$j=j+1i=O.d(d,O.t()-j*86400)+0$w(-1)

Ungolfed Lua versiyonu,

n = io.read()
d = "%Y%m%d"
i = os.date(d)+0   -- implicitly casts os.date(d) to int
j = 0
while i>0 do
   if i % n == 0 then
      print(i)
      os.exit()
   end
   j = j+1
   i = os.date(d,os.time()-j*86400)+0
end
print(-1)

MATLAB: 61

-1,s=str2num(datestr(1:now,'YYYYmmDD')),d=s(~mod(s,n)),d(end)

Bölenin saklandığı varsayılmaktadır n. Sonuç olarak adlandırılan değişkende saklanır ans.

Yorumlanan sürüm:

-1                                     % Store -1 in ans in case we don't find anything
s=str2num(datestr(1:now,'YYYYmmDD'))   % Make a list of date numbers
d=s(~mod(s,n)),                        % Select only those who are dividable and prepend -1
d(end)                                 % Store last found value in ans, if anything is found

Sonuç bulunamazsa bir hata üretilecektir, ancak buna rağmen değişkende cevap hala mevcuttur.

Fazladan 2 karakter karşılığında hata önlenebilir:

s=str2num(datestr(1:now,'YYYYmmDD')),d=[-1;s(~mod(s,n))],d(end)

PHP (92 = 85 + 7)

Girilen girişin kaydedilmesini bekler $n.

for($d=date("Ymd");!($d%$n==0&checkdate($d/100%100,$d%100,substr($d,0,4))|$d<0);$d--);echo$d

PHP'yi neden sevmediğimi şimdi hatırladım =)

EDIT: Şimdi şartnamelerin -1'i de uygulanmaktadır.

JavaScript (ES6) 115

N değişkeninde sayı beklenir, r değişkeninde depolanan sonuç. Her gün kontrol edilir, geçerli tarihle başlar ve azalır - daha iyi bir yol olmalı.
Dahası, standart javascript tarih fonksiyonlarını kullanarak, tüm tarihler 1. yıla kadar gregoriandır (gregorian reformundan önce artık yılların yanlış olması nedeniyle).

for(z=new Date,t=n+1;t>n&&t%n;)
  d=z.getDate(),
  t=z.getFullYear()*1e4+(z.getMonth()+1)*100+d,
  z.setDate(d-1);
r=t>n?t:-1

C # - 144 (Veya LINQPad’de 124) n

Bu, girişin değişkende olmasını bekler n. Uygulama sonunda istenen değer değişkende olacaktır r. 00010101Tarihin olmadığı için bu ilk tarih olarak kabul edilir 00000101. İyileştirme için öneriler her zaman beklerim.

class P{static void Main(){int n=7,r;var d=System.DateTime.Now;try{for(;(r=int.Parse(d.ToString("yyyMMdd")))%n>0;d=d.AddDays(-1));}catch{r=-1;}}}

LINQPad sürümü:

int n=7,r;var d=System.DateTime.Now;try{for(;(r=int.Parse(d.ToString("yyyMMdd")))%n>0;d=d.AddDays(-1));}catch{r=-1;}r.Dump();

Harika - 301 300 karakter

Çok basit (ve yavaş), Joda Time kullandığı gerçeğini gizlemek için hiçbir hile ile.

golfed:

@Grab(group='joda-time', module='joda-time', version='2.3')
import org.joda.time.*
import org.joda.time.format.*
f={DateTimeFormat.forPattern("yyyyMMdd").print(new LocalDate().minusDays(it)) as int}
n=args[0] as int;b=0;x=-1;c=0
while(!b){if(f(c++)%n==0){x=f(--c);b=1};if(f(0)-c<=101){b=1}}
println x

Örnek çalışma (7/30/2014 tarihinde):

$ groovy D.groovy  7
20140729
$ groovy D.groovy  16
20140720
$ groovy D.groovy  90000
-1

Ungolfed:

@Grab(group='joda-time', module='joda-time', version='2.3')

import org.joda.time.*
import org.joda.time.format.*

f = { DateTimeFormat.forPattern("yyyyMMdd").print(new LocalDate().minusDays(it)) as int }

n = args[0] as int
b = 0 
x = -1
c = 0

while (!b) {
    if(f(c++)%n==0) { x=f(--c); b=1}
    if(f(0)-c<=101){b=1}
}

println x

R, 146 139

D=function(n){
z=as.double(gsub("-","",y<-Sys.Date()))
d=F
while(z>100&!d){
y=y-1 
z=as.double(gsub("-","",y))
d=!z%%n}
ifelse(z>100,z,-1)}

İşe yaramayan bir tarihte iyi şanslar. microbenchmark15 gün öncesine geri dönmenin yaklaşık yarım saniye sürdüğünü bildirdi. 31 Temmuz 2014 itibariyle -1, en azından zarfın arkasına göre tükürmek 20 milyon saniye (~ 23 gün) gibi bir şey alacaktır .

düzenleme : yorumlarda bazı kısayollar

Matlab 104

function d=f(v);for d=fix(now):-1:1 d=str2num(datestr(d,'YYYYmmDD'));if~mod(d,v)return;end;end;d=-1;end

Ungolfed:

function d = f(v)
   for d=fix(now):-1:1
       d = str2num(datestr(d,'YYYYmmDD'));
       if ~mod(d,v)
          return; 
       end
   end
   d = -1;
end

EDIT: Biraz optimize etmeyi başardım, fakat @DennisJaheruddin'ın burada gerçek çözümü var

Python 3 - 151 148 bayt, jeneratörler

from datetime import*
t=date.today()
f=lambda n:next((y for y in(int((t-timedelta(o)).strftime("%Y%m%d"))for o in range(t.toordinal()))if y%n<1),-1)

İçin teşekkürler @ nyuszika7h import*öneri

Yakut 103

require'date'
f=->{d=Date.today 
(s=d.strftime('%Y%m%d').to_i
return s if s%n<1
d-=1)while d.year>0
-1}

Giriş

Değişkende bulunan bölen değerinin olmasını bekler n .

Çıktı

Geri dönüş değeri fFonksiyonun

Çevrimiçi örnek: http://ideone.com/LoYxG4

Java: 373 karakter

Bu Groovy cevabının bir liman ve Joda Time kullanır.

golfed:

import org.joda.time.*;
import org.joda.time.format.*;
public class D {
static int f(int i){return Integer.parseInt(DateTimeFormat.forPattern("yyyyMMdd").print(new LocalDate().minusDays(i)));}
public static void main(String[] args){
int n=Integer.parseInt(args[0]);int b=0,c=0,x=-1;
while(b!=1){if(f(c++)%n==0){x=f(--c);b=1;};if(f(0)-c<=101){b=1;}}
System.out.println(x);}}

Örnek çalışır (sınıf yolunda joda-time-2.4.jar ile:

$ java D 7
20140729
$ java D 4
20140728
$ java D 16
20140720
$ java D 90000
-1

Ungolfed:

import org.joda.time.*;
import org.joda.time.format.*;

public class D {
    static int f(int i) {
        return Integer.parseInt(DateTimeFormat.forPattern("yyyyMMdd").print(new LocalDate().minusDays(i)));
    }

    public static void main(String[] args) {
        int n = Integer.parseInt(args[0]);
        int b = 0,c = 0,x = -1;

        while(b!=1) {
            if(f(c++)%n==0) { x=f(--c);b=1; }
            if(f(0)-c<=101) { b=1; }
        }

        System.out.println(x);
    }
}

Bash + coreutils (8.21), 67 bayt

seq -f-%gday $[9**9]|date -f- +[pq]sp[_1pq]sq%Y%m%ddA1=qd$1%%0=p|dc

• seqher satıra bir tane olmak üzere 1 ila 9 ⁹ arasında tamsayılar oluşturur ve-<x>day
• date -fher çizgiyi yorumlayan ve dcböyle bir ifadeye biçimlendirilmiş tarihi [pq] sp [_1pq] sq 20140728 d A1 =q d 7% 0=p(okunabilirlik için eklenen boşluklar) çıkaran boru
  • [pq] yığının üst kısmını yazdırmak için bir makro tanımlayın, ardından
  • sp Makroyu p kaydına kaydet
  • [pq] -1'e basacak bir makro tanımlayın, yığının üstünü yazdırın, sonra çıkın
  • sq Makroyu kaydetme siciline kaydet q
  • 20140728 gömülü tarih tamsayı
  • d yığının çoğaltılmış
  • A1 101 (00000101)
  • =qpop top 2 yığın değeri: tarih ve 101'i karşılaştır ve qeşitse makro çağır
  • 7 itici bölücü
  • % bölme ve bölme pop, bölme ve kalanı itme
  • 0 0'a bas
  • =p pop top 2 yığın değerleri: kalanı ve 0'ı karşılaştırın ve makroyu çağırın p eşitse
  • d yığının çoğaltılmış
  • Makro pdenir: tarih tamsayısını basar ve dctamamen çıkar
• dcifadeler dcdeğerlendirme için yayınlanmıştır. Bir kere dcdoğru değeri yazdırır ve çıkar, boru hattının geri kalanı parçalanır

Çıktı:

$ ./lastdivdate.sh 4
20140728
$ ./lastdivdate.sh 7
20140729
$ ./lastdivdate.sh 123456
17901120
$ ./lastdivdate.sh 77777
19910912
$ ./lastdivdate.sh 7777777
-1
$ 

Bu program 1 ila 9 ⁹ arasında tamsayılar ürettiğinden , gelecekte 1 milyon yıldan fazla geçerli olacaktır. Umarım bu sınırlama kabul edilebilir ;-)

Teşekkürler @ WumpusQ.Wumbley -1 dönüşünü kısaltmak için.

PYTHON: 134 bayt

Şu anki lideri yenemeyeceksin ve bu en iyi Python cevabından daha iyi değil, ama en iyi Python çözümümü göndermeye karar verdim.

from datetime import*
def y(a,n):
 s=a.strftime("%Y%m%d")
 if int(s)%n==0:yield s
 try:x=y(a-timedelta(1),n)
 except:yield -1
 yield x

Ungolfed:

from datetime import *
def y(a, n):
    s=int(a.strftime("%Y%m%d"))
    if s%n==0:
        yield s
    try:
        x=y(a-timedelta(1), n)
    except:
        yield -1
    yield x

JavaScript (ES5) - 94

Girdiyi değişkende bekler xve çıktıyı içine yerleştirir o.

for(i=Date.now();i>-7e13&&(o=(new Date(i)).toISOString().replace(/-|T.*/g,''))%x;i-=864e5)o=-1

k4 (84) (73)

f:{f d@*|&~.q.mod[(f:{$[^x;-1;.($x)@&~"."=$x]})'d:{"d"$x+!1+"i"$y-x}[-730457;.z.D];x]}

Bu akla gelen ilk algoritma ile sadece bir ilk kesimdir; Hem performans hem de uzunluk açısından daha iyi olabileceğinden eminim.

Bu sürüm "bugün" bölümünü kodlar (bu .z.D); yyyy.mm.ddsınama durumlarını çalıştırmak için onu bir tarih değişkeni ( ) veya q tarih sisteminde (1 Ocak 2000'den günler) bir tam sayı olarak değiştirin. (q, on sekizinci yüzyılın başlarından daha eski olan tarih değişmezlerini ayrıştırmayacaktır, bu nedenle ondan önceki tarihler için değeri hesaplamanız ve uygun tamsayıyı doğrudan kullanmanız gerekir. dışında olması -730457fonksiyon kodunda kullanıldığı,. 28 Temmuz AD 5, son test davadan, olarak çıkıyor -728450.)

Verilen test durumları:

  {f d@*|&~.q.mod[(f:{$[^x;-1;.($x)@&~"."=$x]})'d:{"d"$x+!1+"i"$y-x}[-730457;2014.07.30];x]}4
20140728
  {f d@*|&~.q.mod[(f:{$[^x;-1;.($x)@&~"."=$x]})'d:{"d"$x+!1+"i"$y-x}[-730457;2014.07.30];x]}7
20140729
  {f d@*|&~.q.mod[(f:{$[^x;-1;.($x)@&~"."=$x]})'d:{"d"$x+!1+"i"$y-x}[-730457;2014.07.28];x]}4
20140728
  {f d@*|&~.q.mod[(f:{$[^x;-1;.($x)@&~"."=$x]})'d:{"d"$x+!1+"i"$y-x}[-730457;2014.07.28];x]}7
20140722
  "d"$-728450
0005.07.28
  {f d@*|&~.q.mod[(f:{$[^x;-1;.($x)@&~"."=$x]})'d:{"d"$x+!1+"i"$y-x}[-730457;-728450];x]}90000
-1

Düzenle:

g:.,/$`\:`$$:;f:{$[Z=r:{(z>x)&.q.mod[g z]y}[Z:-730458;y]{x-1}/x;-1;g"d"$r]}

Bu, yakınsama operatörlerinden birini kullanarak tarihi bölünebilir bir tane bulana veya 1/1/0000 sınırını geçinceye kadar azaltmak için kullanan farklı bir yaklaşımdır. Ayrıca tarihten tamsayıya dönüşüm biraz farklıdır.

Test vakaları, bu sefer bir kerede:

  g:.,/$`\:`$$:;{$[Z=r:{(z>x)&.q.mod[g z]y}[Z:-730458;y]{x-1}/x;-1;g"d"$r]}'[2014.07.30 2014.07.30 2014.07.28 2014.07.28,"d"$-728450;4 7 4 7 90000]
20140728 20140729 20140728 20140722 -1

VBA 343 bayt (modül)

Sub divD(i As Long)
a = Now()
b = Format(a, "yyyymmdd")
    Do While b / i <> Int(b / i)
    a = DateAdd("d", -1, a)
    b = Format(a, "yyyymmdd")
        If b = "01000101" Then
            MsgBox -1
            Exit Sub
        End If
    Loop
MsgBox b
End Sub

PowerShell - 76

Bu, değişkende saklanan sayıya bağlıdır $n.

try{@(0..$n|%{'{0:yyyyMMdd}'-f(date).AddDays(-$_)}|?{!($_%$n)})[0]}catch{-1}