fork download
copy 
  1.  
  2. import Data.List
  3.  
  4. n = 6
  5.  
  6. dices = let
  7.     iterator x = id
  8.         $ map sum
  9.         $ transpose
  10.         $ [ replicate i 0 ++ x ++ replicate ( n - i + 1 ) 0 
  11.             | i <- [ 1..n ] ]
  12.     in iterate iterator [ 1 ]
  13.  
  14. main = do
  15.     print $ dices !! 3 !! 9
  16.     print $ dices !! 3 !! 10
Success #stdin #stdout 0s 4648KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
25
27
https://ideone.com/4ElczD
language:
Haskell (ghc 8.4.4)
created:
3 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!