fork download
copy 
  1. ; babbage's number
  2.  
  3. (define (babbage1)
  4.   (let loop ((n 1))
  5.     (if (= (modulo (* n n) 1000000) 269696) n
  6.       (loop (+ n 1)))))
  7.  
  8. (display (babbage1)) (newline)
  9.  
  10. (define (babbage2)
  11.   (let ((wheel (vector 2 8)))
  12.     (let loop ((n 4) (w 0))
  13.       (if (= (modulo (* n n) 1000000) 269696) n
  14.         (loop (+ n (vector-ref wheel w)) (- 1 w))))))
  15.  
  16. (display (babbage2)) (newline)
Success #stdin #stdout 0.25s 50592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
25264
25264
https://ideone.com/fKfXXe
language:
Scheme (guile 2.2.4)
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!