fork(2) download
copy 
  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
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
#t
#f
https://ideone.com/hpSaFA
language:
Scheme (chicken 4.13)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!