Clojure Loops

gistfile1.rb

require 'continuation'

class Clojure
  def self.loop(*initial_args, &block)
    cont = nil
    args = callcc do |c|
      class << (cont = c)
        alias :recur :call
      end

      initial_args
    end
    cont.instance_exec(*args, &block)
  end
end

class PrimeFactors
  def self.of(number)
    Clojure.loop(number, [], 2) do |remaining, divisors, divisor|
      if remaining < 2
        divisors
      elsif remaining % divisor == 0
        recur(
          (remaining / divisor),
          divisors.push(divisor),
          divisor
        )
      else
        recur(remaining, divisors, divisor + 1)
      end
    end
  end
end