fork download
copy 
  1. (define (f n)
  2.  (do ((d (do ((i (- n 1) (- i 1))
  3.               (d '() (cons i d)))
  4.              ((< i 0) d))
  5.          (append (cddr d) (list (car d)))))
  6.      ((null? (cdr d)) (car d))))
  7. (display (f 18))
  8. (display (f 19))
  9. (display (f 20))
Success #stdin #stdout 0.03s 4176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
468
https://ideone.com/AcI6f
language:
Scheme (guile 2.2.4)
created:
14 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!