Palindrome dates: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (→{{header|RPL}}: Layout) |
||
Line 2,310:
{{works with|Halcyon Calc|4.2.7}}
≪ DUP 100 MOD 4 400 IFTE MOD NOT ≫
≪ 100 + →STR 2 3 SUB ≫
≪ STR→ → mm dd yy
Line 2,320:
THEN
{ 31 28 31 30 31 30 31 31 30 31 30 31 }
IF yy '''LEAP?''' THEN 2 29 PUT END
mm GET dd ≥ AND dd 1 ≥ AND
END
≫ ≫
≪ →STR → year
≪ year 4 DUP SUB year 3 DUP SUB + STR→
year 2 DUP SUB year 1 DUP SUB + STR→
IF DUP2 year '''DTOK?'''
THEN year "-" + ROT '''→2STR''' + "-" + SWAP '''→2STR''' +
ELSE DROP2 ""
END
≫ ≫
≪ { } 2023
WHILE OVER SIZE 15 < REPEAT
DUP '''PALDT'''
IF DUP "" ≠ THEN ROT SWAP + SWAP ELSE DROP END
1 +
| |||