use scad

src/util/_impl/_fibseq_impl.scad

@@ -0,0 +1,17 @@
+use <__comm__/__fast_fibonacci.scad>;
+
+function _fibonacci_sequence(seq, n, i = 2) =
+    i > n ? seq :
+    _fibonacci_sequence(
+        concat(seq, [seq[i - 1] + seq[i - 2]]),
+        n,
+        i + 1
+    );    
+
+function _fibseq_impl(from, to) =
+    let(f = __fast_fibonacci(from))
+    from == to ? [f] : 
+    _fibonacci_sequence(
+        [f, __fast_fibonacci(from - 1) + f], 
+        to - from
+    );

src/util/fibseq.scad

@@ -8,20 +8,6 @@
 *
 **/ 
 
-include <__comm__/__fast_fibonacci.scad>;
+use <_impl/_fibseq_impl.scad>; 
 
-function _fibonacci_sequence(seq, n, i = 2) =
+function fibseq(from, to) = _fibseq_impl(from, to);
-    i > n ? seq :
-    _fibonacci_sequence(
-        concat(seq, [seq[i - 1] + seq[i - 2]]),
-        n,
-        i + 1
-    );   
-
-function fibseq(from, to) =
-    let(f = __fast_fibonacci(from))
-    from == to ? [f] : 
-    _fibonacci_sequence(
-        [f, __fast_fibonacci(from - 1) + f], 
-        to - from
-    );

test/util/test_fibseq.scad

@@ -0,0 +1,10 @@
+use <unittest.scad>;
+use <util/fibseq.scad>;
+
+module test_fibseq() {
+    echo("==== test fibseq ====");
+
+    assert([1, 1, 2, 3, 5, 8, 13, 21, 34, 55] == fibseq(1, 10)); 
+}
+
+test_fibseq();