Show both comparison coalescing operators on Integer values.

  minOf() as pure
    ->
      left as Integer
      right as Integer
    <- rtn as Integer: left <? right     //lesser
  maxOf() as pure
    ->
      left as Integer
      right as Integer
    <- rtn as Integer: left >? right     //greater

#!ek9
defines module qa.operators.allcoalescing

  defines function

    // <? — returns the LESSER of two values (the left one on a tie)
    minOf() as pure
      ->
        left as Integer
        right as Integer
      <- rtn as Integer: left <? right

    // >? — returns the GREATER of two values (the left one on a tie)
    maxOf() as pure
      ->
        left as Integer
        right as Integer
      <- rtn as Integer: left >? right

  defines program

    AllCoalescingOperatorsDemo()
      stdout <- Stdout()

      // === BOTH OPERATORS WITH BOTH VALUES SET ===

      scoreA <- 78
      scoreB <- 92

      minResult <- minOf(scoreA, scoreB)
      stdout.println(`<? minimum: ${minResult}`)

      maxResult <- maxOf(scoreA, scoreB)
      stdout.println(`>? maximum: ${maxResult}`)

      // === WITH EQUAL VALUES ===

      valueA <- 50
      valueB <- 50

      equalMin <- minOf(valueA, valueB)
      stdout.println(`<? with equal values: ${equalMin}`)

      equalMax <- maxOf(valueA, valueB)
      stdout.println(`>? with equal values: ${equalMax}`)

      // === WITH ONE UNSET — both return the set value ===

      activeReading <- 65
      offlineReading <- Integer()

      minUnset <- minOf(activeReading, offlineReading)
      stdout.println(`<? one unset: ${minUnset}`)

      maxUnset <- maxOf(activeReading, offlineReading)
      stdout.println(`>? one unset: ${maxUnset}`)

      // === WITH BOTH UNSET — both return unset ===

      missingA <- Integer()
      missingB <- Integer()

      noneMin <- minOf(missingA, missingB)
      if noneMin?
        stdout.println(`Unexpected: ${noneMin}`)
      else
        stdout.println("<? both unset: result is unset")