diff options
| -rw-r--r-- | README.md | 48 | ||||
| -rw-r--r-- | integer-partition/accel-asc.scm | 2 |
2 files changed, 25 insertions, 25 deletions
@@ -13,7 +13,7 @@ For more details, please refer to [Jerome Keller's website](https://jeromekelleh #### `(accel-asc n) → <generator>` -Returns a generator that produces a list of integers representing integer partitions for the given value of integer `n`. +Returns a generator that produces a vector of integers representing integer partitions for the given value of integer `n`. ## Examples @@ -22,35 +22,35 @@ Returns a generator that produces a list of integers representing integer partit (srfi 158) (integer-partition accel-asc)) -(generator-for-each (lambda (lst) (display lst) (newline)) +(generator-for-each (lambda (v) (display v) (newline)) (accel-asc 8)) ``` Output: ``` -(1 1 1 1 1 1 1 1) -(1 1 1 1 1 1 2) -(1 1 1 1 1 3) -(1 1 1 1 2 2) -(1 1 1 1 4) -(1 1 1 2 3) -(1 1 1 5) -(1 1 2 2 2) -(1 1 2 4) -(1 1 3 3) -(1 1 6) -(1 2 2 3) -(1 2 5) -(1 3 4) -(1 7) -(2 2 2 2) -(2 2 4) -(2 3 3) -(2 6) -(3 5) -(4 4) -(8) +#(1 1 1 1 1 1 1 1) +#(1 1 1 1 1 1 2) +#(1 1 1 1 1 3) +#(1 1 1 1 2 2) +#(1 1 1 1 4) +#(1 1 1 2 3) +#(1 1 1 5) +#(1 1 2 2 2) +#(1 1 2 4) +#(1 1 3 3) +#(1 1 6) +#(1 2 2 3) +#(1 2 5) +#(1 3 4) +#(1 7) +#(2 2 2 2) +#(2 2 4) +#(2 3 3) +#(2 6) +#(3 5) +#(4 4) +#(8) ``` ## License diff --git a/integer-partition/accel-asc.scm b/integer-partition/accel-asc.scm index 6b44e4d..870cb0b 100644 --- a/integer-partition/accel-asc.scm +++ b/integer-partition/accel-asc.scm @@ -33,7 +33,7 @@ (if #f #f))))))) (begin (define (accel-asc n) - (accel-asc* n vector->list)) + (accel-asc* n vector-copy)) (define (accel-asc* n convert) (make-coroutine-generator |