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

refactor: loop once

Browse Source
This commit is contained in:
Justin Lin
2022-04-17 12:09:39 +08:00
parent d7872a467a
commit a9591e8df5
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/_sorted_impl.scad
View File

@@ -1,13 +1,21 @@
function before_after(lt, pivot, less, leng, before = [], after = [], j = 1) =
j == leng ? [before, after] :
let(cond = less(lt[j], pivot))
before_after(lt, pivot, less, leng,
cond ? [each before, lt[j]] : before,
cond ? after : [each after, lt[j]],
j + 1
);
function _sorted(lt, less) =
let(leng = len(lt))
leng <= 1 ? lt :
leng == 2 ? !less(lt[1], lt[0]) ? lt : [lt[1], lt[0]] :
let(
pivot = lt[0],
before = [for(j = 1; j < leng; j = j + 1) if(less(lt[j], pivot)) lt[j]],
after = [for(j = 1; j < leng; j = j + 1) if(!less(lt[j], pivot)) lt[j]]
b_a = before_after(lt, pivot, less, leng)
)
[each _sorted(before, less), pivot, each _sorted(after, less)];
[each _sorted(b_a[0], less), pivot, each _sorted(b_a[1], less)];
function _sorted_default(lt) = _sorted(lt, function(a, b) a < b);