fork download
copy 
  1. primes :: [Int]
  2. primes = 2 : filter isprime [3,5..100000] where
  3.     isprime n = all ((/=0).(rem n)) $ takeWhile ((<=n).(^2)) primes
  4.  
  5. main = print . length $ primes
Success #stdin #stdout 0.04s 4644KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
9592
https://ideone.com/j5TVv7
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!