fork(1) download 
  1. (define fract-part'
  2.     (lambda (bin)
  3.         (cond
  4.             ( (null? bin) 0 )
  5.             ( else (+ (* (car bin) (/ 1 (expt 2 (length bin)))) (fract-part' (cdr bin)))))))
  6.  
  7. (define fract-part
  8.     (lambda (bin)
  9.         (fract-part' (reverse bin))))
  10.  
  11.  
  12. (map (lambda (n) (display n) (display " ")) (map fract-part '( (0) (0 1) (1 0 1) (1) (1 1) (0 1 0 1))))
Success #stdin #stdout 0.03s 4176KB
comments (?)
stdin 
Standard input is empty
stdout 
0 1/4 5/8 1/2 3/4 5/16
https://ideone.com/AFaw2B
language:
Scheme (guile 2.2.4)
created:
12 years ago
visibility:
secret

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!