edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-29 07:44:45 +03:00
Code Issues Projects Releases Wiki Activity

Add Data.List.isPrefix

Browse Source
This commit is contained in:
Edwin Brady 2020-02-01 12:57:14 +00:00
parent 960ad42732
commit 7d47c08140
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -297,6 +297,22 @@ export
sort : Ord a => List a -> List a
sort = sortBy compare
export
isPrefixOfBy : (eq : a -> a -> Bool) -> (left, right : List a) -> Bool
isPrefixOfBy p [] right = True
isPrefixOfBy p left [] = False
isPrefixOfBy p (x::xs) (y::ys) =
if p x y then
isPrefixOfBy p xs ys
else
False
||| The isPrefixOf function takes two lists and returns True iff the first list is a prefix of the second.
export
isPrefixOf : Eq a => List a -> List a -> Bool
isPrefixOf = isPrefixOfBy (==)
--------------------------------------------------------------------------------
-- Properties
--------------------------------------------------------------------------------