• Home
• org.julianmichael
• jjm-core_2.13
• 0.2.3
• source code

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

hael.jjm-core_2.13.0.2.3.source-code.Duad.scala Maven / Gradle / Ivy

package jjm

import cats.Order
import cats.implicits._
import cats.Traverse
import cats.Applicative
import cats.Eval

/** Unordered pair. Can be two of the same element. */
sealed trait Duad[A] extends Product with Serializable {
  def min: A
  def max: A

  def map[B: Order](f: A => B): Duad[B] = Duad(f(min), f(max))
}
object Duad {
  private case class DuadImpl[A](val min: A, val max: A) extends Duad[A]
  def apply[A](_1: A, _2: A)(implicit o: Order[A]): Duad[A] = {
    if(_1 <= _2) DuadImpl(_1, _2) else DuadImpl(_2, _1)
  }
  def unapply[A](d: Duad[A]): Some[(A, A)] = Some(d.min -> d.max)

  implicit def duadOrder[A: Order]: Order[Duad[A]] = Order.whenEqual(
    Order.by[Duad[A], A](_.min),
    Order.by[Duad[A], A](_.max)
  )
}