mirror of
https://github.com/iritmaximus/haskell.git
synced 2026-10-12 19:13:39 +03:00
Set 12 Ex 7: don't care about ordering
This commit is contained in:
@@ -112,7 +112,7 @@ ex6_maybe =
|
|||||||
ex7_list =
|
ex7_list =
|
||||||
forAll_ $ \(is::[Int]) ->
|
forAll_ $ \(is::[Int]) ->
|
||||||
forAll_ $ \(js::[Int]) ->
|
forAll_ $ \(js::[Int]) ->
|
||||||
$(testing [|inBoth (nub is) (nub js)|]) (?==intersect (nub is) (nub js))
|
$(testing [|inBoth (nub is) (nub js)|]) (hasElements $ intersect (nub is) (nub js))
|
||||||
|
|
||||||
ex7_maybe =
|
ex7_maybe =
|
||||||
forAll_ $ \(i::Int) ->
|
forAll_ $ \(i::Int) ->
|
||||||
|
|||||||
Reference in New Issue
Block a user