open Core

(* new_cps was originally new_cps xs = cps (ratio :: xs) however was changes to illustrate a point *)

let splitting_old_2 numerator denominator =
  let rec loop mult ratio cps =
    let new_cps xs = cps xs in
    if mult = 1 then
      new_cps
    else
      fun final ->
      loop (pred mult) (succ ratio)
           new_cps
           (loop (pred mult) (succ ratio * ratio) ident final)
  in
  loop numerator denominator ident []

let splitting numerator denominator =
  let rec loop mult ratio cps =
    let new_cps xs = cps xs in
    if mult = 1 then
      new_cps
    else
      loop (pred mult) (succ ratio * ratio)
           (loop (pred mult) (succ ratio) new_cps)
  in
  loop numerator denominator ident []