vvvvalvalval

;; Imagine you have Persons and Dogs entities in you database, with a :dog/master relationship from Dogs to Persons

;; you want a report of how many dog each person in you database has, as a set of [<person-name> <number-of-dogs>], e.g:

#{["John Doe" 3]
  ["Foo bar" 0]
  ["Chuck Norris" 1]}

;; in particular, you want person who do not have a dog to appear in this report.

pchiusano

-- A port of: http://semantic-domain.blogspot.com/2015/03/abstract-binding-trees.html

{-# LANGUAGE DeriveFunctor #-}

module ABT where

import qualified Data.Foldable as Foldable
import Data.Foldable (Foldable)
import Data.Set (Set)
import qualified Data.Set as Set