Mindshift: Part 19, sample 7

mindshift19_07.js

var IS_MAGNITUDE_LTE =
  qtyFn1 =>
    qtyFn2 =>
      IS_ZERO_MAGNITUDE(SUBTRACT_MAGNITUDES(qtyFn1)(qtyFn2));

var do_div_magnitudes =  
  div_next =>
    count =>
      pair => 
        // Inner function
        (remainder => divisor => 
           IS_MAGNITUDE_LTE(divisor)(remainder)
             (fn =>
               (div_next(SUCC_MAGNITUDE(count))
                        (PAIR(SUBTRACT_MAGNITUDES(remainder)
                                                 (divisor))
                             (divisor)))
               (fn))
             (PAIR(count)(remainder)))
        // Supply parameters to inner function
        (HEAD(pair))
        (TAIL(pair));