by "Stephen Taylor <editor@[EMAIL PROTECTED]
>" <StephenTaylorFRSA@[EMAIL PROTECTED]
Feb 27, 2008 at 01:44 AM
I'm fond too of the following in Dyalog. There are shorter ways to
write daysin, but I'm seduced by lucidity.
=E2=8D=9D is =E2=8D=B5 a leap year?
leap=E2=86=90{0 2=E2=88=8A=E2=8D=A8+=E2=8C=BF=C3=974 100
1000=E2=88=98.|=E2=
=8D=B5}
=E2=8D=9D m daysin y
daysin=E2=86=90{=E2=8D=B5[=E2=8D=BA]}=E2=88=98{31 =E2=8D=B5 31 30 31 30 31
3=
1 30 31 30 31}=E2=88=98{28+leap =E2=8D=B5}
and for those whose email clients mangle Unicode:
leap <- {0 2 {member}{commute} +/[1] =C3=974 100 1000 =C2=B0.| w}
daysin <- {w[a]}=C2=B0{31 w 31 30 31 30 31 31 30 31 30 31}=C2=B0{28+leap
w}
Stephen Taylor
editor@[EMAIL PROTECTED]
