fork download
copy 
  1. positiveDigits = [1..9]
  2. allDigits = [0..9]
  3.  
  4. solutions = [(r, s, x, z, v) |
  5. 	r <- positiveDigits,
  6. 	s <- positiveDigits,
  7. 	x <- allDigits,
  8. 	z <- positiveDigits,
  9. 	v <- allDigits,
  10. 	(r * 1000 + s * 100 + r * 10 + x) + (z * 100 + v * 10 + v) == (s * 1000 + r * 100 + x * 10 + s)]
  11.  
  12. main = putStrLn $ show solutions
Success #stdin #stdout 0s 8388607KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[(1,2,7,9,5),(2,3,8,9,5),(3,4,9,9,5)]
https://ideone.com/HgKhOk
language:
Haskell (ghc 8.4.4)
created:
8 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!