Discordian date: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add MAD) |
|||
Line 2,726: | Line 2,726: | ||
test(2015, 9, 19, "Boomtime, day 73 of Bureaucracy in the YOLD 3181") |
test(2015, 9, 19, "Boomtime, day 73 of Bureaucracy in the YOLD 3181") |
||
}</lang> |
}</lang> |
||
=={{header|MAD}}== |
|||
<lang MAD> R DISCORDIAN DATE CALCULATION |
|||
R |
|||
R PUNCH CARD SHOULD CONTAIN - |
|||
R MM/DD/YYYY |
|||
R IN GREGORIAN CALENDAR |
|||
NORMAL MODE IS INTEGER |
|||
VECTOR VALUES MLENGT = |
|||
0 0,0,31,59,90,120,151,181,212,243,273,304,334 |
|||
VECTOR VALUES TIBS = |
|||
0 $31HSAINT TIBS DAY IN THE Y.O.L.D. ,I4*$ |
|||
VECTOR VALUES DISDAT = |
|||
0 $C,6H, DAY ,I2,S1,3HOF ,C,S1,16HIN THE Y.O.L.D. ,I4*$ |
|||
VECTOR VALUES DISDAY = $SWEETMORN$, $BOOMTIME$, |
|||
0 $PUNGENDAY$, $PRICKLE-PRICKLE$, $SETTING ORANGE$ |
|||
VECTOR VALUES DISSSN = $CHAOS$, $DISCORD$, |
|||
0 $CONFUSION$, $BUREAUCRACY$, $THE AFTERMATH$ |
|||
VECTOR VALUES CLDAY = $10HCELEBRATE ,C,3HDAY*$ |
|||
VECTOR VALUES CLFLUX = $10HCELEBRATE ,C,4HFLUX*$ |
|||
VECTOR VALUES HOLY5 = $MUNG$,$MOJO$,$SYA$,$ZARA$,$MALA$ |
|||
VECTOR VALUES HOLY50 = $CHAO$,$DISCO$,$CONFU$,$BURE$,$AF$ |
|||
READ FORMAT GREG,GMONTH,GDAY,GYEAR |
|||
VECTOR VALUES GREG = $2(I2,1H/),I4*$ |
|||
WHENEVER GMONTH.E.2 .AND. GDAY.E.29 |
|||
PRINT FORMAT TIBS, GYEAR + 1166 |
|||
OTHERWISE |
|||
YRDAY = MLENGT(GMONTH)+GDAY |
|||
SEASON = YRDAY/73 |
|||
DAY = YRDAY-SEASON*73 |
|||
WKDAY = (YRDAY-1)-(YRDAY-1)/5*5 |
|||
PRINT FORMAT DISDAT, DISDAY(WKDAY), DAY, |
|||
0 DISSSN(SEASON), GYEAR + 1166 |
|||
WHENEVER DAY.E.5 |
|||
PRINT FORMAT CLDAY, HOLY5(SEASON) |
|||
OR WHENEVER DAY.E.50 |
|||
PRINT FORMAT CLFLUX, HOLY50(SEASON) |
|||
END OF CONDITIONAL |
|||
END OF CONDITIONAL |
|||
END OF PROGRAM</lang> |
|||
{{out}} |
|||
<pre>01/05/2005 |
|||
SETTING ORANGE, DAY 5 OF CHAOS IN THE Y.O.L.D. 3171 |
|||
CELEBRATE MUNGDAY |
|||
09/26/1995 |
|||
PRICKLE-PRICKLE, DAY 50 OF BUREAUCRACY IN THE Y.O.L.D. 3161 |
|||
CELEBRATE BUREFLUX |
|||
02/29/1996 |
|||
SAINT TIBS DAY IN THE Y.O.L.D. 3162 |
|||
12/05/2020 |
|||
PRICKLE-PRICKLE, DAY 47 OF THE AFTERMATH IN THE Y.O.L.D. 3186</pre> |
|||
=={{header|Maple}}== |
=={{header|Maple}}== |