fork download
copy 
  1. piki   = 0
  2. trefy  = 1
  3. bubny  = 2
  4. chervy = 3
  5.  
  6. mast 0 = "Piki"
  7. mast 1 = "Trefy"
  8. mast 2 = "Bubny"
  9. mast 3 = "Chervy"
  10.  
  11. dost 1  = "Tuz"
  12. dost 11 = "Valet"
  13. dost 12 = "Dama"
  14. dost 13 = "Korol"
  15. dost n  = show n
  16.  
  17. karta (d, m) = dost d ++ " " ++ mast m
  18.  
  19. karty = [ (dost, mast) | mast <- [piki..chervy], dost <- [1..13] ]
  20.  
  21. vzyatTriKarty = [(karty!!1), (karty!!17), (karty!!38)]
  22.  
  23. main = mapM_ (putStrLn . karta) vzyatTriKarty
Success #stdin #stdout 0s 5736KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2 Piki
5 Trefy
Korol Bubny
https://ideone.com/pGVc7Q
language:
Haskell (ghc 8.4.4)
created:
12 years ago
visibility:
secret

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!