How many celebrations of rank of a feast or higher have been added since the 1969 calendar reform?

added_feasts.rb

# How many celebrations of rank of a feast or higher have been added
# since the 1969 calendar reform?
# (Data for the discussion at https://www.facebook.com/Liturgie.cz/posts/pfbid02g7wBtAEfsuwjZDoebsqsjnu5VHAyx42txiRqreZrRZ826mxPPzGfjp48PAjgyZXal )

require 'calendarium-romanum/cr'
require 'pp'

class CalendariumRomanum::Sanctorale
  def to_h
    r = {}
    each_day do |date, celebrations|
      celebrations.each do |c|
        raise 'symbol missing' if c.symbol.nil?
        raise 'symbol not unique' if r.has_key? c.symbol
        r[c.symbol] = c
      end
    end
    r
  end
end

original = CR::Data::GENERAL_ROMAN_LATIN_1969.load.to_h
now = CR::Data::GENERAL_ROMAN_LATIN.load.to_h

FEAST = CR::Ranks::FEAST_PROPER # lowest feast rank

added = now.select do |symbol, celebration|
  celebration.rank >= FEAST &&
    ((!original.has_key?(symbol)) ||
     original[symbol].rank < FEAST)
end

pp added