Holidays related to Easter: Difference between revisions

:::*   [[wp:Corpus Christi (feast)|Corpus Christi feast]] (for Catholic)

When Pope Gregory reformed the Catholic calendar in 1582 CE, the drifting of Easter with respect to the seasons was the driving motivation, and the rules for determining it (called the <i>computus</i>) were altered to correct that drift. Catholic nations adopted both the new calendar and the new Easter rulescomputus right away, while Western Protestant nations adopted them more gradually over the next 350 years or so. Eventually, even nations dominated by the Eastern Orthodox church adopted a similar calendar reform (the Revised Julian calendar), so pretty much the whole world agrees on what day it is for civil purposes. But the Eastern churches never adopted the corresponding Easter rule changes; they still use the original Julian calendar and rulescomputus to determine the date of what is known in the West as "Orthodox Easter". Therefore, your output should indicate which computus was used to calculate the dates and, at least for historical dates where the calendar can't be assumed or is location-dependent, which calendar those dates are given in.

You may find algorithms on the [[wp:Computus|Computus]] Wikipedia page. Some of the results:

In the year 400 CE, Easter Sunday was April 1st (in the contemporary Julian calendar), making Ascension Thursday May 10th and Pentecost May 20th. It is ahistorical to give a date so far back for either Trinity Sunday or Corpus Christi, neither of which were observed until centuries later, but they would have been May 27th and 31st. If you extend the modern civil calendar back that far, those days are instead assigned the subsequent dates: Easter on April 2nd, Ascension on May 11th, Pentecost on May 21st.

<langsyntaxhighlight lang="360asm">* Holidays related to Easter 29/05/2016

END HOLIDAYS</langsyntaxhighlight>

<langsyntaxhighlight Adalang="ada">with Ada.Calendar.Arithmetic;

end Main;</langsyntaxhighlight>

<langsyntaxhighlight lang="algol68">MODE YEAR = INT, MONTH = INT, WEEK = INT, DAY = INT;

FOR year FROM 2010 TO 2020 DO easter related print(year) OD</langsyntaxhighlight>

<langsyntaxhighlight lang="bbcbasic"> INSTALL @lib$+"DATELIB"

= FN_mjd(e% - d% * 31, d% + 3, year%)</langsyntaxhighlight>

<langsyntaxhighlight lang="bc">scale = 0

quit</langsyntaxhighlight>

<langsyntaxhighlight lang="bc">scale = 0

quit</langsyntaxhighlight>

<langsyntaxhighlight Befungelang="befunge">037*>1- : 9`#v_2*4+>1-:3`#v_v

*84,g4+1,g4:+1,g4:\< >:#\!#.^#,</langsyntaxhighlight>

<langsyntaxhighlight Clang="c">#include <stdio.h>

}</langsyntaxhighlight>

<langsyntaxhighlight lang="csharp">using System;

<langsyntaxhighlight lang="cobol">

<langsyntaxhighlight lang="lisp">; Easter sunday. Result is a list '(month day)

(list n (1+ p))))</langsyntaxhighlight>

<langsyntaxhighlight lang="d">import std.stdio, std.datetime;

}</langsyntaxhighlight>

end.</langsyntaxhighlight>

<langsyntaxhighlight lang="elixir">defmodule Holiday do

Holiday.task</langsyntaxhighlight>

<langsyntaxhighlight lang="erlang">-module(holidays).

task(Year+Step, Max, Step).</langsyntaxhighlight>

<langsyntaxhighlight lang="factor">USING: calendar formatting io kernel locals math math.ranges

2010 2020 1 holidays</langsyntaxhighlight>

<langsyntaxhighlight lang="forth">

<langsyntaxhighlight lang="fortran"> subroutine easter(year,month,day)

end</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

<langsyntaxhighlight Iconlang="icon">link printf

end</langsyntaxhighlight>

<langsyntaxhighlight lang="j">jed=:3 :0

)</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> jed (400 + 100* i.17),(2010 + i.11),2100</langsyntaxhighlight>

<langsyntaxhighlight lang="j">ged=:3 :0

)</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> ged (400 + 100* i.17),(2010 + i.11),2100</langsyntaxhighlight>

<langsyntaxhighlight lang="java">import java.text.DateFormatSymbols;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="javascript">const Пасха = год => {

if (год <>= 1918) returnдата new+= Date(год, ...(дата/ >100 9| ?0) [3,- дата(год -/ 9]400 :| [2,0) 22- + дата]))2;

<langsyntaxhighlight lang="javascript">const Easter = year => {

if (year <>= 1918) date += (year / 100 | 0) - (year / 400 | 0) - 2;

return new Date(year, ...(date > 9 ? [3, date - 9] : [2, 22 + date]));

}</langsyntaxhighlight>

<langsyntaxhighlight lang="julia"># v0.6

end</langsyntaxhighlight>

<langsyntaxhighlight lang="scala">// version 1.1.2

}</langsyntaxhighlight>

<langsyntaxhighlight Lualang="lua">local Time = require("time")

for year = 2010, 2020 do show(year, holidays(year)) end</langsyntaxhighlight>

=={{header|Mathematica}}/{{header|Wolfram Language}}==

<langsyntaxhighlight Mathematicalang="mathematica">Needs["Calendar`"];DateFormat[x_]:=DateString[x,{"DayNameShort"," ","DayShort"," ","MonthName"}]

2020 Easter: Sun 12 April, Ascension: Thu 21 May, Pentecost: Sun 31 May, Trinity: Sun 7 June, Corpus: Thu 11 June}</langsyntaxhighlight>

<langsyntaxhighlight lang="maxima">/* Easter sunday. Result is a list [month, day]

[n,p]:divide(h+l-7*m+114,31),[n,p+1])$</langsyntaxhighlight>

<syntaxhighlight lang="mk-61">П2 1 9 ПП 86 90 П3 ИП2 4 ПП 86 90

П4 ИП2 7 ПП 86 90 П5 1 9 ИП3 *

1 5 + 3 0 ПП 86 90 П6 2 ИП4

* 4 ИП5 * + 6 ИП6 * + 6

+ 7 ПП 86 90 ИП6 + П1 3 П4 ИП2

1 - 2 10^x / [x] ^ ^ 4 /

[x] - 2 0 + ИП1 + П3 3 1

- /-/ x>=<0 76 78 |x| П3 КИП4 KИП4 ИП3 3 0 - x>= 0

83 - /-/ x<0 87 |x| П3 КИП4 KИП4 ИП3 ИП4 С/П П0 <-> П1 <->

П0 <-> П1 <-> / [x] ИП0 * ИП1 - /-/ В/О</lang>

Calculated, of course, the Orthodox Easter. Enter the number of the year, the result of: the day in the register Y, a month in the register X.

<syntaxhighlight lang="text">П0 <-> П1 <-> - 1 3 + П1 3

1 - /-/ x>=<0 19 21 |x| П1 ИП0 1 + П0 ИП0

П0 ИП0 1 + П0 ИП1 ИП0 С/П ИП1 1 0 +

П1 ИП0 1 + П0 ИП1 ИП0 С/П</langsyntaxhighlight>

<langsyntaxhighlight Nimlang="nim">import strformat, strutils, times

for year in 2010..2020: outputHolidays(year)</langsyntaxhighlight>

<langsyntaxhighlight lang="parigp">/*

<langsyntaxhighlight lang="perl">#!/usr/bin/perl

<span style="color: #000080;font-style:italic;">-- demo\rosetta\Easter.exw</span>

<langsyntaxhighlight PicoLisplang="picolisp">(load "@lib/cal.l") # For 'easter' function

", Corpus: " (dayMon (+ E 60)) ) ) )</langsyntaxhighlight>

<syntaxhighlight lang="text">(subscriptrange, size, fofl):

end Easter;</langsyntaxhighlight>

<langsyntaxhighlight lang="python">from dateutil.easter import *

<syntaxhighlight lang="raku" perl6line>my @abbr = < Nil Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec >;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="rexx">/* REXX **********************************************************************************

Return year month day</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">require 'date'

(2010 .. 2020).each {|year| emit_dates year}</langsyntaxhighlight>

<langsyntaxhighlight lang="scala">import java.util._

}</langsyntaxhighlight>

<langsyntaxhighlight lang="scheme">; Easter sunday. Result is a list '(month day)

(list (quotient n 31) (+ 1 (remainder n 31)))))</langsyntaxhighlight>

<langsyntaxhighlight lang="seed7">$ include "seed7_05.s7i";

end func;</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">require('Date::Calc')

}</langsyntaxhighlight>

<langsyntaxhighlight lang="tcl">package require Tcl 8.5; # Advanced date handling engine

}</langsyntaxhighlight>

<langsyntaxhighlight lang="tuscript">

{{trans|Phix}}<langsyntaxhighlight lang="vb">Public dates As Variant

End Sub</langsyntaxhighlight>{{out}}

{{libheader|Wren-traititerate}}

<langsyntaxhighlight ecmascriptlang="wren">import "./date" for Date

import "./fmt" for Fmt

import "./traititerate" for Stepped

for (year in 2010..2020) outputHolidays.call(year)</langsyntaxhighlight>