Tanggal dapat diwakili oleh integer yang tidak ditandai seperti itu: YYYYMMDD. Yang perlu Anda lakukan adalah menulis program atau fungsi terpendek yang mencari tahu tanggal terbaru yang jumlahnya dapat dibagi dengan angka yang diberikan n(termasuk tanggal hari ini) dan kemudian mengembalikan tanggal itu dalam format yang ditunjukkan di atas. Jika tidak pernah ada tanggal (antara 00000101 dan hari ini inklusif) yang dapat dibagi oleh bilangan bulat yang diberikan, Anda harus mengembalikan -1.

Contohnya

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

Memasukkan

Anda dapat membaca dari STDIN atau mengambil argumen fungsi atau bahkan berharap input disimpan dalam variabel. Input akan berupa bilangan bulat yang tidak ditandatangani.

Keluaran

Menulis ke STDOUT atau mengembalikan (atau menyimpan dalam variabel) integer yang mewakili tanggal dalam format YYYYMMDD.

Batasan

Anda dapat menggunakan perpustakaan standar apa pun yang ditawarkan bahasa Anda. Celah standar berlaku.

Kondisi menang

Ini adalah kode-golf , sehingga program terkecil (dalam byte) menang. Dalam kasus seri, jawaban dengan suara terbanyak menang.

Mathematica, 93 60 byte

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

Diharapkan input untuk disimpan n.

Perhatikan bahwa garis vertikal ∣adalah karakter unicode untuk "membagi", yang saya hitung sebagai 3 byte (UTF-8).

Sunting: Ditemukan trik yang rapi untuk menghindari DateStringspesifikasi kembung dan format :).

Sunting: Benar-benar lupa tentang -1persyaratan. Diperbaiki sekarang

Berikut ini penjelasannya

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. *)

Perhatikan bahwa saya telah menggunakan |bukannya ∣dalam penjelasan, karena Unicode yang mengacaukan monospacing.

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

Terima kasih @ chill0r untuk saran untuk menghapus hari =, dan Jason S untuk tip bahwa blok coba dapat dikurangi menjadi satu baris.

C # 136

Dengan spesifikasi yang direvisi, fungsi yang mengambil int yang tidak ditandatangani dan mengembalikan int.

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

152 karakter dengan input / output variabel

Mengambil keuntungan dari persyaratan input / output yang longgar, input harus disimpan dalam variabel n(saat ini menghitung semua karakter kecuali bilangan bulat literal), dan output disediakan dengan variabel 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";}}}

204 karakter dengan STDIN / STDOUT:

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

Asumsikan ada variabel bebas @n dengan nilai n.

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)

Versi Lua ungolfed akan menjadi,

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)

Asumsikan pembagi disimpan dalam n. Hasilnya akan disimpan dalam variabel yang disebutans .

Versi yang dikomentari:

-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

Akan menghasilkan kesalahan jika tidak ada hasil ditemukan, tetapi jawabannya masih tersedia dalam variabel meskipun begitu.

Kesalahan dapat dihindari dengan biaya 2 karakter tambahan:

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

PHP (92 = 85 + 7)

Diharapkan input untuk disimpan $n.

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

Saya baru ingat mengapa saya tidak suka PHP lagi =)

EDIT: Sekarang -1 dari spesifikasi juga diterapkan.

JavaScript (ES6) 115

Mengharapkan angka dalam variabel n, hasil disimpan dalam variabel r. Setiap hari diperiksa, dimulai dengan tanggal saat ini dan pengurangan - harus ada cara yang lebih baik.
Selain itu, dengan menggunakan fungsi tanggal javascript standar, semua tanggal adalah gregorian hingga tahun 1 (dengan tahun kabisat salah sebelum reformasi gregorian).

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 (Atau 124 dalam LINQPad) +1 untuk setiap digit dalam n

Ini mengharapkan input berada dalam variabel n. Pada akhir eksekusi, nilai yang diinginkan akan berada dalam variabel r. Ini dianggap 00010101sebagai kencan pertama, karena tanggal 00000101tersebut tidak ada. Saran untuk perbaikan selalu diterima.

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

Versi LINQPad:

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();

Groovy - 301 300 karakter

Sangat sederhana (dan lambat), tanpa trik untuk menyembunyikan fakta bahwa ia menggunakan Joda Time.

Golf:

@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

Contoh dijalankan (pada 7/30/2014):

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

Tidak Disatukan:

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

Semoga beruntung dengan kencan yang tidak berfungsi. microbenchmarkmelaporkan dibutuhkan sekitar setengah detik untuk kembali 15 hari. Pada 31 Juli 2014, ini akan memakan waktu sekitar 20 juta detik (~ 23 hari) untuk dimuntahkan -1, setidaknya sesuai dengan bagian belakang amplop.

sunting : beberapa pintasan dalam komentar

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

Tidak Terkumpul:

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: Saya berhasil sedikit mengoptimalkannya, tetapi @DennisJaheruddin memiliki solusi nyata di sini

Python 3 - 151 148 byte, generator

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)

Terima kasih @ nyuszika7h untuk import*sarannya

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

Memasukkan

Mengharapkan nilai pembagi hadir dalam variabel n.

Keluaran

Nilai pengembalian ffungsi

Contoh daring: http://ideone.com/LoYxG4

Java: 373 karakter

Ini adalah port dari jawaban Groovy, dan menggunakan Joda Time.

Golf:

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

Sampel berjalan (dengan joda-time-2.4.jar di classpath:

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

Tidak Disatukan:

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 byte

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

• seqmenghasilkan bilangan bulat dari 1 hingga ⁹ , satu per baris, dan memformatnya sebagai-<x>day
• pipa ini date -fyang menginterpretasikan setiap baris dan menampilkan tanggal yang diformat menjadi dcekspresi seperti [pq] sp [_1pq] sq 20140728 d A1 =q d 7% 0=p(spasi ditambahkan untuk dibaca)
  • [pq] tentukan makro untuk mencetak bagian atas tumpukan, lalu keluar
  • sp simpan makro dalam register h
  • [pq] tentukan makro untuk mendorong -1, mencetak bagian atas tumpukan, lalu keluar
  • sq simpan makro dalam register q
  • 20140728 integer tanggal tertanam
  • d duplikat atas tumpukan
  • A1 push 101 (00000101)
  • =qpop top 2 nilai stack: bandingkan tanggal dan 101, dan panggil makro qjika sama
  • 7 dorong pembagi
  • % pembagi pop dan pembagi, membagi dan mendorong sisanya
  • 0 tekan 0
  • =ppop top 2 nilai stack: bandingkan sisa dan 0, dan panggil makro pjika sama
  • d duplikat atas tumpukan
  • makro pdisebut: mencetak integer tanggal dan berhenti dcseluruhnya
• dcekspresi disalurkan dcuntuk evaluasi. Setelah dcmencetak nilai yang tepat dan berhenti, sisa pipa akan dirobohkan

Keluaran:

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

Sejak program ini menghasilkan bilangan bulat dari 1 sampai 9 ⁹ , maka akan berlaku sampai dengan lebih dari 1 juta tahun ke depan. Saya harap batasan ini dapat diterima ;-)

Terima kasih @ WumpusQ.Wumbley untuk mempersingkat kembalinya -1.

PYTHON: 134 byte

Tidak akan bisa mengalahkan pemimpin saat ini, dan itu tidak jauh lebih baik daripada jawaban Python terbaik, tapi saya memutuskan untuk mengirim solusi Python terbaik saya.

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

Tidak Disatukan:

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

Ia mengharapkan input dalam variabel x, dan menempatkan output dalam 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]}

Ini hanya potongan awal dengan algoritma pertama yang muncul di pikiran; Saya yakin lebih baik mungkin dalam performa dan panjang.

Versi ini mengubah kode bagian "hari ini" (itulah .z.D); ubah ke tanggal literal ( yyyy.mm.dd) atau bilangan bulat dalam sistem tanggal q (hari sejak 1 Januari 2000) untuk menjalankan test case. (q tidak akan menguraikan literal tanggal lebih awal dari awal abad kedelapan belas, jadi untuk tanggal sebelum itu, Anda harus menghitung nilainya dan menggunakan bilangan bulat yang tepat secara langsung. 1 Januari, "0 AD", dari spec, belokan out to be -730457, yang digunakan dalam kode fungsi. 28 Juli, 5 M, dari test case terakhir, ternyata -728450.)

Kasus uji yang diberikan:

  {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

edit:

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

Ini adalah pendekatan yang berbeda yang menggunakan salah satu operator konvergensi untuk mengurangi tanggal sampai menemukan tanggal yang dapat dibagi atau melintasi batas 1/1/0000. Itu juga melakukan konversi dari tanggal ke bilangan bulat sedikit berbeda.

Kasing uji, kali ini sekaligus:

  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 byte (modul)

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

Ini tergantung pada jumlah yang disimpan dalam variabel $n.

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