fork(3) download
copy 
  1. main = print $ getPrime 10
  2.  
  3. getPrime x = [(y, z) | y <- [1..x], z <- [y .. x], isPrime $ y + z]
  4.  
  5. isPrime x = all (\y-> x `mod` y /=0)$ filter isPrime [2 .. floor $ sqrt $ fromIntegral x]
Success #stdin #stdout 0s 6236KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[(1,1),(1,2),(1,4),(1,6),(1,10),(2,3),(2,5),(2,9),(3,4),(3,8),(3,10),(4,7),(4,9),(5,6),(5,8),(6,7),(7,10),(8,9),(9,10)]
https://ideone.com/cUw1Vi
language:
Haskell (ghc 8.4.4)
created:
12 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!