Revision as of 17:42, 5 May 2023 (view source) Lacika3 (talk \| contribs) (→‎{{header\|Minimal BASIC}}) ← Older edit		Revision as of 08:11, 6 May 2023 (view source) Aerobar (talk \| contribs) m (review RPL comments) Newer edit →
Line 5,036: =={{header\|RPL}}== Early RPL ~~does~~versions do not have any date library, so a specific instruction ~~implements~~implement Zeller's congruence with a stack-oriented algorithm. {{works with\|Halcyon Calc\|4.2.7}} ≪ '''IF''' OVER 2 ≤ '''THEN''' 1 - SWAP 12 + SWAP '''END''' 100 MOD LAST / IP FLOOR DUP 4 / IPFLOOR SWAP DUP + - SWAP DUP 4 / IPFLOOR + + SWAP 1 + 13 * 5 / IPFLOOR + + 7 MOD 5 + 7 MOD 1 + ≫ ''''WKDAY'''' STO▼ ≫▼ ▲ 'WKDAY' STO ≪ { } 2008 2121 '''FOR''' year '''IF''' 25 12 year '''WKDAY''' 7 == '''THEN''' year + '''END NEXT''' ▼ ~~2008 2121 FOR year~~ ▲ ≫ EVAL ▲ IF 25 12 year WKDAY 7 == THEN year + END ~~NEXT~~ ≫ ~~EVAL~~ {{out}} <pre>

Day of the week (view source)