fork download
copy 
  1. ; interview timing
  2.  
  3. (define (power-two? n)
  4.   (cond ((= n 1) #t)
  5.         ((positive? (modulo n 2)) #f)
  6.         (else (power-two? (/ n 2)))))
  7.  
  8. (display (power-two? 8)) (newline)
  9. (display (power-two? 6)) (newline)
  10. (display (power-two? 137438953472)) (newline)
Success #stdin #stdout 0.03s 8616KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
#t
#f
#t
https://ideone.com/4bBy4f
language:
Scheme (guile 2.2.4)
created:
8 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!