© 1997 Stephen Arnold

*With thanks to Barry Kissane*

Monday's child is fair of face,

Tuesday's child is full of grace,

Wednesday's child is full of woe,

Thursday's child has far to go,

Friday's child is kind and giving,

Saturday's child works hard for a living,

And the child who is born on the Sabbath day,

Is fair, and wise, and good, and gay.

Which are you?

How did you do that?

If you have any comments or suggestions (or you can help me with my JavaScript!), please drop me an email.

TI-80 / 82 / 83 TI-92 ClrHome

Input "DAY ",D

Input "MONTH ",M

Input "YEAR ",Y

If Y<100

Y+1900->Y

M->O

Y->T

If M<3

Then

M+12->M

Y-1->Y

End

2+D+2*M+iPart(3*(M+1)/5)+Y

+iPart(Y/4)-iPart(Y/100)

+iPart(Y/400)->W

7*fPart(W/7)->W

Disp {D,O,T}

Disp "FALLS ON A"

If W=0 Disp "SATURDAY"

If W=1

Disp "SUNDAY"

If W=2

Disp "MONDAY"

If W=3

Disp "TUESDAY"

If W=4

Disp "WEDNESDAY"

If W=5

Disp "THURSDAY"

If W=6

Disp "FRIDAY"

Stop

()

Prgm

Local d,m,y,w,o,t

ClrIO

Request "Day",d

expr(d)->d

Request "Month",m

expr(m)->m

Request "Year",y

expr(y)->y

If y<100 Then

y+1900->y

EndIf

m->o

y->t

If m<3 Then

m+12->m

y-1->y

EndIf

2+d+2*m+iPart(3*(m+1)/5)

+y+iPart(y/4)-iPart(y/100)

+iPart(y/400)->w

7*fPart(w/7)->w

Disp {d,o,t}

Disp "falls on a"

If w=1 Then

Disp "Sunday"

EndIf

If w=2 Then

Disp "Monday"

EndIf

If w=3 Then

Disp "Tuesday"

EndIf

If w=4 Then

Disp "Wednesday"

EndIf

If w=5 Then

Disp "Thursday"

EndIf

If w=6 Then

Disp "Friday"

EndIf

If w=7 Then

Disp "Saturday"

EndIf

EndPrgm