Chúc mừng sinh nhật tôi!

Viết một chương trình in Happy birthday to me!vào ngày sinh nhật của nó.

1. Sinh nhật của chương trình là thời gian tạo, sửa đổi hoặc biên dịch cuối cùng của chương trình (bạn chọn) và không được mã hóa cứng.
2. Ngày bạn sử dụng làm ngày sinh nhật không được ảnh hưởng bởi việc gọi hoặc thực hiện chương trình theo bất kỳ cách nào. Bạn không thể sửa đổi ngày sinh nhật của bạn.
3. Đối với tín dụng bổ sung (số lượng byte -15%), hãy in Happy birthday to you!vào ngày sinh nhật của bạn (được mã hóa cứng), nếu nó không trùng với chương trình. Hoặc sử dụng sinh nhật của một số người nổi tiếng và nhận -14%.
4. Nó phải chỉ in cái này, và không in bất cứ thứ gì vào bất kỳ ngày nào khác.
5. Đếm số byte, trong UTF-8.
6. Sử dụng lịch Gregorian.

Chúc may mắn và chúc mừng sinh nhật (đến các chương trình sơ sinh).

PS
Theo nhận xét của Izkata, nếu bạn in Happy birthday to Melvào ngày sinh nhật của Mel Kaye , bạn sẽ được giảm 20%. Nhưng bạn phải cung cấp một nguồn đáng tin cậy là ngày này.

PHP 77 75 74 65 60

Rất cám ơn những lời đề nghị tuyệt vời từ Tim Seguine :

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

Lén lút PHP: 46 42 41 40

Sử dụng ý tưởng của Phil H và một lần nữa gợi ý của Tim Seguine :

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

Bash (lén lút): 36

touch $0;echo Happy Birthday to me\!

Theo các quy tắc: "thời gian tạo, sửa đổi hoặc biên dịch của chương trình". Tôi chọn thời gian sửa đổi, và tự sửa đổi vĩnh viễn. [HT @ace cho 1 char]

Perl (cũng lén lút): 29

print "Happy birthday to me!"

Cái này được cho là ít lén lút hơn cái đầu tiên; Các chương trình Perl luôn được biên dịch trước khi chúng được thực thi, điều mà không phải ai cũng biết - nhìn thấy, có một sự quay vòng giáo dục về sự lén lút. Vì vậy, đây là ngày biên dịch mà tôi đang sử dụng.

- Chỉnh sửa để thay đổi quy tắc -

Điều này đã được viết trước khi có bất kỳ quy tắc về việc thay đổi ngày sinh nhật của bạn. Tôi nghĩ người Perl vẫn đứng vững; tất cả các chương trình Perl được biên dịch trước khi chúng được chạy. Tôi sẽ để lại câu trả lời ở đây vì lý do giáo dục!

bash - 65

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

Nhờ ugoren , ace và nyuszika7h để được giúp đỡ.

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

Định dạng:

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 (Không có tiền thưởng)

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%)

Với một số hướng dẫn bổ sung (bạn cần biên dịch nó b.exevà chạy nó từ thư mục có thể thực thi được) Tôi có thể chuyển nó xuống đây:

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 (Không có tiền thưởng)

Tương tự như hướng dẫn ở trên, lần này chỉ in một tin nhắn vào ngày sinh nhật của chính nó (vì vậy không có phần thưởng -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 với tiền thưởng / 237 không có tiền thưởng

Có thưởng

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

Không có tiền thưởng:

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

Tôi sinh vào tháng Tư, 23.

Tôi khá tự hào về thủ thuật nhỏ này để lưu một vài byte vào tin nhắn. Tôi hy vọng nó sẽ được bao gồm trong các câu trả lời khác. Tôi là người đầu tiên nghĩ về điều này!

Con trăn

105 ký tự, không có tín dụng thêm. Lưu tệp dưới dạng "chúc mừng sinh nhật tôi" và chạy. Chỉ chạy trong GMT và "sinh nhật" được định nghĩa là ngày sinh của bạn, không phải là ngày kỷ niệm (cũng thường gọi là "sinh nhật").

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

Để nó hoạt động, hãy lưu cái này là "chúc mừng sinh nhật tôi" và chạy python "happy birthday to me"

Lưu ý: tất nhiên, tất cả trừ một bootstrap nhỏ có thể nằm trong tên tệp, làm cho bất kỳ mã lớn tùy ý nào giảm xuống bootstrap. Thông thường tôi sẽ xem xét "gian lận" này. Tuy nhiên, "chúc mừng sinh nhật tôi" không phải là một tên tệp không hợp lý - nó mô tả những gì chương trình làm, tốt hơn nhiều so với một số chương trình (ví dụ: "python"), vì vậy trong trường hợp này tôi sẽ cho phép nó :)

Matlab: 66

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

Tên tệp phải là 'fm'

GNU COBOL với -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.

Tôi phá vỡ các quy tắc về người nổi tiếng, vì vậy không có tiền thưởng ở đó ...

Văn bản được tạo ra là đầu vào của người dùng (được yêu cầu khi chạy). Nếu điều đó không tốt, thì việc xác định dòng Ccần phải được xóa ACCEPT C, và DISPLAY Ccũng phải trở thành DISPLAY "HAPPY BIRTHDAY TO ME!", cho thêm bảy ký tự.

WHEN-COMPILEDlà một thanh ghi đặc biệt chứa ngày / thời gian biên dịch có sẵn cho chương trình (luôn tiện dụng, bạn có thể biết bạn có phiên bản chính xác). Nó bị cắt ngắn MOVEvì phần còn lại không cần thiết. DATElà ngày hiện tại - ngày này là yymmdd.

Các /trong định nghĩa của A là một biểu tượng chỉnh sửa chèn, kể từ khi biên dịch cập nhật có chứa dấu gạch chéo. Một nhân vật phụ, nhưng làm dịu sự so sánh.

Người nổi tiếng = Grace Hopper

Mẻ - 37 byte

Ăn cắp phương thức được sử dụng bởi một trong những câu trả lời của Bash ..

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

Phương pháp khác - 145 byte

@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 ký tự / byte

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

31536000là số giây trong một năm và 86400là số giây trong một ngày.

JavaScript

Node.js, 156 byte

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!")

Sử dụng thời gian sửa đổi của tập tin.

Powershell - 105 byte

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

Ung dung:

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

Phần thưởng không xứng đáng, tôi chỉ có thể nhận được 117,5.

Powershell - 127

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

Đối với phần thưởng 15% - 151 byte, ít hơn 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 byte

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 điểm

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}

Có thể dài hơn một chút hoặc ngắn hơn tùy thuộc vào nơi sinh nhật của bạn rơi trong năm và cách ngắn nhất để thể hiện điều đó. Đối với tôi, đó là 36e5(giây kể từ kỷ nguyên; phụ thuộc múi giờ).

Mel Gibson có tính không? Đây là một chương trình 138 byte - 35% tiền thưởng = 89,7 điểm , kỷ niệm chính nó, tôi và 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

Không có tiền thưởng - 142

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

Có thưởng - 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 byte

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

Hãy nhớ rằng, các mã thông báo này là một byte : If , Ans, →, Disp. getDatelà hai byte. Tất cả các ký hiệu một ký tự khác là một byte.

J 79

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

Phiên bản thưởng 120 - 15% = 102

Tôi có nhận được thêm tín dụng cho việc in cả hai khi cả hai đang có sinh nhật không?

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''

Giải thích (phải sang trái):

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

Động từ trung tâm của tàu

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

Tine trái cho tàu trung tâm:

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

Điều này khác với trình đệ trình Java khác bằng cách sử dụng Chuỗi, loại bỏ 41 ký tự trong quy trình. Nó sử dụng String.format ("% tj") để định dạng java.util.Date hoặc dài như một chuỗi ngày, và sau đó so sánh hai Chuỗi này.

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

Định dạng:

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 không có tiền thưởng

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

định dạng:

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 byte

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

vb.net ~ 161c

Điều này sẽ in thông điệp kỷ niệm cho tất cả những người có ngày sinh nhật.

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

Điểm: 253c (-33c vb.net phút) = 220 - 15% (tiền thưởng sinh nhật của tôi) = 187c - 14% (Sinh nhật Celeb) = 160.82 ~ 161c hoặc 220c - 29% = 156.2 ~ 157c

Powershell, 82 byte

xem thêm câu trả lời từ Chris J và SpellingD

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

Ở đâu

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

là sự kết hợp của các phím tắt và bí danh cho biểu thức:

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

tương đương với một hình thức kinh điển:

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

Powershell, 119 byte - 14% = 102,34 Điểm

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 $_!"}

Vào ngày 3 tháng 1 , màn hình hiển thị Happy birthday to Prof!. Nếu tập lệnh này được lưu vào ngày 3 tháng 1, hai lời chào sẽ được hiển thị.

C # - 63 byte

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

Tôi chọn thời gian biên dịch . Vì mã C # biên dịch thành MSIL mà trong thời gian chạy được biên dịch thành mã thực thi bởi Trình biên dịch JIT , chương trình này đáp ứng các điều kiện.

EDIT-- Có thể câu trả lời không hợp lệ như được nêu trong các bình luận.