fork(2) download
  1. ; powers of 3
  2.  
  3. (define (power-of? m n)
  4. (if (zero? (modulo n m))
  5. (power-of? m (/ n m))
  6. (= n 1)))
  7.  
  8. (display (power-of? 3 27)) (newline)
  9. (display (power-of? 3 36)) (newline)
Success #stdin #stdout 0s 7808KB
stdin
Standard input is empty
stdout
#t
#f