fork download
copy 
  1. hlpr(n, 1) = False
  2. hlpr(n, k) = (n `mod` k == 0) || hlpr(n, k - 1)
  3.  
  4. isPrime(n) = not $ hlpr(n, n - 1)
  5.  
  6. main = print(isPrime(9))
Success #stdin #stdout 0s 6264KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
False
https://ideone.com/ZQ7nvN
language:
Haskell (ghc 8.4.4)
created:
9 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!