idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-08-16 16:50:46 +03:00
Code Issues Projects Releases Wiki Activity

[ perf ] Do not split tree too early

Browse Source
This commit is contained in:
Denis Buzdalov 2023-09-27 19:50:59 +03:00 committed by G. Allais
parent 276d41d86c
commit f3eff838b2
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libs/contrib/Data/Seq/Internal.idr
View File

@ -441,10 +441,9 @@ export
split : Nat -> FingerTree (Elem a) -> (FingerTree (Elem a), FingerTree (Elem a))
split _ Empty = (Empty, Empty)
split i xs =
let MkSplit l x r = splitTree i xs
in if size xs > i
then (l, x `consTree` r)
else (xs, Empty)
if size xs > i
then let MkSplit l x r = splitTree i xs in (l, x `consTree` r)
else (xs, Empty)
-- Concatenation