fork download
copy 
  1. ; man or boy
  2.  
  3. (define (a k x1 x2 x3 x4 x5)
  4.   (define (b)
  5.     (set! k (- k 1))
  6.     (a k b x1 x2 x3 x4))
  7.   (if (<= k 0)
  8.       (+ (x4) (x5))
  9.       (b)))
  10.  
  11. (do ((k 1 (+ k 1))) ((< 12 k))
  12.   (display k) (display ": ")
  13.   (display (a k (lambda ()  1)
  14.                 (lambda () -1)
  15.                 (lambda () -1)
  16.                 (lambda ()  1)
  17.                 (lambda ()  0)))
  18.   (newline))
Success #stdin #stdout 0.07s 8952KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1: 0
2: -2
3: 0
4: 1
5: 0
6: 1
7: -1
8: -10
9: -30
10: -67
11: -138
12: -291
https://ideone.com/1JzXdF
language:
Scheme (guile 2.2.4)
created:
7 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!