aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Symmetric-difference/Haskell/symmetric-difference-1.hs Normal file
View file

@ -0,0 +1,8 @@
import Data.Set
a = fromList ["John", "Bob", "Mary", "Serena"]
b = fromList ["Jim", "Mary", "John", "Bob"]
(-|-) :: Ord a => Set a -> Set a -> Set a
x -|- y = (x \\ y) `union` (y \\ x)
-- Equivalently: (x `union` y) \\ (x `intersect` y)

2
Task/Symmetric-difference/Haskell/symmetric-difference-2.hs Normal file
View file

@ -0,0 +1,2 @@
*Main> a -|- b
fromList ["Jim","Serena"]

5
Task/Symmetric-difference/Haskell/symmetric-difference-3.hs Normal file
View file

@ -0,0 +1,5 @@
*Main> a \\ b
fromList ["Serena"]
*Main> b \\ a
fromList ["Jim"]