TI-Basic (TI-84 Plus CE)
{1001,10,1}→LA
{1010,1,1}→LA
{1011,11,1}→LB
{1020,2,1}→LC
{1021,12,1}→LD
{1030,3,1}→LE
{1040,4,1}→LF
{1050,5,1}→LG
{1060,6,1}→LH
{1070,7,1}→LI
getDate→L1
IF L1(2)=LA(2) and L1(3)=LA(3):Then
"Happy October First!"
End
IF L1(2)=LB(2) and L1(3)=LB(3):Then
"Happy New Year!"
End
IF L1(2)=LC(2) and L1(3)=LC(3):Then
"Happy November First!"
End
IF L1(2)=LD(2) and L1(3)=LD(3):Then
"Happy February First!"
End
IF L1(2)=LE(2) and L1(3)=LE(3):Then
"Happy December First!"
End
IF L1(2)=LF(2) and L1(3)=LF(3):Then
"Happy March First!"
End
IF L1(2)=LG(2) and L1(3)=LG(3):Then
Disp "Happy April Fool's Day!"
Return:End
IF L1(2)=LH(2) and L1(3)=LH(3):Then
"Happy May First!"
End
IF L1(2)=LI(2) and L1(3)=LI(3):Then
"Happy June First!"
End
IF L1(2)=LJ(2) and L1(3)=LJ(3):Then
"Happy July First!"
End
ClrHome
Output(1,1,toString(10000LA(1)+100LA(2)+LA(3)))
Output(2,1,toString(10000LB(1)+100LB(2)+LB(3)))
Output(3,1,toString(10000LC(1)+100LC(2)+LC(3)))
Output(4,1,toString(10000LD(1)+100LD(2)+LD(3)))
Output(5,1,toString(10000LE(1)+100LE(2)+LE(3)))
Output(6,1,toString(10000LF(1)+100LF(2)+LF(3)))
Output(7,1,toString(10000LG(1)+100LG(2)+LG(3)))
Output(8,1,toString(10000LH(1)+100LH(2)+LH(3)))
Output(9,1,toString(10000LI(1)+100LI(2)+LI(3)))
Output(10,1,toString(10000LJ(1)+100LJ(2)+LJ(3)))
Uses OEIS A210884.
Stores the numbers as dates and converts them on-the-fly to output. It even leaves you a message in Ans
if today is one of the dates!
if and only if it is run on April 1st of any year. Run on any other day should make it output its original output.
Can I take an input for currentDate or something? \$\endgroup\$