Doomsday rule: Difference between revisions
added RPL
(→{{header|UNIX Shell}}: tweaks) |
(added RPL) |
||
Line 1,467:
04/02/2077 falls on Friday
04/02/2101 falls on Saturday
</pre>
=={{header|RPL}}==
{{works with|HP|48G}}
« IP LASTARG FP 100 * IP LASTARG FP 10000 *
→ d m y
« y DUP 100 MOD 4 400 IFTE MOD
{ 3 7 } { 4 1 } IFTE { 7 4 2 6 4 1 5 3 7 5 } + +
m GET 7 d + SWAP -
7 MOD 2 5 y 4 MOD * + 4 y 100 MOD * + 6 y 400 MOD * +
7 MOD + 7 MOD
» » '<span style="color:blue">WKDAY</span>' STO
{ 6.0118 29.031875 7.121915 23.12197 14.052043 12.022077 2.042101 } 1 « <span style="color:blue">WKDAY</span> » DOLIST
{{out}}
<pre>
1: { 1 1 2 3 4 5 6 }
</pre>
| |||