Commit3f667b5

authored and

committed

Remove unused mapFold and mapFoldBack functions (#4038)

1 parent56fb8e3 commit3f667b5Copy full SHA for 3f667b5

File tree

-19

lines changed

-19

lines changed

Lines changed: 0 additions & 19 deletions

Original file line number	Diff line number	Diff line change
`@@ -115,16 +115,6 @@ module Array =`
`115`	`115`	`Array.length l1= Array.length l2&&`
`116`	`116`	`Array.forall2 p l1 l2`
`117`	`117`
`118`		`-letmapFold f s l=`
`119`		`-let mutableacc= s`
`120`		`-letn= Array.length l`
`121`		`-let mutableres= Array.zeroCreate n`
`122`		`-for i=0to n-1do`
`123`		`-leth',s'= f acc l.[i]`
`124`		`- res.[i]<- h';`
`125`		`- acc<- s'`
`126`		`- res, acc`
`127`		`-`
`128`	`118`	`letorder(eltOrder:IComparer<'T>)=`
`129`	`119`	`{new IComparer<array<'T>>with`
`130`	`120`	`member__.Compare(xs,ys)=`
`@@ -449,15 +439,6 @@ module List =`
`449`	`439`	`match lwith`
`450`	`440`	`\|[]->false`
`451`	`441`	`\| h::t-> LanguagePrimitives.PhysicalEquality x h\|\| memq x t`
`452`		`-`
`453`		`-// Not tail recursive`
`454`		`-let recmapFoldBack f l s=`
`455`		`-match lwith`
`456`		`-\|[]->([],s)`
`457`		`-\| h::t->`
`458`		`-lett',s= mapFoldBack f t s`
`459`		`-leth',s= f h s`
`460`		`-(h'::t', s)`
`461`	`442`
`462`	`443`	`letmapNth n f xs=`
`463`	`444`	`let recmn i=function`

Comments

(0)