fork(4) download
copy 
  1. ; binary concatenation
  2.  
  3. (define (f n)
  4.   (let loop ((i 1) (s 0) (p 1))
  5.     (when (= i p) (set! p (+ p p)))
  6.     (if (< n i) s
  7.       (loop (+ i 1) (modulo (+ (* s p) i) 1000000007) p))))
  8.  
  9. (display (f 4)) (newline)
  10. (display (f 10)) (newline)
Success #stdin #stdout 0.01s 7920KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
220
462911642
https://ideone.com/fPiIxa
language:
Scheme (chicken 4.13)
created:
3 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!