fork download
copy 
  1.  
  2. list = [(a,b) | s<-[1..5000 ], a<-[1..s-1], let b = s - a, (show $ a^2 + b^2 ) == ( show $ a ) ++ ( show $ b ) ]
  3.  
  4. main = print $ list
Success #stdin #stdout 2.98s 4888KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[(10,1),(12,33),(10,100),(88,33),(990,100),(588,2353)]
https://ideone.com/l9C4SZ
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!