GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Transfer: fixed bug in prelude partition. Fixed naming of tuple field names, made it 1-based as in docs, instead of 0-based as before.

Browse Source
This commit is contained in:
bringert
2005-12-08 09:45:17 +00:00
parent df5ce0a256
commit a282336de6
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
transfer/lib/prelude.tra
View File

@@ -177,7 +177,7 @@ partition : (A : Type) -> (A -> Bool) -> List A -> Pair (List A) (List A)
partition _ _ [] = ([],[])
partition A p (x::xs) =
let r : Pair (List A) (List A) = partition A p xs
in if p x then (x :: fst r, snd r) else (fst r, x :: snd r)
in if p x then (x :: r.p1, r.p2) else (r.p1, x :: r.p2)
-- Instances: