linguisticexplorer/Linguistic-Explorer

module SearchResults

  module Mappers
    
    class ResultMapperImplicationDouble < ResultMapperImplicationCons
      
      private

      def self.find_double_implication(ids, bigger_set_ids)
        prop_values_selected_in_all = LingsProperty.with_ling_id(bigger_set_ids).select_ids.group(:property_value).having(["COUNT(property_value) = ?", ids.size]).count
        prop_values_selected_in_ids = LingsProperty.with_ling_id(ids).select_ids.group(:property_value).having(["COUNT(property_value) = ?", ids.size]).count
        prop_values_double = intersect prop_values_selected_in_all, prop_values_selected_in_ids

        LingsProperty.select_ids.where(:property_value => prop_values_double.keys).group_by(&:property_value)
      end

      def self.intersect(prop_values_all, prop_values_subset)
        prop_values_subset.reject {|pv, size| prop_values_subset[pv] != prop_values_all[pv] }
      end

      def self.find_implications(vals)
        {}.tap do |groups|
          group = get_group(vals)
          cache_by_prop_value = vals_by_prop_values(vals)

          ling_ids_vals = vals_by_ling_id(vals).keys.uniq

          prop_values_in(cache_by_prop_value).each do |prop_value|
            subset_ling_ids = filter_ling_ids(group, prop_value)

            antecedents = find_double_implication(subset_ling_ids, ling_ids_vals).reject {|pv, lps| pv==prop_value }
            antecedents.each_value do |prop|
              prop.sort_by! {|p| p.id }
              parent_id = [prop,cache_by_prop_value[prop_value]].map(&:first).map(&:id).sort
              groups[parent_id] ||= prop.map(&:id)
            end
          end
        end
      end

    end
  end
end