idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2025-01-01 16:12:26 +03:00
Code Issues Projects Releases Wiki Activity

Add replaceWhen for lists. (#755)

Browse Source
This commit is contained in:
Mathew Polzin 2020-11-27 11:10:08 -08:00 committed by GitHub
parent 502f544d73
commit 6ca03acd71
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libs/base/Data/List.idr
View File

@ -254,6 +254,10 @@ public export
splitOn : Eq a => a -> List a -> List1 (List a)
splitOn a = split (== a)
public export
replaceWhen : (a -> Bool) -> a -> List a -> List a
replaceWhen p b l = map (\c => if p c then b else c) l
||| Replaces all occurences of the first argument with the second argument in a list.
|||
||| ```idris example
@ -262,7 +266,7 @@ splitOn a = split (== a)
|||
public export
replaceOn : Eq a => a -> a -> List a -> List a
replaceOn a b l = map (\c => if c == a then b else c) l
replaceOn a = replaceWhen (== a)
public export
reverseOnto : List a -> List a -> List a