fork download 
  1. (define (fib n)
  2.   (define (fibaux v l c) (if (= c n) v (fibaux (+ v l) v (+ c 1))))
  3.   (fibaux 0 1 0))
  4.  
  5. (write (fib (read)))
  6.  
Success #stdin #stdout 0.01s 4176KB
comments (?)
stdin 
500
stdout 
139423224561697880139724382870407283950070256587697307264108962948325571622863290691557658876222521294125
https://ideone.com/V6Iy7
language:
Scheme (guile 2.2.4)
created:
15 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!