[Vari] Contest 13: Date

[gugoXX]

Quanti lunedi' ci sono in tutti i Febbraio tra gli anni il 1900 e il 2100 compresi?

Occhio ai bisestili, che sono tutti gli anni divisibili per 4.
Ma non quelli che terminano per 00
Ma se invece il numero che termina per 00 e' divisibile per 400, allora e' di nuovo bisestile (Come il 2000).

[!k-0t1c!]

811

Segue il codice usato per la soluzione:

#light
open System

let countMondays year = [1..DateTime.DaysInMonth(year,2)] |> Seq.filter(fun d -> DateTime(year, 2, d).DayOfWeek = DayOfWeek.Monday) |> Seq.length
[1900..2100] |> Seq.map(countMondays) |> Seq.fold(+) 0

[gugoXX]

cut

[!k-0t1c!]

puoi spiegarmi quel "cut"?
Se ho sbagliato a postare pubblicamente la soluzione chiedo scusa e spero di aver fatto ammenda in tempo utile, diversamente dimmelo e ripristinerò il post sopra.

[Vincenzo1968]

C'è già un contest 12:

Contest 12

Se è un questione di superstizione, puoi fare come D'Annunzio:

Tratto da "1912 + 1" di Leonardo Sciascia:

Non so se per tutto l'anno 1913: ma almeno una volta,
dedicando un suo libro, D'Annunzio scrisse "1912 + 1":
per superstizione sua o della persona cui lo dedicava
o di entrambi.
...

[shinya]

Soluzione quick'n'dirty in factor...non è proprio il massimo dell'eleganza, ma stasera sono pigro...

USING: math math.ranges make sequences kernel calendar fry locals
prettyprint ;
IN: contest12

:: get-timestamps ( year -- seq )
    year 2 1 <date> days-in-month
    [ [ 1+ year 2 pick <date> , drop ] each ] { } make ;

: how-many-mondays? ( seq -- n )
    [ day-of-week day-name "Monday" = ] filter length ;

: contest12 ( -- )
    1900 2100 [a,b]
    [ get-timestamps how-many-mondays? ] map sum . ;

@!k-0t1c!: cos'è? F#? Fico!

[ndakota]

Originariamente inviato da shinya

Soluzione quick'n'dirty in factor...non è proprio il massimo dell'eleganza, ma stasera sono pigro...

USING: math math.ranges make sequences kernel calendar fry locals
prettyprint ;
IN: contest12

:: get-timestamps ( year -- seq )
    year 2 1 <date> days-in-month
    [ [ 1+ year 2 pick <date> , drop ] each ] { } make ;

: how-many-mondays? ( seq -- n )
    [ day-of-week day-name "Monday" = ] filter length ;

: contest12 ( -- )
    1900 2100 [a,b]
    [ get-timestamps how-many-mondays? ] map sum . ;

@!k-0t1c!: cos'è? F#? Fico!

si F#, quoto!

[pierosa]

Aggiungo una soluzione in ruby

require 'date'
def is_leap?(year)
  ((year % 4 == 0) && ((year % 400 == 0) || !(year % 100 == 0))) 
end

def mondays(start_y, end_y)  
  mondays = (end_y-start_y+1)*4
  start_y.step(end_y){|year| mondays += 1 if (is_leap?(year) && Date.new(year,2,1).wday == 1)}
  mondays
end

puts mondays(1900, 2100)

[Kralizek]

Originariamente inviato da !k-0t1c!

811

Segue il codice usato per la soluzione:

#light

open System

let countMondays year =
    let isMonday day =
        let date = DateTime.Parse(sprintf "%i/02/%i" day year)
        date.DayOfWeek = DayOfWeek.Monday
    let febDays = if year % 4 = 0 && (year % 400 = 0 || year % 100 <> 0) then 29 else 28
    [1..febDays] |> Seq.filter(isMonday) |> Seq.length

[1900..2100] |> Seq.map(countMondays) |> Seq.fold(+) 0

non potevi usare DateTime.IsLeapYear (int) dove il parametro è l'anno?

[!k-0t1c!]

Originariamente inviato da shinya

@!k-0t1c!: cos'è? F#? Fico!

Sì, F#
Non è niente male, corre veloce quanto C# e si integra alla perfezione con .NET Comunque a giudicare dalla tua soluzione non sono l'unico che apprezza linguaggi quantomeno un po' "esotici"

Originariamente inviato da Kralizek

non potevi usare DateTime.IsLeapYear (int) dove il parametro è l'anno?

No, perché DateTime.IsLeapYear avrebbe ritornato true per 1900 e 2100 mentre nella definizione di bisestile data dal problema solo per nessuno di quei due andava considerato tale (lo so, ai fini della soluzione è irrilevante visto che ciascuno ha comunque 4 lunedì in febbraio, tuttavia per scrupolo ho preferito implementare la specifica).

[shinya]

Originariamente inviato da !k-0t1c!

Comunque a giudicare dalla tua soluzione non sono l'unico che apprezza linguaggi quantomeno un po' "esotici"

E' Factor E' un linguaggio concatenativo. Fai conto lisp... ma al contrario e senza parentesi :P

[gugoXX]

Originariamente inviato da !k-0t1c!

puoi spiegarmi quel "cut"?
Se ho sbagliato a postare pubblicamente la soluzione chiedo scusa e spero di aver fatto ammenda in tempo utile, diversamente dimmelo e ripristinerò il post sopra.

Nono, ero io che avevo sbagliato. Pensavo di aver postato una errata definizione di bisestile, ma e' giusta.

Originariamente inviato da Vincenzo1968

C'è già un contest 12:

Mannaggia, se passa qualcuno a correggere in Contest 13...

[bio82]

che bello un problema che riesco a risolvere anche io!!!!!!

        For i = inizio To fine
            If i Mod 400 = 0 Then
                Dim data As Date = "01/02/" & i
                If data.DayOfWeek = DayOfWeek.Monday Then
                    conta += 1
                End If
            ElseIf Right(i.ToString, 2) = "00" Then
            ElseIf i Mod 4 = 0 Then
                Dim data As Date = "01/02/" & i
                If data.DayOfWeek = DayOfWeek.Monday Then
                    conta += 1
                End If
            End If
            conta += 4
        Next

come soluzione funziona, l'unico buco è l'anno 0 dove bisognerebbe fare un caso a parte

cmq ho paura che arrivi un inghippo per cui le nostre soluzioni diventano obsolete...

bio

[gugoXX]

Originariamente inviato da !k-0t1c!

Sì, F#
Non è niente male, corre veloce quanto C# e si integra alla perfezione con .NET Comunque a giudicare dalla tua soluzione non sono l'unico che apprezza linguaggi quantomeno un po' "esotici"

No, perché DateTime.IsLeapYear avrebbe ritornato true per 1900 e 2100 mentre nella definizione di bisestile data dal problema solo per nessuno di quei due andava considerato tale (lo so, ai fini della soluzione è irrilevante visto che ciascuno ha comunque 4 lunedì in febbraio, tuttavia per scrupolo ho preferito implementare la specifica).

La specifica "dovrebbe" essere la definzione corretta di bisestile.
Se la IsLeapYear e' implementata correttamente dovrebbe tornare false per 1900 e 2100

[gugoXX]

Per ora in C# butto cosi'.

static void Main(string[] args)
{
    var mondays = Enumerable.Range(1900, 2100 - 1900 + 1)
                            .Sum(year =>
                                    Enumerable.Range(1, DateTime.DaysInMonth(year, 2))
                                              .Count(day => new DateTime(year, 2, day).DayOfWeek == DayOfWeek.Monday)
                                );

    Console.Write(mondays);
    Console.ReadKey();            
}

[bio82]

Originariamente inviato da gugoXX

La specifica "dovrebbe" essere la definzione corretta di bisestile.
Se la IsLeapYear e' implementata correttamente dovrebbe tornare false per 1900 e 2100

dettomi questo, ti confermo che in vb IsLeapYear ritorna falso al 1900 (e agli altri)..

il mio codice varia in:

        For i = inizio To fine
            If DateTime.IsLeapYear(i) Then
                Dim data As Date = "01/02/" & i
                If Data.DayOfWeek = DayOfWeek.Monday Then conta += 1
            End If
            conta += 4
        Next

risultato corretto ed uguale al codice di che postato prima

Originariamente inviato da gugoXX

Per ora in C# butto cosi'.

devo dire che a complicarti la vita fai paura ... è più prestante immagino (tralasciando questo caso specifico)...

bio

[^TiGeRShArK^]

ma è giusto 811?
a me esce un pò di meno..

[shinya]

Anche a me salta fuori 811.

[gugoXX]

Originariamente inviato da bio82

devo dire che a complicarti la vita fai paura ... è più prestante immagino (tralasciando questo caso specifico)...

bio

Si', e' vero, e' brutto. PRovo cosi'

static void Main(string[] args)
{           
    var mon = from year in Enumerable.Range(1900, 2100 - 1900 + 1)
              let DaysInFeb = DateTime.DaysInMonth(year, 2)
                  from day in Enumerable.Range(1, DaysInFeb)
                  let dayday = new DateTime(year, 2, day)
                  where dayday.DayOfWeek == DayOfWeek.Monday
                  select dayday;

    int nums = mon.Count();

    Console.WriteLine(nums);
    Console.ReadKey();      

}

[gugoXX]

Originariamente inviato da ^TiGeRShArK^

ma è giusto 811?
a me esce un pò di meno..

Hai incluso il 2100?