Il tuo compito è produrre un solo numero; il numero di settimane ISO che un determinato intervallo di date interseca. Per citare Wikipedia:, An average year is exactly 52.1775 weeks longma non si tratta della media.

L'input è costituito da due date ISO separate da spazi:

0047-12-24 2013-06-01

La data di fine non è mai precedente alla data di inizio. Useremo il calendario gregoriano estrapolato per semplicità.

Casi test:

Format: input -> output
2015-12-31 2016-01-01 -> 1    (both are within week 53 of 2015)
2016-01-03 2016-01-04 -> 2    (the 3rd is within week 53, and the 4th is in week 1)
2015-12-24 2015-12-24 -> 1    (this single day is of course within a single week)

La tua soluzione dovrebbe gestire le date tra 0001-01-01e 9999-12-31.

Rubino, 89 88 86 byte

->s{a,b=s.split.map{|x|Time.gm *x.split(?-)}
n=1
(a+=86400).wday==1&&n+=1until a==b
n}

Una soluzione molto primitivo: dato il primo appuntamento ae la seconda data b, incremento a, controllo se si tratta di un Lunedi (in caso affermativo, abbiamo "rotolò" per una nuova settimana), e fermare una volta aè b.

Accetta l'input nel formato esatto specificato nella domanda: una singola stringa separata da spazi. (Il modo in cui analizza l'input è di fantasia: usa l'operatore "splat" di Ruby *. Questo operatore "espande" un array o enumerabile, quindi Time.gm *[2013, 06, 01]diventa Time.gm 2013, 06, 01.)

Importato da una discussione di commento:

Non ci interessa "settimane in un anno;" ci preoccupiamo solo di "settimane complessive". Quindi, se un anno ha 52 o 53 settimane non fa alcuna differenza.

Solo per evitare la futura confusione sul fatto che questo gestisca correttamente i confini dell'anno - secondo Wikipedia , tutte le settimane iniziano sempre lunedì e finiscono domenica.

Per alcuni trucchi più fantasiosi, questi sono tutti equivalenti:

until a==b;a+=86400;n+=a.wday==1?1:0;end
[a+=86400,n+=a.wday==1?1:0]until a==b
n+=(a+=86400).wday==1?1:0 until a==b
(a+=86400).wday==1&&n+=1 until a==b
(a+=86400).wday==1&&n+=1until a==b

VBA, 125 byte

Prevedere 2 ingressi di funzione come stringhe

Function u(k,j)
f=DateValue(k)
For i=0 To (DateValue(j)-f)
q=DatePart("ww",f+i,2,2)
If q<>j Then u=u+1
j=q
Next
End Function

Abbastanza sicuro Questo può essere giocato a golf. Questo è ripetuto ogni giorno tra le 2 date e incrementa il contatore ogni volta che cambia la data ISO.

DatePart("ww",f+i,2,2)è il numero della settimana ISO in VBA i primi 2 mezzi Monday (complies with ISO standard 8601, section 3.17). quindi il secondo 2 significaWeek that has at least four days in the new year (complies with ISO standard 8601, section 3.17)

140 byte con input singolo

Function g(k)
y=Split(k)
f=DateValue(y(0))
For i=0 To (DateValue(y(1))-f)
q=DatePart("ww",f+i,2,2)
If q<>j Then g=g+1
j=q
Next
End Function

R, 76 byte

d=as.Date(scan("","raw"));sum(strftime(seq(d[1],d[2],"day")[-1],"%w")==1)+1

Dopo la conversazione con @Doorknob, è finalmente facile come contare il lunedì.

seq consenti di creare un vettore di date (di ogni giorno tra due date) e di trasformarlo in "numero del giorno della settimana", ora conta il numero di volte 1 per ottenere il numero di volte che hai cambiato settimana e aggiungi 1 a prendere in considerazione la settimana precedente.

Un altro approccio ad anello:

R, 85 byte

n=1;d=as.Date(scan("","raw"));z=d[1];while(z<d[2]){n=n+(strftime(z<-z+1,"%w")==1)};n

Mathematica 135 79 96 84 74 byte

Coerentemente con il suggerimento di @ Doorknob, questo

• genera tutte le date nell'intervallo

• conta il numero di lunedì ( ISOWeekDay== "1") in DateRange(escluso d) e

• aggiunge 1al totale.

Count[DateString[#,"ISOWeekDay"]&/@Rest@(DateRange@@StringSplit@#),"1"]+1&

Count[DateString[#,"ISOWeekDay"]&/@Rest@(DateRange@@StringSplit@#),"1"]+1&
/@ {"2015-12-31 2016-01-01", "2016-01-04 2016-01-05","2016-01-03 2016-01-04", 
"2015-12-24 2015-12-24", "1876-12-24 2016-01-01"}

{1, 1, 2, 1, 7255}