fork download 
  1. (define (pad n)
  2.   (cond ((and (>= n 0) (<= n 2)) 1)
  3.         ((< n 0) (- (pad (+ n 3)) (pad (+ n 1))))
  4.         (#t (+ (pad (- n 2)) (pad (- n 3))))))
  5.  
  6. (define (list-pad a b)
  7. 	(if (= a b) (list (pad b)) (cons (pad a) (list-pad (+ a 1) b))))
  8.  
  9. (define (task z1 z2)
  10. 	(list-pad (min z1 z2) (max z1 z2)))
  11.  
  12. (display (task 10 -6))
  13.  
Success #stdin #stdout 0s 18088KB
comments (?)
stdin 
Standard input is empty
stdout 
(-1 1 0 0 1 0 1 1 1 2 2 3 4 5 7 9 12)
https://ideone.com/pioQvL
language:
Scheme (chicken 4.13)
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!