diff options
| author | Ben Reynwar <ben@reynwar.net> | 2013-04-02 23:04:08 -0700 |
|---|---|---|
| committer | Ben Reynwar <ben@reynwar.net> | 2013-04-02 23:04:08 -0700 |
| commit | c6dbde23b256a41b3d92cb4ad6b63287095d53c7 (patch) | |
| tree | 71db12ea2e1667770c22568dcdf5e0857d5f1e59 /gnuradio-core/src/utils/permute.scm | |
| parent | 22b70d0889ef3c51e27a31ee18d153093a55cbb8 (diff) | |
| parent | 98758cbfa9a2aff714952d19e773bc370dfa2185 (diff) | |
Merged next into uninstalled import branch.
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)) - - - |