Lunedì 31 ottobre è Halloween. E mi ha fatto pensare - mi chiedo che cosa gli altri mesi hanno l'ultimo giorno del mese anche essere un Lunedi?

Ingresso

• Un numero intero positivo in qualsiasi formato conveniente che rappresenta un anno 10000 > y > 0,.
• L'ingresso può essere riempito con zeri (ad esempio, 0025per l'anno 25), se necessario.

Produzione

• Un elenco dei mesi di quell'anno in cui l'ultimo giorno del mese è un lunedì.
• Può trattarsi di nomi di mesi (ad esempio, January, March, October) o nomi brevi ( Jan, Mar, Oct) o numeri ( 1, 3, 10), come righe separate o un elenco o delimitati, ecc., Purché non ambiguo per il lettore.
• Il formato di output deve essere coerente:
  • Per input di tutti gli anni (ovvero, non è possibile generare nomi di mese per alcuni input e numeri di mese per altri input)
  • Oltre che coerente per output (ovvero, non è possibile eseguire l'output 1per Januarylo stesso output di Julper July)
  • Fondamentalmente, scegli un formato e attenersi ad esso.

Regole

• Assumi il calendario gregoriano per input / output, anche fino a y = 1.
• Gli anni bisestili devono essere adeguatamente contabilizzati (come promemoria: ogni anno divisibile per 4, tranne che per gli anni non divisibili per 100, a meno che non siano divisibili per 400 - 1700, 1800, 1900 non tutti gli anni bisestili, ma 2000 lo era).
• È possibile utilizzare qualsiasi built-in o altri strumenti di calcolo della data che ti piace.
• È accettabile un programma completo o una funzione. Se una funzione, è possibile restituire l'output anziché stamparlo.
• Sono vietate le scappatoie standard .
• Si tratta di code-golf quindi si applicano tutte le normali regole del golf e vince il codice più breve (in byte).

Esempi

   1 --> Apr, Dec
 297 --> May
1776 --> Sep
2000 --> Jan, Jul
2016 --> Feb, Oct
3385 --> Jan, Feb, Oct

Classifica

var QUESTION_ID=97585,OVERRIDE_USER=42963;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Dyalog APL con dfns 's cal , Versione 15.0: 22; Versione 16.0: 19 byte

La funzione cal viene fornita con un'installazione predefinita, basta inserire )copy dfns.

Versione 15.0: ∊⎕{⍵/⍨2=≢⍎⊢⌿cal⍺⍵}¨⍳12

∊ arruolarsi (appiattire)

⎕{... }¨input numerico come argomento di sinistra alla seguente funzione anonima, prendendo a turno ciascuno dei valori del lato destro come argomento di destra

 ⍵/⍨ l'argomento if (fornisce un elenco vuoto in caso contrario)

 2= due (vale a dire domenica e lunedì) è uguale a

 ≢ il conteggio di

 ⍎ i numeri in

 ⊢⌿ la riga più in basso di

 cal il calendario per

 ⍺⍵ anno argomento a sinistra, mese argomento a destra, quest'ultimo essendo

⍳12 Da 1 a 12

Versione 16.0: ⍸2=⎕{≢⍎⊢⌿cal⍺⍵}¨⍳12

⍸ gli indici dove

2= due uguali (vale a dire domenica e lunedì)

⎕{... }¨input numerico come argomento di sinistra alla seguente funzione anonima, prendendo a turno ciascuno dei valori del lato destro come argomento di destra

 ≢ il conteggio di

 ⍎ i numeri in

 ⊢⌿ la riga più in basso di

 cal il calendario per

 ⍺⍵ anno argomento a sinistra, mese argomento a destra, quest'ultimo essendo

⍳12 Da 1 a 12

JavaScript (Firefox 30+), 112 109 103 95 byte

Guarda mamma, niente incorporati!

y=>[for(m of(i=0,y%4|y%400*!(y%100)&&6)+"63153042641")if((i++,y+(y>>2)-(y/100|0)*3/4|0)%7==m)i]

Ecco una versione ES6 a 107 byte:

y=>[...(y%4|y%400*!(y%100)&&6)+"63153042641"].map((m,i)=>(y+(y>>2)-(y/100|0)*3/4|0)%7-m?0:i+1).filter(x=>x)

Ed ecco il mio tentativo precedente, 123 113 byte di ES6:

y=>[(l=y%4|y%400*!(y%100))?[7]:[1,7],[4,12],[9],[3,6],[8,11],[5],l?[1,2,10]:[2,10]][(y+(y>>2)-(y/100|0)*3/4|0)%7]

Spiegazione

Il giorno della settimana di un determinato anno viene calcolato in questo modo:

y+(y>>2)-(y/100|0)*3/4|0)%7

In altre parole:

• Prendi y.
• Aggiungi il numero di 4 anni prima y( y>>2).
• Sottrai il numero di 100 anni prima y( y/100|0).
• Aggiungi di nuovo il numero di 400 anni prima y; questo è 1/4 di y/100|0, quindi usiamo *3/4|0.

Quindi moduliamo il risultato per 7. Se lasciamo 0dire domenica, 1significa lunedì, ecc., Il risultato corrisponde al giorno della settimana del 31 dicembre di quell'anno. Pertanto, per dicembre, vogliamo verificare se il risultato è 1. Questo ci dà l'ultimo carattere nella stringa.

L'ultimo giorno di novembre è 31 giorni prima dell'ultimo giorno di dicembre. Ciò significa che per l'ultimo giorno di novembre per essere un lunedì, il 31 dicembre deve essere un (1 + 31) % 7 = 4= giovedì.

Questa procedura si ripete fino al ritorno a marzo (a 3). Che ci sia o meno un giorno bisestile, l'ultimo giorno di febbraio è 31 giorni prima dell'ultimo giorno di marzo, quindi possiamo calcolare anche quello (è (3 + 31) % 7 = 6). La parte difficile è trovare il valore corretto per gennaio:

• Se è un anno bisestile, l'ultimo giorno di gennaio è 29 giorni prima dell'ultimo giorno di febbraio, con il risultato (6 + 29) % 7 = 0.
• Altrimenti, sono trascorsi 28 giorni dall'ultimo giorno di febbraio, con conseguente (6 + 28) % 7 = 6.

Possiamo calcolare se si tratta o meno di un anno bisestile con il seguente frammento:

!(y%400)|y%100*!(y%4)

Questo dà 0se ynon è un anno bisestile, e altrimenti un numero intero positivo. Questo ci porta a

!(y%400)|y%100*!(y%4)?0:6

per calcolare il giorno di gennaio. Tuttavia, possiamo fare di meglio invertendo le condizioni:

y%4|y%400*!(y%100)?6:0

Dato che il risultato della falsità è sempre 0, possiamo ridurlo a

y%4|y%400*!(y%100)&&6

salvando un altro byte prezioso.

Mettendo tutto insieme, eseguiamo il ciclo di ogni carattere nella stringa, controllando se ognuno è uguale al giorno della settimana del 31 dicembre. Manteniamo gli indici di quelli corrispondenti, restituendo questo array alla fine. Ed è così che fai i calcoli dell'anno bisestile senza built-in.

JavaScript (Firefox 30-57), 67 65 64 63 61 61 byte

y=>[for(_ of(m='')+1e11)if(new Date(y+400,++m).getDay()==2)m]

Risparmiato 2 4 6 byte grazie a @ETHproductions. Ho salvato un altro byte emettendo i mesi in ordine inverso.

MySQL, 183 134 129 106 byte

SET @y=2016;SELECT help_topic_id AS m FROM mysql.help_topic HAVING m BETWEEN 1 AND 12 AND 2=DAYOFWEEK(LAST_DAY(CONCAT(@y,-m,-1)))

Sostituire 2016con l'anno desiderato. Correre.

Rev. 2: utilizzata la help_topicstabella nell'installazione predefinita invece di creare una tabella temporanea.

Rev.3: Adottato il trucco di aross- e ho notato che posso anche omettere le virgolette per "-1".
Tuttavia, -1è necessario in MySQL: ho bisogno di una data completa.

Rev.4: La restrizione m BETWEEN 1 AND 12può essere eseguita come m>0 AND m<13(-6), ma non è affatto necessaria: i valori non validi verranno ignorati; gli avvisi verranno conteggiati ma non elencati.

Perl, 64 byte

Include +1 per -n

Dare input su STDIN:

perl -M5.010 mon.pl <<< 2016

mon.pl:

#!/usr/bin/perl -n
map$b.=$/.gmtime$_.e4,-7e6..3e7;say$b=~/on (\S+ )\S.* $_.* 1 /g

Lotto, 160 152 byte

@set/ay=%1,m=0,j=6*!(!(y%%4)*(y%%100)+(y%%400)),y=(y*5/4-y/100*3/4)%%7
@for %%d in (%j% 6 3 1 5 3 0 4 2 6 4 1)do @set/am+=1&if %%d==%y% call echo %%m%%

La risposta di Port of @ ETHproduction. Con abbreviazioni di mese per 197 189 byte:

@set/ay=%1,j=6*!(!(y%%4)*(y%%100)+(y%%400)),y=(y*5/4-y/100*3/4)%%7
@for %%m in (Jan.%j% Feb.6 Mar.3 Apr.1 May.5 Jun.3 Jul.0 Aug.4 Sep.2 Oct.6 Nov.4 Dec.1)do @if %%~xm==.%y% call echo %%~nm

J, 48 34 33 byte

[:I.(2=7|_2#@".@,@{.])&>@calendar

15 byte salvati con l'aiuto di @ Adám .

Utilizza il calendario incorporato per generare una matrice di stringhe che rappresentano i mesi, quindi analizza ciascuna stringa per determinare se l'ultimo lunedì è l'ultimo giorno del mese. Emette ogni mese come il numero del mese di ciascuno. Cioè, Jan = 0, Feb = 1, ..., Dec = 11.

L'output di calendarè

   _3 ]\ calendar 2016
┌─────────────────────┬─────────────────────┬─────────────────────┐
│         Jan         │         Feb         │         Mar         │
│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│
│                 1  2│     1  2  3  4  5  6│        1  2  3  4  5│
│  3  4  5  6  7  8  9│  7  8  9 10 11 12 13│  6  7  8  9 10 11 12│
│ 10 11 12 13 14 15 16│ 14 15 16 17 18 19 20│ 13 14 15 16 17 18 19│
│ 17 18 19 20 21 22 23│ 21 22 23 24 25 26 27│ 20 21 22 23 24 25 26│
│ 24 25 26 27 28 29 30│ 28 29               │ 27 28 29 30 31      │
│ 31                  │                     │                     │
├─────────────────────┼─────────────────────┼─────────────────────┤
│         Apr         │         May         │         Jun         │
│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│
│                 1  2│  1  2  3  4  5  6  7│           1  2  3  4│
│  3  4  5  6  7  8  9│  8  9 10 11 12 13 14│  5  6  7  8  9 10 11│
│ 10 11 12 13 14 15 16│ 15 16 17 18 19 20 21│ 12 13 14 15 16 17 18│
│ 17 18 19 20 21 22 23│ 22 23 24 25 26 27 28│ 19 20 21 22 23 24 25│
│ 24 25 26 27 28 29 30│ 29 30 31            │ 26 27 28 29 30      │
│                     │                     │                     │
├─────────────────────┼─────────────────────┼─────────────────────┤
│         Jul         │         Aug         │         Sep         │
│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│
│                 1  2│     1  2  3  4  5  6│              1  2  3│
│  3  4  5  6  7  8  9│  7  8  9 10 11 12 13│  4  5  6  7  8  9 10│
│ 10 11 12 13 14 15 16│ 14 15 16 17 18 19 20│ 11 12 13 14 15 16 17│
│ 17 18 19 20 21 22 23│ 21 22 23 24 25 26 27│ 18 19 20 21 22 23 24│
│ 24 25 26 27 28 29 30│ 28 29 30 31         │ 25 26 27 28 29 30   │
│ 31                  │                     │                     │
├─────────────────────┼─────────────────────┼─────────────────────┤
│         Oct         │         Nov         │         Dec         │
│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│ Su Mo Tu We Th Fr Sa│
│                    1│        1  2  3  4  5│              1  2  3│
│  2  3  4  5  6  7  8│  6  7  8  9 10 11 12│  4  5  6  7  8  9 10│
│  9 10 11 12 13 14 15│ 13 14 15 16 17 18 19│ 11 12 13 14 15 16 17│
│ 16 17 18 19 20 21 22│ 20 21 22 23 24 25 26│ 18 19 20 21 22 23 24│
│ 23 24 25 26 27 28 29│ 27 28 29 30         │ 25 26 27 28 29 30 31│
│ 30 31               │                     │                     │
└─────────────────────┴─────────────────────┴─────────────────────┘

uso

   f =: [:I.(2=7|_2#@".@,@{.])&>@calendar
   f 1
3 11
   f 297
4
   f 1776
8
   f 2000
0 6
   f 2016
1 9
   f 3385
0 1 9

Spiegazione

[:I.(2=7|_2#@".@,@{.])&>@calendar  Input: year Y
                         calendar  Get 12 boxes each containing a month
    (                )&>@          Operate on each box
                    ]                Identity, get the box
         _2       {.                 Take the last two strings
                ,@                   Flatten it
             ".@                     Parse it into an array of integers
           #@                        Get the length
       7|                            Take it modulo 7
     2=                              Test if it equals 2 - it will either
                                     have two days or 9 days in the last
                                     two lines if the end is on a Monday
[:I.                               Return the indices containing a true value

Mathematica, 62 57 byte

DayName@DayRange[{#},{#+1},"EndOfMonth"]~Position~Monday&

Funzione anonima. Accetta un numero come input e restituisce un elenco di elenchi di numeri a elemento singolo come output. Sinceramente non sono più sicuro di come funzioni.

Perl + cal, 46 byte

say`cal $_ $ARGV[0]`=~/\n.{5}\n/&&$_ for 1..12

Esempio:

$ perl -E 'say`cal $_ $ARGV[0]`=~/\n.{5}\n/&&$_ for 1..12' 2016

2







10


$

Java 7,186 182 172 byte

Grazie a Kevin per aver salvato 4 byte
Grazie a @cliffroot per aver salvato 10 byte

int[]f(int n){int c=n-1,x=c*365+c/4+c/400-c/100,k=0,b[]={3,(n%4<1&n%100>0)|n%400<1?1:0,3,2,3,2,3,3,2,3,2,3},a[]=new int[12];for(int i:b)a[k++]=(x+=i+28)%7==1?1:0;return a;}

ungolfed

int[] f(int n) {
 int c=n-1,x=c*365+(c/4)+(c/400)-(c/100),k=0,
   b[] = {3,(n % 4 < 1 & n % 100 > 0) | n % 400 < 1 ? 1 : 0
                                     ,3,2,3,2,3,3,2,3,2,3},a = new int[ 12 ];

 if ( (n % 4 < 1 & n % 100 > 1) | n % 400 < 1 )
     b[ 1 ] = -1;
 for (int i : b)
    a[ k++ ] = (x += i + 28) % 7 == 1 ? 1 : 0;

return a;
     }

Questa versione è fornita da @cliffroot ( 168 byte )

 static int[] f(int n) {
 int b = 13561787 | ( (n%4 < 1 & n%100 > 0) | n%400 < 1 ? 1 << 20 : 0 ),
           x = --n*365 + n/4 + n/400 - n/100,a[]=new int[12],k=0;
    while (k < 12)
    a[k++] = (x += (b >> 24 - k*2&3 ) + 28) % 7 == 1 ? 1 : 0;
  return a;   }
    }

campione di output

1 1 0 0 0 0 0 0 0 1 0 0(for input 3385)

Python 2, 100 byte

Ugh. La matematica con le date non è così semplice come vorrei.

lambda y:[m+1for m in range(12)if(date(y,12,31)if m>10else(date(y,m+2,1)-timedelta(1))).weekday()<1]

Provalo online

Stessa lunghezza:

lambda y:[m-1for m in range(2,14)if(date(y,12,31)if m>12else(date(y,m,1)-timedelta(1))).weekday()<1]

MATL , 21 byte

12:"G@QhO6(YO9XO77=?@

I mesi sono visualizzati come numeri.

Provalo online! Oppure verifica tutti i casi di test .

Spiegazione

Questo utilizza le funzioni integrate di conversione della data. Per l'anno dato verifica quale mese dell'ultimo giorno è lunedì.

Invece di specificare esplicitamente l'ultimo giorno del mese k(che può essere 28, 29, 30 o 31), specifichiamo il 0-th giorno del mese k+1, che è equivalente e non dipende dal mese o dall'anno.

12:      % Push [1 2 ... 12] (months)
"        % For each month k
  G      %   Push input
  @Q     %   Push k+1
  h      %   Concatenate
  O6(    %   Postpend four zeros. For example, for input 2016 and month k=1 
         %   (first iteration) this gives [2016 2 0 0 0 0] (year, month, day,
         %   hour, min, sec). The 0-th day of month k+1 is the same as the
         %   last day of month k.
  YO     %   Convert the above 6-element date vector to date number
  9XO    %   Convert date number to date string with output format 9, which 
         %   is weekday as a capital letter
  77=    %   Is it an 'M'?
  ?      %   If so
    @    %     Push current month (will be implicitly displayed)

Utilità Bash + GNU, 56 byte

seq -f1month-1day$1-%g-1 12|date -f- +%B%u|sed -n s/1//p

Sembra richiedere la dateversione 8.25. La versione 8.23 ​​in Ideone non la taglia.

Excel, 537 byte

Perché - sai - Excel!

Prende input anno in A1. Restituisce un elenco esadecimale di mesi; 1 = gennaio, C = dicembre. Poiché ogni mese è costituito da una sola cifra, non è necessario alcun separatore.

=IF(2=WEEKDAY(EOMONTH(DATE(A1,1,1),0)),1,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,2,1),0)),2,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,3,1),0)),3,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,4,1),0)),4,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,5,1),0)),5,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,6,1),0)),6,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,7,1),0)),7,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,8,1),0)),8,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,9,1),0)),9,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,10,1),0)),"A","")&IF(2=WEEKDAY(EOMONTH(DATE(A1,11,1),0)),"B","")&IF(2=WEEKDAY(EOMONTH(DATE(A1,12,1),0)),"C","")

Esempio: A1 contiene 2016. B1 contiene la formula sopra e viene visualizzato come 2A, che significa febbraio e ottobre.

PHP, 109 180 159 byte

for($z=$argv[1];$m++<12;)if(date(N,strtotime(sprintf("%04d-$m-",$z).cal_days_in_month(0,$m,$z)))<2)echo"$m,";

• Produce l'anno fornito, non tutti (... leggi sempre la domanda)
• Avvisi ignorati (grazie Titus)
• Passa whilea forcome è ora un solo anno (di nuovo, grazie Titus)

Vecchio 2

$z=0;while($z++<9999){$o=[];$m=0;while($m++<12)if(date("N",strtotime(sprintf("%04d-$m-","$z").cal_days_in_month(0,$m,$z)))<2)$o[]=$m;echo count($o)>0?"$z:".implode(",",$o)."
":"";}

Supporta tutti gli anni dal punto al 10000, inoltre mi sono sbarazzato di un avviso var indefinito di cui non ero a conoscenza su un PC. Sì, è più lungo della vecchia versione, ma è più robusto.

Vecchio 1

while($z++<9999){$o=[];$m=0;while($m++<12)if(date("N",strtotime("$z-$m-".cal_days_in_month(0,$m,$z)))<2)$o[]=$m;echo count($o)>0?"$z:".implode(",",$o)."
":"";}

Se in esecuzione su Windows o un sistema a 32 bit ci sarà il temuto bug 2038, ma su un sistema Linux a 64 bit va bene.

Ho tentato di utilizzare ciò date("t"...che dovrebbe rappresentare l'ultima data di un determinato mese, ma i risultati non corrispondono a quelli precedentemente menzionati in questa discussione.

PHP, 92 byte

for($d=new DateTime("$argv[1]-1-1");$i++<12;)$d->modify("1month")->format(w)!=2?:print"$i,";

controllare 12 volte 1 mese dopo il primo giorno dell'anno è un martedì. Se è allora è il giorno prima dell'ultimo giorno del mese è un lunedì.

C, 214 byte

main(int a,char *b[]){for(int x,y,d,m=12;m;m--){y=atoi(b[1]);x=m-1;d=x==1?(y%4==0?(y%100==0?(y%400==0?29:28):29):28):(x==3||x==5||x==10?30:31);if((d+=m<3?y--:y-2,23*m/9+d+4+y/4-y/100+y/400)%7==1)printf("%d\n",m);}}

Compilare

gcc -std=c99 -o foo foo.c

Ungolfed

Con crediti ai guru interessati.

Michael Keith e Tom Craver per il programma C per trovare il giorno della settimana data indicata .

Collin Biedenkapp per domande e risposte : Come posso capire qual è l'ultimo giorno del mese?

/* credit to Collin Biedenkapp */
short _get_max_day(short x, int z) {
    if(x == 0 || x == 2 || x == 4 || x == 6 || x == 7 || x == 9 || x == 11)
        return 31;
    else if(x == 3 || x == 5 || x == 8 || x == 10)
        return 30;
    else {
        if(z % 4 == 0) {
            if(z % 100 == 0) {
                if(z % 400 == 0)
                    return 29;
                return 28;
            }
            return 29;
        }
        return 28;
    }
}

main(int argc,char *argv[]) {
 for(int y,d,m=12;m;m--) {
  y=atoi(argv[1]);
  d=_get_max_day(m-1,y);
  /* credit to Michael Keith and Tom Craver */
  if ((d+=m<3?y--:y-2,23*m/9+d+4+y/4-y/100+y/400)%7 == 1)
    printf("%d\n",m);
 }
}

C, 119 byte

t=1248700335,m;main(y){for(scanf("%d",&y),t+=y&3||y%25<1&&y&15;m++,(6+y+y/4-y/100+y/400+t)%7||printf("%d,",m),t;t/=7);}

Questo utilizza una tabella che contiene l'offset dei giorni della settimana dell'ultimo giorno di ogni mese per un anno bisestile, codificato in una parola firmata a 32 bit utilizzando la base 7. Se non è un anno bisestile, aggiungiamo 1 all'offset di gennaio (come vedi y&3||y%25<1&&y&15è usato per controllare per anni senza giorni bisestili). Quindi passiamo semplicemente in rassegna ogni mese e controlliamo se il suo ultimo giorno è un lunedì. Abbastanza semplice in realtà, niente brutti hack o trucchi. Qui è leggermente non golfato:

t=1248700335,m;
main(y){
  for(
    scanf("%d",&y),t+=y&3||y%25<1&&y&15;
    m++,(6+y+y/4-y/100+y/400+t)%7||printf("%d,",m),t;
    t/=7
  );
}

Potrei rivisitare questo per riscriverlo come una funzione per salvare alcuni caratteri. La printfprende anche un po 'troppo spazio ...

PHP, 96 95 76 71 69 64 61 byte

Nota: i numeri degli anni devono essere riempiti con 4 caratteri, come 0070.

for(;13+$i-=1;)date(N,mktime(0,0,0,1-$i,0,$argn))-1||print$i;

Esegui in questo modo:

echo 3385 | php -nR 'for(;13+$i-=1;)date(N,mktime(0,0,0,1-$i,0,$argn))-1||print$i;';echo
> -1-2-10

Spiegazione

Iterati da -1 a -12. Crea data usando mktime, giorno 0(l'ultimo giorno del mese precedente) e mese 2..13. Formatta la data come numero del giorno e, se il risultato è 1, stampa il numero corrente. Il segno negativo -viene utilizzato come delimitatore.

Il Millenium Bug colpisce ancora!

Si noti che con questa versione, l'intervallo 0..100viene interpretato come 1970..2069. Questo non è un problema per l'intervallo 0..69, poiché le settimane hanno uno schema che si ripete ogni 400 anni (146097 giorni, esattamente 20871 settimane), ma per l'intervallo 70..99, 1900 viene aggiunto al numero dell'anno, che non è un multiplo di 400. Per risolvere quel problema SOLO per numeri di 30 anni in un intervallo di 10k, il modo più semplice è quello di aggiungere 400 al numero dell'anno per impedire l'interpretazione a 2 cifre ( +4 byte ):

for(;13+$i-=1;)date(N,mktime(0,0,0,1-$i,0,$argn+400))-1||print$i;

Ritocchi

• Ho salvato un byte usando !~-$iper confrontare $icon 1( -1binario negato è 0, logicamente negato è true; ogni altro numero è false), quindi le parentesi non sono necessarie
• Salvato 19 byte utilizzando la last day ofYYYY-mnotazione per creare la data
• 5 byte salvati usando datee strtotimeinvece didate_create
• Salvato 2 byte contando da numeri negativi, usando il segno negativo come delimitatore di output (non esistono numeri di mese negativi) e anche come delim nella YYYY-mparte della data
• 5 byte salvati utilizzando mktimeinvece di strtotime. Ripristinato al giorno di utilizzo 0( mktimesupporta anche il mese 13, quindi 0-13== 31-12)
• Salvato 3 byte utilizzando -Rper rendere $argndisponibile

Excel, 428 97 96 byte

Ingresso in A1. Output valori esadecimali non separati (gennaio = 0, dicembre = B)

=IF(2=WEEKDAY(DATE(A1+2000,1,31)),0,"")&CHOOSE(WEEKDAY(DATE(A1+2000,3,0)),4,19,6,"3B",8,25,"7A")

Aggiunti 10 byte ("+2000") per consentire la gestione delle date precedenti al 1990.

Salvato 11 byte grazie a @ Engineer Toast .

Primo tentativo (428 byte), prendendo in prestito pesantemente dalla soluzione di @ Adám .

=IF(2=WEEKDAY(DATE(A1,1,31)),1,"")&IF(2=WEEKDAY(EOMONTH(DATE(A1,2,1),0)),2,"")&IF(2=WEEKDAY(DATE(A1,3,31)),3,"")&IF(2=WEEKDAY(DATE(A1,4,30)),4,"")&IF(2=WEEKDAY(DATE(A1,5,31)),5,"")&IF(2=WEEKDAY(DATE(A1,6,30)),6,"")&IF(2=WEEKDAY(DATE(A1,7,31)),7,"")&IF(2=WEEKDAY(DATE(A1,8,31)),8,"")&IF(2=WEEKDAY(DATE(A1,9,30)),9,"")&IF(2=WEEKDAY(DATE(A1,10,31)),"A","")&IF(2=WEEKDAY(DATE(A1,11,30)),"B","")&IF(2=WEEKDAY(DATE(A1,12,31)),"C","")

Bash + cal, 58 byte

$ cat t.sh
for A in {1..12};do cal $A $1|grep -qx .....&&echo $A;done
$ bash t.sh 2016
2
10
$

Python 2, 94 byte

from datetime import*
lambda y:[m for m in range(1,13)if date(y+(m>11),m%12+1,1).weekday()==1]

repl.it

Una funzione senza nome, richiede un anno intero, genera un elenco dei numeri dei mesi [1-12].

Ho anche provato a battere il conteggio dei byte con aritmetica senza successo (110 byte). :

lambda y:map(lambda x,v:(23*((x+2)%13or 1)/9+y-2*(0<x<11)+(x>10)+v/4-v/100+v/400)%7==4,range(12),[y-1]+[y]*11)

Una funzione senza nome che restituisce un elenco di valori booleani che rappresentano se i mesi [gennaio-dicembre] terminano in un lunedì

Java 7, 200 249 byte

import java.util.*;String c(int y){String r="";GregorianCalendar c=new GregorianCalendar();c.setGregorianChange(new Date(1L<<63));c.set(1,y);c.set(2,0);for(int i=0;i++<12;c.add(2,1)){c.set(5,c.getActualMaximum(5));if(c.get(7)==2)r+=i+" ";}return r;}

In Java, GregorianCalendarè un mix tra un calendario gregoriano e giuliano. Per questo motivo, l'anno ha 1dato risultati errati. Cambiare Calendar c=Calendar.getInstance();per GregorianCalendar c=new GregorianCalendar();c.setGregorianChange(new Date(1L<<63));risolvere questo problema forzando solo l'uso del calendario gregoriano. Grazie a @JonSkeet su stackoverflow.com per avermelo spiegato.

Codice non testato e test:

Provalo qui.

import java.util.*;
class M{
  static String c(int year){
    String r = "";
    GregorianCalendar calendar = new GregorianCalendar();
    calendar.setGregorianChange(new Date(Long.MIN_VALUE));
    calendar.set(Calendar.YEAR, year);
    calendar.set(Calendar.MONTH, 0);
    for(int i = 0; i++ < 12; calendar.add(Calendar.MONTH, 1)){
      calendar.set(Calendar.DATE, calendar.getActualMaximum(Calendar.DATE));
      if(calendar.get(Calendar.DAY_OF_WEEK) == 2){
        r += i+" ";
      }
    }
    return r;
  }

  public static void main(String[] a){
    System.out.println(c(1));
    System.out.println(c(297));
    System.out.println(c(1776));
    System.out.println(c(2000));
    System.out.println(c(2016));
    System.out.println(c(3385));
  }
}

Produzione:

4 12
5 
9 
1 7 
2 10 
1 2 10 

C # 6 C #, 171 167 135 byte

using System;
void d(int n){for(int i=0;++i<13;)if((int)new DateTime(n,i,DateTime.DaysInMonth(n,i)).DayOfWeek==1)Console.Write(i+" ");}

-32 byte grazie a Shebang

Stampa mesi come numeri; con spazio delimitato; con spazio finale. Ora questa risposta funziona anche per le versioni precedenti di C #.

Vecchio, 167 byte

using System;using System.Linq;
c(int n)=>string.Join(",",Enumerable.Range(1,12).Where(i=>new DateTime(n,i,DateTime.DaysInMonth(n,i)).DayOfWeek==(DayOfWeek)1));

-4 byte grazie a TimmyD

I mesi di output sono numeri nella stringa di restituzione, delimitati da virgole

Ungolfed

string c(int n)=>
    string.Join(",",                                        // Join them with commas
        Enumerable.Range(1,12)                              // For 1-12 inclusive
        .Where(                                             // Select only
            i=>new DateTime(n,i,DateTime.DaysInMonth(n,i)   // Get last day of that year-month
            ).DayOfWeek                                     // Get its day of week
            ==(DayOfWeek)1                              // Is Monday
        )
    )
;

Rubino, 54 + 6 = 60 byte

λ cat monday.rb
p (1..12).select{|m|Date.new($*[0].to_i,m,-1).monday?}
λ ruby -rdate monday.rb 2016
[2, 10]

6 byte per -rdatedalla riga di comando per ottenere la classe Date dalla libreria standard.

Spiegazione: piuttosto semplice grazie alla grande Dateclasse di Ruby stdlib . Non solo ha metodi come monday?, tuesday?ecc., Il costruttore prenderà numeri negativi per qualsiasi campo dell'anno scorso per significare "contare questo campo all'indietro dalla fine del periodo rappresentato dal campo precedente". $*è una scorciatoia per ARGV, quindi $*[0]è un modo rapido per ottenere il primo argomento della riga di comando.

PHP, 84 byte

for($m=1;$m++<14;){if(strftime('%w',strtotime($argv[1]."-$m-1"))==2)echo($m-1)." ";}

Il mio primo codice Golf. Questo è il PHP più breve finora su questa domanda.

EDIT: non sembra funzionare per l'anno 1. Dovrò capire perché, ma in questo momento devo andare.

R, 106 99 95 83 78 77 74 byte

g=function(x)which(format(seq(as.Date(paste0(x,-2,-1)),,'m',12)-1,"%u")<2)

La sequenza degli ultimi giorni di ogni mese è data da seq(as.Date(paste0(x,-2,-1)),,'m',12)-1:

• paste0costringe -2 e -1 ai caratteri. Se xera il 2016 per esempio, paste0(x,-2,-1)dà "2016-2-1"che viene convertito nel 1 febbraio 2016 entro as.Date.

• seqapplicato a un POSIXct o un oggetto Date è seq(from, to , by, length.out): qui tonon viene dato, byviene dato come 'm'abbinato 'month'grazie alla corrispondenza parziale ed length.outè ovviamente 12.

• La sequenza risultante è il primo giorno dei 12 mesi a partire da febbraio dell'anno in questione. -1ci dà quindi l'ultimo giorno dei 12 mesi a partire da gennaio dell'anno in questione.

Casi test:

> g(1)
[1]  4 12
> g(25)
[1] 3 6
> g(297)
[1] 5
> g(2000)
[1] 1 7
> g(2016)
[1]  2 10
> g(3385)
[1]  1  2 10
> g(9999)
[1] 5

Vecchia versione a 95 byte, che mostra i nomi dei mesi anziché solo i loro numeri:

g=function(x)format(S<-seq(as.Date(sprintf("%04i-02-01",x)),,'m',12)-1,"%B")[format(S,"%u")==1]

Japt, 24 byte

Do1 £Ov"Ð400+U"+X e ¥2©X

Provalo online! Emette una serie di numeri, confalseal posto di mesi che non finiscono in un lunedì.

Nell'interprete c'era un bug che non mi permetteva di usare Ðnel corpo della funzione £. Dopo la correzione di bug e un'altra aggiunta di funzionalità, si tratta di 18 byte nel commit corrente:

Do1@Ð400+UX e ¥2©X

Java, 143 129 byte

Questo utilizza la nuova API time di Java 8.

y->{String s="";for(int m=0;++m<13;)if(java.time.YearMonth.of(y,m).atEndOfMonth().getDayOfWeek().ordinal()==0)s+=m+" ";return s;}

Produzione

Si noti che ogni riga ha uno spazio extra alla fine.

4 12 
5 
9 
1 7 
2 10 
1 2 10 

Ungolfed e test

import java.time.*;
import java.util.function.*;

public class Main {
    public static void main (String[] args) {
        IntFunction<String> func = year -> {
          String result = "";
          for (int month=1; month <= 12; month++) {
            if (YearMonth.of(year, month).atEndOfMonth().getDayOfWeek().ordinal() == 0) {
              result += month + " ";
            }
          }
          return result;
        };
        System.out.println(func.apply(1));
        System.out.println(func.apply(297));
        System.out.println(func.apply(1776));
        System.out.println(func.apply(2000));
        System.out.println(func.apply(2016));
        System.out.println(func.apply(3385));
    }
}

rade

1. Da 143 a 129 byte: usare DayOfWeek::ordinalper confrontare con una costante numerica invece della costante enum.
   Grazie @TimmyD per l'idea generale se non la soluzione esatta! ;-)

GNU awk, 80 byte

{for(;m<13;a=mktime($0" "++m" 1 9 0 0")){if(strftime("%w",a-8e4)~1){print m-1}}}

Esempio

$ gawk '{for(;m<13;a=mktime($0" "++m" 1 9 0 0")){if(strftime("%w",a-8e4)~1){print m-1}}}' <<<2016
2
10
$