openscad/dotSCAD
1
0
Fork 0
mirror of https://github.com/JustinSDK/dotSCAD.git synced 2025-08-11 01:04:07 +02:00
Code Issues Releases Wiki Activity

refactor: loop once

Browse Source
This commit is contained in:
Justin Lin
2022-04-17 12:12:40 +08:00
parent a9591e8df5
commit eb96b767d4
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/util/_impl/_dedup_impl.scad
View File

@@ -33,13 +33,21 @@ function _add(buckets, bucket, i_elem, b_idx) =
let(leng = len(buckets))
[for(i = 0; i < leng; i = i + 1) i == b_idx ? [each bucket, i_elem] : buckets[i]];
function before_after(lt, pivot, leng, before = [], after = [], j = 1) =
j == leng ? [before, after] :
let(cond = lt[j][0] < pivot[0])
before_after(lt, pivot, leng,
cond ? [each before, lt[j]] : before,
cond ? after : [each after, lt[j]],
j + 1
);
function _sort(lt) =
let(leng = len(lt))
leng == 0 ? [] :
leng == 1 ? [lt[0][1]] :
let(
pivot = lt[0],
before = [for(j = 1; j < leng; j = j + 1) if(lt[j][0] < pivot[0]) lt[j]],
after = [for(j = 1; j < leng; j = j + 1) if(lt[j][0] >= pivot[0]) lt[j]]
b_a = before_after(lt, pivot, leng)
)
[each _sort(before), pivot[1], each _sort(after)];
[each _sort(b_a[0]), pivot[1], each _sort(b_a[1])];