@prelude/cmp/src/of-lt.ts

Cmp module.

import { type R, asc, eq, dsc } from './prelude.js'

/** @returns comparision function from lower-than function. */
const ofLt =
  <T>(lt: (a: T, b: T) => boolean) =>
    (a: T, b: T): R =>
      lt(a, b) ?
        asc :
        lt(b, a) ?
          dsc :
          eq

export default ofLt