Discordian date: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 4,269: | Line 4,269: | ||
Boomtime, Bureaucracy 73, 3181 |
Boomtime, Bureaucracy 73, 3181 |
||
Setting Orange, The Aftermath 73, 3266 |
Setting Orange, The Aftermath 73, 3266 |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|Halcyon Calc|4.2.7}} |
|||
≪ '''IF''' DUP2 R→C (29,2) == '''THEN''' DROP2 0 |
|||
'''ELSE''' |
|||
'''IF''' DUP 1 == '''THEN''' DROP |
|||
'''ELSE''' |
|||
{ 31 59 90 120 151 181 212 243 273 304 334 } |
|||
SWAP 1 - GET + |
|||
'''END END''' |
|||
≫ ‘'''DQtm'''’ STO |
|||
≪ 1166 + ROT ROT '''DQtm''' |
|||
'''IF''' DUP '''THEN''' |
|||
1 - { "Sweetmorn", "Boomtime", "Pungenday", "Prickle-Prickle", "Setting Orange" } |
|||
OVER 5 MOD 1 + GET ", " + |
|||
SWAP { "Chaos", "Discord", "Confusion", "Bureaucracy", "The Aftermath" } |
|||
OVER 73 / IP RND 1 + GET " " + |
|||
SWAP 73 MOD 1 + →STR + + |
|||
'''ELSE''' DROP "St. Tib's Day" '''END''' |
|||
", YoLD " + SWAP →STR + |
|||
≫ ‘'''DDATE'''’ STO |
|||
{{in}} |
|||
<pre> |
|||
19,1,2023 DDATE |
|||
29,2,2024 DDATE |
|||
25,12,800 DDATE |
|||
</pre> |
|||
{{out}} |
|||
<pre> |
|||
3: "Prickle-Prickle, Chaos 19, YoLD 3189" |
|||
2: "St. Tib's Day, YoLD 3190" |
|||
1: "Prickle-Prickle, The Aftermath 67, YoLD 1966" |
|||
</pre> |
</pre> |
||