diff options
Diffstat (limited to 'gnuradio-core/src/utils/permute.scm')
| -rw-r--r-- | gnuradio-core/src/utils/permute.scm | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/gnuradio-core/src/utils/permute.scm b/gnuradio-core/src/utils/permute.scm deleted file mode 100644 index 23ddfc9991..0000000000 --- a/gnuradio-core/src/utils/permute.scm +++ /dev/null @@ -1,27 +0,0 @@ -(require 'common-list-functions) - - -(define (permute lst) - (define (aux set head) - (cond ((null? set) head) - (else - (map (lambda (x) - (aux (set-difference set (list x)) - (cons x head))) - set)))) - (aux lst '())) - -(define (permute-2 lst) - (let ((result '())) - (define (aux set head) - (if (null? set) - (set! result (cons head result)) - (for-each (lambda (x) - (aux (set-difference set (list x)) - (cons x head))) - set))) - (aux lst '()) - result)) - - - |