Дата может быть представлена ​​целым числом без знака как таковое: ГГГГММДД. Что вам нужно сделать, это написать самую короткую программу или функцию, которая вычисляет самую последнюю дату, число которой делилось на данное число n(включая сегодняшнюю дату), а затем возвращает эту дату в формате, показанном выше. Если никогда не было даты (между 00000101 и сегодня включительно), делимой на данное целое число, вы должны вернуть -1.

Примеры

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

вход

Вы можете читать из STDIN или принимать аргумент функции или даже ожидать, что ввод будет сохранен в переменной. На входе будет целое число без знака.

Выход

Записать в STDOUT или вернуть (или сохранить в переменной) целое число, представляющее дату в формате ГГГГММДД.

ограничения

Вы можете использовать любую стандартную библиотеку, которую предлагает ваш язык. Применяются стандартные лазейки .

Условия выигрыша

Это код-гольф , поэтому выигрывает самая маленькая программа (в байтах). В случае ничьей победит ответ с наибольшим количеством голосов.

Mathematica, 93 60 байт

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

Ожидает, что вход будет сохранен в n.

Обратите внимание, что вертикальная линия ∣- это символ Юникода для «деления», который я посчитал как 3 байта (UTF-8).

Редактировать: нашел хитрый трюк, чтобы избежать раздутой DateStringи спецификации формата :).

Изменить: полностью забыл о -1требовании. Исправлено сейчас.

Вот объяснение

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 портит моноширинку.

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

Спасибо @ chill0r за предложение удалить days = и Jason S за подсказку, что блок try может быть уменьшен до одной строки.

C # 136

С пересмотренными спецификациями, функция, которая принимает unsigned int и возвращает 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 символа с переменным вводом / выводом

Используя слабые требования к вводу / выводу, ввод должен быть сохранен в переменной 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 символа с 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

Предполагается, что есть свободная переменная @n со значением 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)

Безголосая версия Луа будет,

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)

МАТЛАБ: 61

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

Предполагается, что делитель хранится в n. Результат будет сохранен в переменной с именем ans.

Комментируемая версия:

-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

Сгенерирует ошибку, если результат не найден, но ответ по-прежнему доступен в переменной, несмотря на это.

Ошибки можно избежать за счет 2 дополнительных символов:

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

PHP (92 = 85 + 7)

Ожидается, что вход будет сохранен в $n.

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

Я просто вспомнил, почему я больше не люблю PHP =)

РЕДАКТИРОВАТЬ: Теперь -1 спецификации также реализованы.

JavaScript (ES6) 115

Ожидается число в переменной n, результат сохраняется в переменной r. Каждый день проверяется, начиная с текущей даты и по убыванию - должен быть лучший способ.
Более того, при использовании стандартных функций дат в JavaScript, все даты являются григорианскими вплоть до 1-го года (соответственно високосные годы неверны до григорианской реформы).

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 (или 124 в LINQPad) + 1 для каждой цифры в n

Это предполагает, что вход будет в переменной n. К концу выполнения желаемое значение будет в переменной r. Это считается 00010101первой датой, потому что дата 00000101не существует. Предложения по улучшению всегда приветствуются.

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:

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 символов

Очень простой (и медленный), без хитростей, чтобы скрыть тот факт, что он использует Joda Time.

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

Пример выполнения (30.07.2014):

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

Удачи с датой, которая не работает. microbenchmarkсообщает, что для возврата на 15 дней требуется около полсекунды. По состоянию на 31 июля 2014 г. на то, чтобы выплюнуться, потребуется около 20 миллионов секунд (~ 23 дня) -1, по крайней мере, согласно оборотной стороне конверта.

редактировать : некоторые ярлыки в комментариях

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

РЕДАКТИРОВАТЬ: мне удалось немного оптимизировать его, но @DennisJaheruddin имеет реальное решение здесь

Python 3 - 151 148 байт, генераторы

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)

Спасибо @ nyuszika7h за import*предложение

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}

вход

Ожидает, что значение делителя будет присутствовать в переменной n.

Выход

Возвращаемое значение fфункции

Пример в сети: http://ideone.com/LoYxG4

Ява: 373 символа

Это порт ответа Groovy, который использует Joda Time.

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

Примеры прогонов (с joda-time-2.4.jar на пути к классам:

$ 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 байт

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

• seqгенерирует целые числа от 1 до 9 ⁹ , по одному на строку, и форматирует его как-<x>day
• это канал, по date -fкоторому интерпретируется каждая строка и выводится дата, отформатированная в dcвыражение, например [pq] sp [_1pq] sq 20140728 d A1 =q d 7% 0=p(пробелы добавлены для удобства чтения)
  • [pq] определить макрос для печати вершины стека, затем выйти
  • sp сохранить макрос в регистре p
  • [pq] определите макрос для нажатия -1, напечатайте верхнюю часть стека, затем выйдите
  • sq сохранить макрос в регистре q
  • 20140728 целое число встроенной даты
  • d дубликат вершины стека
  • A1 нажать 101 (00000101)
  • =q2 верхних значения стека: сравните дату и 101 и вызовите макрос, qесли он равен
  • 7 толкатель
  • % поп делитель и делитель, разделяй и толкай остаток
  • 0 нажать 0
  • =p2 верхних значения стека: сравните остаток и 0 и вызовите макрос, pесли он равен
  • d дубликат вершины стека
  • макрос pназывается: печатает целое число даты и dcполностью выходит
• dcвыражения передаются dcдля оценки. Как только dcпечатает правильное значение и выходит, остальная часть конвейера срывается

Выход:

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

Поскольку эта программа генерирует целые числа от 1 до 9 ⁹ , она будет действительна в течение чуть более 1 миллиона лет в будущем. Я надеюсь, что это ограничение приемлемо ;-)

Спасибо @ WumpusQ.Wumbley за сокращение возврата -1.

Питон: 134 байта

Не удастся победить нынешнего лидера, и это не намного лучше, чем лучший ответ Python, но я решил опубликовать свое лучшее решение Python.

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

Он ожидает ввод в переменной xи помещает вывод в o.

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

к4 (84) (73)

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

Это просто начальная версия с первым алгоритмом, который пришел в голову; Я уверен, что лучшее возможно как по производительности, так и по длине.

Эта версия жестко кодирует часть «сегодня» (это .z.D); измените его на date literal ( yyyy.mm.dd) или на целое число в системе q date (количество дней с 1 января 2000 года) для запуска тестовых случаев. (q не будет анализировать литералы даты раньше, чем в начале восемнадцатого века, поэтому для дат до этого вам нужно будет определить значение и напрямую использовать соответствующее целое число. 1 января "AD 0" из спецификации поворачивается out to be -730457, который используется в коде функции. 28 июля AD 5 из последнего контрольного примера оказывается -728450.)

Данные тестовые случаи:

  {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

редактировать:

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

Это другой подход, который использует один из операторов сходимости для уменьшения даты до тех пор, пока она не найдет делимую или не пересечет границу 1/1/0000. Это также делает преобразование из даты в целое число немного по-другому.

Тестовые случаи, на этот раз все сразу:

  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 байта (модуль)

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

Это зависит от числа, хранящегося в переменной $n.

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