vendor/bundle/ruby/3.4.0/gems/rouge-4.5.2/lib/rouge/demos/clean


1
2
3
4
5
6

delete :: !a !.(Set a) -> Set a | < a
delete x Tip = Tip
delete x (Bin _ y l r)
  | x < y     = balanceR y (delete x l) r
  | x > y     = balanceL y l (delete x r)
  | otherwise = glue l r