fork(1) download
copy 
  1. (define (recombine left right)
  2.   (if (not (null? right))
  3.       (let ((tail (cdr right))
  4.             (next (cons (car right) left)))
  5.         (format #t "~a\n" (string-join
  6.                            (map number->string next) " "))
  7.         (recombine next tail)
  8.         (recombine left tail))))
  9.  
  10. (recombine '() '(1 2 3 4))
Success #stdin #stdout 0.03s 8656KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2 1
3 2 1
4 3 2 1
4 2 1
3 1
4 3 1
4 1
2
3 2
4 3 2
4 2
3
4 3
4
https://ideone.com/G7XROA
language:
Scheme (guile 2.2.4)
created:
9 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!