Một ngày có thể được biểu thị bằng một số nguyên không dấu như: YYYYMMDD. Những gì bạn cần làm là viết chương trình hoặc hàm ngắn nhất để tìm ra ngày gần đây nhất có số chia hết cho một số đã cho n(bao gồm cả ngày hôm nay) và sau đó trả về ngày đó theo định dạng được hiển thị ở trên. Nếu chưa bao giờ có ngày (trong khoảng từ 00000101 đến ngày hôm nay) chia hết cho số nguyên đã cho, bạn nên trả về -1.

Ví dụ

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

Đầu vào

Bạn có thể đọc từ STDIN hoặc lấy tham số hàm hoặc thậm chí mong đợi đầu vào được lưu trữ trong một biến. Đầu vào sẽ là một số nguyên không dấu.

Đầu ra

Viết vào STDOUT hoặc trả về (hoặc lưu trong một biến) số nguyên biểu thị ngày theo định dạng YYYYMMDD.

Hạn chế

Bạn có thể sử dụng bất kỳ thư viện tiêu chuẩn mà ngôn ngữ của bạn cung cấp. Tiêu chuẩn áp dụng.

Điều kiện chiến thắng

Đây là một môn đánh gôn , vì vậy chương trình nhỏ nhất (tính bằng byte) sẽ thắng. Trong trường hợp hòa, câu trả lời có nhiều phiếu nhất sẽ thắng.

Toán học, 93 60 byte

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

Dự kiến ​​đầu vào sẽ được lưu trữ trong n.

Lưu ý rằng dòng dọc ∣là ký tự unicode cho "chia", mà tôi đã tính là 3 byte (UTF-8).

Chỉnh sửa: Tìm thấy một thủ thuật gọn gàng để tránh các DateStringđặc điểm kỹ thuật cồng kềnh và định dạng :).

Chỉnh sửa: Hoàn toàn quên về -1yêu cầu. Đã sửa bây giờ.

Đây là một lời giải thích

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

Lưu ý rằng tôi đã sử dụng |thay vì∣ trong phần giải thích, vì Unicode là một lỗi với việc đơn cách hóa.

Con trăn 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

Cảm ơn @ chill0r về đề xuất xóa ngày = và Jason S cho mẹo rằng khối thử có thể được giảm xuống một dòng.

C # 136

Với các thông số kỹ thuật được sửa đổi, một hàm lấy một số nguyên không dấu và trả về một số nguyên.

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 ký tự với đầu vào / đầu ra thay đổi

Lợi dụng các yêu cầu đầu vào / đầu ra lỏng lẻo, đầu vào sẽ được lưu trữ trong biến n(hiện đang đếm tất cả các ký tự trừ chữ nguyên) và đầu ra được cung cấp cùng với biến 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 ký tự với 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

Giả sử có một biến miễn phí @n với giá trị 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)

Một phiên bản Lua vô danh sẽ là,

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)

Giả sử số chia được lưu trữ trong n. Kết quả sẽ được lưu trữ trong một biến được gọi là ans.

Phiên bản đã bình luận:

-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

Sẽ tạo ra lỗi nếu không tìm thấy kết quả, nhưng câu trả lời vẫn có sẵn trong biến mặc dù vậy.

Lỗi có thể tránh được với chi phí của 2 ký tự phụ:

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

PHP (92 = 85 + 7)

Dự kiến ​​đầu vào sẽ được lưu trữ trong $n.

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

Tôi chỉ nhớ tại sao tôi không thích PHP nữa =)

EDIT: Bây giờ -1 của các thông số kỹ thuật cũng được thực hiện.

JavaScript (ES6) 115

Yêu cầu số trong biến n, kết quả được lưu trong biến r. Mỗi ngày được kiểm tra, bắt đầu với ngày hiện tại và giảm dần - phải có một cách tốt hơn.
Hơn nữa, bằng cách sử dụng các hàm ngày javascript tiêu chuẩn, tất cả các ngày đều theo kiểu gregorian cho đến năm 1 (với năm nhuận tương ứng sai trước khi cải cách 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 (Hoặc 124 trong LINQPad) + 1 cho mỗi chữ số trong n

Điều này hy vọng đầu vào là trong biến n. Khi kết thúc thực hiện, giá trị mong muốn sẽ nằm trong biến r. Tuy nhiên, đây được coi 00010101là ngày đầu tiên vì ngày 00000101không tồn tại. Đề xuất cải tiến luôn được chào đón.

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

Phiên bản 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 ký tự

Rất đơn giản (và chậm), không có thủ thuật để che giấu sự thật rằng nó sử dụng Joda Time.

Chơi gôn

@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

Ví dụ chạy (vào ngày 30 tháng 7 năm 2014):

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

Ung dung:

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

Chúc may mắn với một ngày không làm việc. microbenchmarkbáo cáo mất khoảng nửa giây để quay lại 15 ngày. Kể từ ngày 31 tháng 7 năm 2014, việc này sẽ mất khoảng 20 triệu giây (~ 23 ngày) để nhổ ra -1, ít nhất là theo mặt sau của phong bì.

chỉnh sửa : một số phím tắt trong các ý kiến

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

Ung dung:

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: Tôi đã quản lý để tối ưu hóa nó một chút, nhưng @DennisJaheruddin có giải pháp thực sự ở đây

Python 3 - 151 148 byte, trình tạo

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)

Cảm ơn @ nyuszika7h đã import*gợi ý

Hồng ngọc 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}

Đầu vào

Mong giá trị chia sẽ xuất hiện trong biến n.

Đầu ra

Giá trị trả về của fhàm

Ví dụ trực tuyến: http://ideone.com/LoYxG4

Java: 373 ký tự

Đây là một cổng của câu trả lời Groovy và sử dụng Joda Time.

Chơi gôn

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

Chạy mẫu (với joda-time-2.4.jar trên đường dẫn lớp:

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

Ung dung:

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

• seqtạo các số nguyên từ 1 đến 9 ⁹ , mỗi số một dòng và định dạng nó là-<x>day
• dẫn đường này để date -fdiễn giải từng dòng và đưa ra ngày được định dạng thành một dcbiểu thức, chẳng hạn như [pq] sp [_1pq] sq 20140728 d A1 =q d 7% 0=p(khoảng trắng được thêm vào để dễ đọc)
  • [pq] xác định một macro để in đỉnh ngăn xếp, sau đó thoát
  • sp lưu macro trong đăng ký p
  • [pq] xác định một macro để đẩy -1, in đỉnh ngăn xếp, sau đó thoát
  • sq lưu macro trong thanh ghi q
  • 20140728 số nguyên ngày nhúng
  • d trùng lặp đầu ngăn xếp
  • A1 đẩy 101 (00000101)
  • =q pop top 2 stack value: so sánh ngày và 101, và gọi macro q nếu bằng
  • 7 đẩy chia
  • % chia pop và chia, chia và đẩy phần còn lại
  • 0 đẩy 0
  • =pgiá trị ngăn xếp pop top 2: so sánh phần còn lại và 0 và gọi macro pnếu bằng
  • d trùng lặp đầu ngăn xếp
  • macro pđược gọi là: in số nguyên ngày và thoát dchoàn toàn
• dcbiểu thức được dẫn đến dcđể đánh giá. Sau khi dcin đúng giá trị và thoát, phần còn lại của đường ống bị phá hủy

Đầu ra:

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

Vì chương trình này tạo ra các số nguyên từ 1 đến 9 ⁹ , nên nó sẽ có hiệu lực trong tương lai chỉ hơn 1 triệu năm. Tôi hy vọng giới hạn này là chấp nhận được ;-)

Cảm ơn @ WumpusQ.Wumbley đã rút ngắn lợi nhuận của -1.

PYTHON: 134 byte

Sẽ không thể đánh bại nhà lãnh đạo hiện tại và nó không tốt hơn câu trả lời Python tốt nhất, nhưng tôi đã quyết định đăng giải pháp Python tốt nhất của mình.

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

Ung dung:

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

Nó hy vọng đầu vào biến x, và đặt đầu ra vào 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]}

Đây chỉ là một cắt giảm ban đầu với thuật toán đầu tiên xuất hiện trong tâm trí; Tôi chắc chắn tốt hơn có thể cả về hiệu suất và chiều dài.

Phiên bản này mã hóa phần "hôm nay" (đó là .z.D); thay đổi nó thành một ngày bằng chữ ( yyyy.mm.dd) hoặc một số nguyên trong hệ thống ngày q (ngày kể từ ngày 1 tháng 1 năm 2000) để chạy các trường hợp thử nghiệm. (q sẽ không phân tích ngày theo nghĩa đen sớm hơn đầu thế kỷ thứ mười tám, vì vậy đối với những ngày trước đó, bạn sẽ cần tính ra giá trị và sử dụng trực tiếp số nguyên thích hợp. Ngày 1 tháng 1, "AD 0", từ thông số kỹ thuật, lần lượt ngoài ra -730457, được sử dụng trong mã chức năng. 28 tháng 7, AD 5, từ trường hợp thử nghiệm cuối cùng, hóa ra là -728450.)

Các trường hợp thử nghiệm đã cho:

  {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

chỉnh sửa:

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

Đây là một cách tiếp cận khác nhau, sử dụng một trong các toán tử hội tụ để giảm ngày cho đến khi tìm thấy một số chia hết hoặc nó vượt qua ranh giới 1/1/0000. Nó cũng thực hiện việc chuyển đổi từ ngày sang số nguyên hơi khác nhau.

Các trường hợp thử nghiệm, lần này tất cả cùng một lúc:

  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 (mô-đun)

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

Điều này phụ thuộc vào số lượng được lưu trữ trong biến $n.

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