fork download
copy 
  1. import Data.Ratio
  2. import Data.List
  3.  
  4. main = do
  5.   let zielone = replicate 10 5 ++ replicate 5 2
  6.       biale   = replicate  2 5 ++ replicate 3 2
  7.       omega   = [ x+y | t <- zielone, x <- (t:biale), y <- delete x (t:biale) ]
  8.   print $ (length (filter (==7) omega)) % (length omega)
Success #stdin #stdout 0s 6276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
26 % 45
https://ideone.com/16fo7P
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!