From 534f28d18e1a4d1ed2be6cdd5a4e9e5f32b0b0f1 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Thu, 22 Aug 2024 10:38:10 +0900
Subject: Change to generate vector instead of list

---
 integer-partition/accel-asc.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'integer-partition')

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
-- 
cgit v1.2.3