[FSharp] Add List.intersperse

aardvark-platform · Jul 24, 2024 · b89f5ee · b89f5ee
1 parent de3f5ac
commit b89f5ee
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Aardvark.Base.FSharp/Utilities/Interop/FSLibExtensions.fs b/src/Aardvark.Base.FSharp/Utilities/Interop/FSLibExtensions.fs
@@ -151,6 +151,13 @@ module Prelude =
 
                 acc
 
+        /// Inserts a separator in between the elements of the given list.
+        let inline intersperse (separator: 'T) (list: 'T list) =
+            (list, []) ||> List.foldBack (fun x -> function
+                | [] -> [x]
+                | xs -> x::separator::xs
+            )
+
     module Array =
 
         let inline foldi (folder : int -> 'State -> 'T -> 'State) (state : 'State) (array : 'T[]) =