mcornick (owner)

Revisions

gist: 94025 Download_button fork
public
Public Clone URL: git://gist.github.com/94025.git
Embed All Files: show embed
computus.rb #
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# "A New York correspondent." (1876, April 20). To find Easter. _Nature_, 13, 487.
# http://books.google.com/books?id=H4ICAAAAIAAJ&pg=PA487
 
def computus(year)
  a = year.modulo 19
  b = year / 100
  c = year.modulo 100
  d = b / 4
  e = b.modulo 4
  f = (b + 8) / 25
  g = (b - f + 1) / 3
  h = ((19 * a) + b - d - g + 15).modulo 30
  i = c / 4
  k = c.modulo 4
  l = (32 + (2 * e) + (2 * i) - h - k).modulo 7
  m = (a + (11 * h) + (22 * l)) / 451
  n = (h + l - (7 * m) + 114) / 31
  o = ((h + l - (7 * m) + 114).modulo 31) + 1
  return Time.gm(year, n, o, 0, 0, 0)
end