quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

faster filter

Browse Source
This commit is contained in:
Vyacheslav Matyukhin 2022-09-09 17:04:32 +04:00
parent 4d1f76f80e
commit 1187c0330a
No known key found for this signature in database
GPG Key ID: 3D2A774C5489F96C
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/squiggle-lang/src/rescript/FunctionRegistry/Library/FR_List.res
View File

@ -73,19 +73,18 @@ module Internals = {
accessors: ProjectAccessorsT.t, accessors: ProjectAccessorsT.t,
reducer: ProjectReducerFnT.t, reducer: ProjectReducerFnT.t,
) => { ) => {
let mappedList = aValueArray->Belt.Array.reduceReverse(list{}, (acc, elem) => { Js.Array2.filter(aValueArray, elem => {
let newElem = Reducer_Expression_Lambda.doLambdaCall( let result = Reducer_Expression_Lambda.doLambdaCall(
aLambdaValue, aLambdaValue,
list{elem}, list{elem},
accessors, accessors,
reducer, reducer,
) )
switch newElem { switch result {
| IEvBool(true) => list{elem, ...acc} | IEvBool(true) => true
| _ => acc | _ => false
} }
}) })->Wrappers.evArray
mappedList->Belt.List.toArray->Wrappers.evArray
} }
} }