fork download 
  1. data Set e = Set [e] deriving Show
  2.  
  3. mySet :: Set Int
  4. mySet = Set [1, 2, 3, 4, 5]
  5.  
  6. setLength :: Set e -> Int
  7. setLength (Set s) = length s
  8.  
  9. empty :: Set e -> Bool
  10. empty (Set s) = if null s then True else False
  11.  
  12. insert :: Set e -> e -> Set e
  13. insert (Set s) value = Set $ value : s
  14.  
  15. main = print $ insert mySet 4
Success #stdin #stdout 0s 4540KB
comments (?)
stdin 
Standard input is empty
stdout 
Set [4,1,2,3,4,5]
https://ideone.com/3LpTPq
language:
Haskell (ghc 8.4.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!