fork download
copy 
  1. import Data.List
  2.  
  3. main = print $ solve
  4.  
  5. solve = length $ filter test $ permutations [0..9]
  6.  
  7. test [a, b, c, d, e, f, g, h, i, j] =
  8. 	a * (b * 10 + c) + (d * 100 + e * 10 + f) == g * 1000 + h * 100 + i * 10 + j
  9.  
Success #stdin #stdout 1.69s 7248KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
350
https://ideone.com/HrjPB1
language:
Haskell (ghc 8.4.4)
created:
10 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!