Joyeux anniversaire à moi!

Écrivez un programme qui s'imprime Happy birthday to me!le jour de son anniversaire.

1. L'anniversaire du programme est la date de création, de dernière modification ou de compilation du programme (que vous choisissez) et ne doit pas être codé en dur.
2. La date que vous utilisez comme anniversaire ne doit en aucun cas être affectée par l'invocation ou l'exécution du programme. Vous ne pouvez pas modifier votre anniversaire.
3. Pour un crédit supplémentaire (-15% d'octets), imprimez Happy birthday to you!le jour de votre anniversaire (codé en dur), s'il ne coïncide pas avec celui du programme. Ou utilisez l'anniversaire d'une célébrité et obtenez -14%.
4. Il ne doit imprimer que cela et ne rien imprimer d'autre jour.
5. Comptez les octets, en UTF-8.
6. Utilisez le calendrier grégorien.

Bonne chance et joyeux anniversaire (aux programmes nouveau-nés).

PS
Suite au commentaire d'Izkata, si vous imprimez Happy birthday to Melle jour de l'anniversaire de Mel Kaye , vous obtenez 20% de réduction. Mais vous devez fournir une source crédible que c'est cette date.

PHP 77 75 74 65 60

Un grand merci aux superbes suggestions de Tim Seguine :

<?date(dm,getlastmod())-date(dm)&&die?>Happy birthday to me!

PHP sournois: 46 42 41 40

En utilisant l'idée de Phil H et encore la suggestion de Tim Seguine :

<?touch(__FILE__)?>Happy birthday to me!

Bash (sournois): 36

touch $0;echo Happy Birthday to me\!

Selon les règles: "heure de création, modification ou compilation du programme". Je choisis le temps de modification, et une auto-modification perpétuelle. [HT @ace pour 1 caractère]

Perl (également sournois): 29

print "Happy birthday to me!"

Celui-ci est sans doute moins sournois que le premier; Les programmes Perl sont toujours compilés avant d'être exécutés, ce que tout le monde ne sait pas - voyez, il y a une tournure éducative sur la sournoise. Voici donc la date de compilation que j'utilise.

- Modifier pour le changement de règle -

Cela a été écrit avant qu'il n'y ait de règle pour changer votre anniversaire. Je pense que le Perl est toujours debout; tous les programmes Perl sont compilés avant d'être exécutés. Je vais laisser la réponse ici pour des raisons éducatives!

bash - 65

[ `date +%d%m -r $0` = `date +%d%m` ]&&echo Happy birthday to me!

Merci à ugoren , ace et nyuszika7h pour leur aide.

C # 198.05 (233 - 15%)

using s=System;class P{static void Main(){string t=s.DateTime.Now.ToString("Mdd"),b="1202";if(s.IO.File.GetCreationTime(typeof(P).Assembly.Location).ToString("Mdd")==t|b==t)s.Console.Write("Happy birthday to "+(b==t?"you!":"me!"));}}

Formaté:

using s = System;
class P
{
    static void Main()
    {
        string t = s.DateTime.Now.ToString("Mdd"), b = "1202";
        if (s.IO.File.GetCreationTime(typeof(P).Assembly.Location).ToString("Mdd") == t | b == t)
            s.Console.Write("Happy birthday to " + (b == t ? "you!" : "me!"));
    }
}

191 (Pas de bonus)

using s=System;class P{static void Main(){if(s.IO.File.GetCreationTime(typeof(P).Assembly.Location).ToString("Mdd")==s.DateTime.Now.ToString("Mdd"))s.Console.Write("Happy birthday to me!");}}

181,05 (213 - 15%)

Avec quelques instructions supplémentaires (vous devez le compiler b.exeet l'exécuter à partir du répertoire dans lequel l'exécutable se trouve), je peux le ramener à ceci:

using s=System;class P{static void Main(){string t=s.DateTime.Now.ToString("Mdd"),b="1202";if(s.IO.File.GetCreationTime("b.exe").ToString("Mdd")==t|b==t)s.Console.Write("Happy birthday to "+(b==t?"you!":"me!"));}}

171 (Pas de bonus)

Mêmes instructions que ci-dessus, cette fois seulement en imprimant un message pour son anniversaire (donc pas de bonus de -15%).

using s=System;class P{static void Main(){if(s.IO.File.GetCreationTime("b.exe").ToString("Mdd")==s.DateTime.Now.ToString("Mdd"))s.Console.Write("Happy birthday to me!");}}

Java - 275 - 15% = 233,75 avec bonus / 237 sans bonus

Avec bonus:

import java.util.*;class L{public static void main(String[]y){int s=f(new Date());String j="Happy birthday to ";System.out.print(s==f(new Date(new java.io.File("L.class").lastModified()))?j+"me!":s==183?j+"you!":"");}static int f(Date d){return d.getMonth()*40+d.getDate();}}

Sans bonus:

import java.util.*;class L{public static void main(String[]y){if(f(new Date())==f(new Date(new java.io.File("L.class").lastModified())))System.out.print("Happy birthday to me!");}static int f(Date d){return d.getMonth()*40+d.getDate();}}

Je suis né le 23 avril.

Je suis assez fier de cette petite astuce pour économiser quelques octets sur le message. J'espère que cela sera inclus dans d'autres réponses. J'étais le premier à y penser!

Python

105 caractères, pas de crédit supplémentaire. Enregistrez le fichier sous "joyeux anniversaire" et lancez. Fonctionne uniquement en GMT et "anniversaire" est défini comme la date de votre naissance, pas son anniversaire (également appelé "anniversaire").

import sys,os,time
if (int(os.stat(*sys.argv).st_atime/86400)==int(time.time()/86400)):print sys.argv[0]

Pour que cela fonctionne, enregistrez-le comme "joyeux anniversaire pour moi" et exécutez python "happy birthday to me"

Remarque: bien sûr, le tout sauf un petit bootstrap peut être dans le nom de fichier, ce qui réduit tout code arbitrairement grand au bootstrap. Normalement, je considérerais cette "tricherie". Cependant, "joyeux anniversaire" n'est pas un nom de fichier déraisonnable - il décrit ce que fait le programme, bien mieux que certains programmes (par exemple "python"), donc dans ce cas, je vais le permettre :)

Matlab: 66

t=dir('f.m');if strncmp(t.date,date,5),'Happy birthday to me!',end

Le nom du fichier doit être 'fm'

GNU COBOL avec -free, 204

PROGRAM-ID.B.DATA DIVISION.WORKING-STORAGE SECTION.
1 A PIC XXXX/XX.
1 B PIC X(5).
1 C PIC X(21).
PROCEDURE DIVISION.ACCEPT A FROM DATE
ACCEPT C
MOVE WHEN-COMPILED TO B
IF A(3:5) = B OR "12/09" DISPLAY C.

J'enfreins les règles concernant la célébrité, donc pas de bonus là-bas ...

Le texte produit est saisi par l'utilisateur (demandé lors de l'exécution). Si ce n'est pas bon à aller, puis la ligne définissant les Cbesoins à supprimer, comme le fait ACCEPT C, et DISPLAY Cdoit devenir DISPLAY "HAPPY BIRTHDAY TO ME!", pour un sept caractères supplémentaires.

WHEN-COMPILEDest un registre spécial contenant la date / heure de compilation qui est disponible pour le programme (toujours pratique, vous pouvez savoir que vous avez la bonne version). Il est tronqué dans le MOVEcar le reste n'est pas nécessaire. DATEest la date actuelle - celle-ci est yymmdd.

Dans /la définition de A est un symbole d'édition d'insertion, car la date de compilation contient des barres obliques. Un caractère supplémentaire, mais facilite la comparaison.

Célébrité = Grace Hopper

Lot - 37 octets

Voler la méthode utilisée par l'une des réponses Bash ..

@echo.>>%0&echo Happy birthday to me!

Autre méthode - 145 octets

@for /f "tokens=2,3 delims=/ " %%a in ("%date%")do @for /f "tokens=1,2 delims=/" %%c in ("%~t0")do @if %%a%%b==%%c%%d @echo Happy Birthday to me!

Ruby, 69 caractères / octets

puts'Happy birthday to me!'if(Time.new-File.atime($0))%31536000<86400

31536000est le nombre de secondes dans une année et 86400le nombre de secondes dans une journée.

Javascript

Node.js, 156 octets

b=new Date(require("fs").statSync(__filename).mtime);d=new Date();b.getDate()==d.getDate()&&b.getMonth()==d.getMonth()&&console.log("Happy birthday to me!")

Utilise l'heure de modification du fichier.

Powershell - 105 octets

if('{0:M}'-f(gi $MyInvocation.MyCommand.Definition).creationtime-eq(date -f M)){'Happy birthday to me!'}

Non golfé:

if('{0:M}' -f (gi $MyInvocation.MyCommand.Definition).creationtime -eq (date -f M)){
  'Happy birthday to me!'
}

Le bonus n'en vaut pas la peine, je ne peux en obtenir que 117,5.

Powershell - 127

if ((gci $MyInvocation.MyCommand.Path).lastwritetime.ToString("MMdd") -eq (get-date).ToString("MMdd")){"happy birthday to me!"}

Pour le bonus de 15% - 151 octets, moins 15% = 128,4

$r=@{"0308"="you";(gci $MyInvocation.MyCommand.Path).lastwritetime.ToString("MMdd")="me"}[(get-date).tostring("MMdd")]
if($r){"Happy birthday to $r!"}

Ruby - 80 103 87 bytes

m=File.mtime $0
t=Time.now
puts"Happy birthday to me!"if t.month==m.month&&t.day==m.day

Ruby - 123 115 135 121 à 15% = 104.55 97.75 114.75 102.85 Points

t=Time.now
{me:File.mtime($0),you:Time.at(36e5)}.map{|n,d|puts"Happy birthday to #{n}!"if t.month==d.month&&t.day==d.day}

Cela pourrait être un peu plus long ou plus court selon l'endroit où votre anniversaire tombe dans l'année et la façon la plus courte de le représenter. Pour le mien, c'est 36e5(secondes depuis l'époque; selon le fuseau horaire).

Mel Gibson compte-t-il? Voici un octet de 138 octets - 35% de bonus = 89,7 points qui se célèbre, moi et Mel!

t=Time.now
{me:File.mtime($0),you:Time.at(36e5),Mel:Time.at(2e5)}.map{|n,d|puts"Happy birthday to #{n}!"if t.month==d.month&&t.day==d.day}

PureBasic

Sans Bonus - 142

If Bool(FormatDate("%dd%mm",Date())=FormatDate("%dd%mm",GetFileDate(ProgramFilename(),0)))
MessageRequester("","Happy birthday To me!")
EndIf

Avec Bonus - 218 - 15% = 185,3

Dim s$(2)
s$(1)="me"
s$(2)="you"
m$="%dd%mm"
d$=FormatDate(m$,Date())
i=Bool(d$=FormatDate(m$,GetFileDate(ProgramFilename(),0)))|(Bool(d$="2301")<<1)
If i=0:End:EndIf
MessageRequester("","Happy birthday To "+s$(i)+"!")

TI-BASIC, 68 octets

If Ans=0:getDate→G:0:G=G:If getDate=G:Disp "HAPPY BIRTHDAY TO ME!"

Rappelez - vous, ces jetons sont un octet: If , Ans, →, Disp. getDateest de deux octets. Tous les autres symboles à un caractère ont un octet.

J 79

 echo((6!:0'')(('',:'Happy birthday to me!'){~])@:-:&(1 2&{)&:>])1{,1!:0{:4!:3''

Version bonus 120 - 15% = 102

Est-ce que j'obtiens un crédit supplémentaire pour également imprimer les deux lorsque les deux fêtent leur anniversaire?

echo((2 6$(6!:0 '') , 0 2 7)(' ','Happy birthday to ',"2 1]3 5$'you! me!  both!'){~#.@:(-:&(1 2&{)"1)&:>])1{,1!:0{:4!:3''

Explication (de droite à gauche):

last =: {:4!:3''     NB. Take the last script run (i.e. the file itself)
time =: 1{,1!:0 last NB. the modification time is the second element in that file's listing

Le verbe central du train

unbox_both =: &:>      NB. unboxes left and right argument
match  =: -:&(1 2&{)"1 NB. for each date given, left and right, compare them
to_int =: #.           NB. convert boolean to int
from   =: {~           NB. from the left array, take element right.

NB. H contains messages an empty row, appended to all combinations of messages. 
H =: (' ','Happy birthday to ',"2 1]3 5$'you! me!  both!')

V =: (H from to_int)@:match unbox_both NB. after unboxing and comparing, 
                                       NB. select the according message

La dent gauche pour le train central:

dates=: (2 6$(6!:0 '') , 0 2 7) NB. the current date, and the relevant fields of my birthday.

NB. Combining the bricks:
echo (dates V ]) time           NB. output the monads result on time.

Java - 196

Cela diffère de l'autre soumission Java en utilisant des chaînes, en supprimant 41 caractères dans le processus. Il utilise String.format ("% tj") pour formater un java.util.Date ou une chaîne de jour de l'année, puis compare ces deux chaînes.

class Z{public static void main(String[]y){if("".format("%tj",new java.util.Date()).equals("".format("%tj",new java.io.File("Z.class").lastModified())))System.out.print("Happy birthday to me!");}}

Formaté:

class Z
{
    public static void main(String[] y)
    {
        if ("".format("%tj", new java.util.Date()).equals("".format("%tj", new java.io.File("Z.class").lastModified())))
            System.out.print("Happy birthday to me!");
    }
}

C # 191 sans bonus

using s=System;class P{static void Main(){if(s.IO.File.GetCreationTime(typeof(P).Assembly.Location).ToString("Mdd")==s.DateTime.Now.ToString("Mdd"))s.Console.Write("Happy birthday to me!");}}

formaté:

using s = System;
class P
{
    static void Main()
    {
        if (s.IO.File.GetCreationTime(typeof(P).Assembly.Location).ToString("Mdd") == s.DateTime.Now.ToString("Mdd"))
            s.Console.Write("Happy birthday to me!");
    }
}

JavaScript (node.js) - 100 octets

(require('fs').fstatSync(4).mtime+1).match(Date().substr(4,6))&&console.log('Happy birthday to me!')

vb.net ~ 161c

Cela imprimera le message de célébration à tous ceux dont c'est l'anniversaire.

Module M
Sub Main
For Each b In{({"1705","Alan"}),({"2012","You"}),({FileDateTime(Process.GetCurrentProcess.MainModule.FileName).ToString("ddMM"),"Me"})}
If b(0)=Now.ToString("ddMM") Then Console.WriteLine("Happy Birthday To {0}!",b(1))
Next
End Sub
End Module

Alan => Alan Kaye

Score: 253c (-33c vb.net min) = 220 - 15% (ma prime d'anniversaire) = 187c - 14% (anniversaire de célébrité) = 160,82 ~ 161c ou 220c - 29% = 156,2 ~ 157c

Powershell, 82 octets

voir aussi les réponses de Chris J et SpellingD

"Happy birthday to me!"|?{(gv My* -v|% M*|% p*h|gci|% l*w*e|% D*r)-eq(date|% D*r)}

où

gv My* -v|% M*|% p*h|gci|% l*w*e|% D*r

est la combinaison de raccourcis et d' alias pour l'expression:

Get-Valiable MyInvocation -value|% MyCommand|% Path|Get-ChildItem|% LastWritetime|% DayOfYear

cet équivalent d'une forme canonique:

(Get-ChildItem $MyInvocation.MyCommand.Path).LastWritetime.DayOfYear

Powershell, 119 octets - 14% = 102,34 points

filter e{$_-eq(date|% D*r)}$('me'|?{gv My* -v|% M*|% p*h|gci|% l*w*e|% D*r|e}
'Prof'|?{3|e})|%{"Happy birthday to $_!"}

Au 3 janvier , le script s'affiche Happy birthday to Prof!. Si ce script est enregistré le 3 janvier, deux salutations seront affichées.

C # - 63 octets

class P
{
    static void Main()
    {
          Console.Write("Happy birthday to me!"));
    }
}

Je choisis le temps de compilation . Puisque le code C # se compile en MSIL qui lors de l' exécution est compilé en code exécutable par le compilateur JIT , ce programme remplit les conditions.

EDIT-- Réponse potentiellement invalide comme indiqué dans les commentaires.