fork download
copy 
  1. import Data.List
  2.  
  3. sv (x:xs) = x:sv [y | y <- xs, rem y x /= 0]
  4.  
  5. main = do { n <- fmap read getLine ;
  6.   print $ 
  7.     last $ take n $ sv [2..] }
Success #stdin #stdout 0.13s 6780KB
comments (?)
stdin
copy 
2000

nubBy (((==0).).rem) [2..] --  1k 0.18s 5.8 MB  --  2k 0.79s 5.8 MB  --  n^2.15
this:  T-sieve:            --  2k 0.14s 6.8 MB  --  4k 0.62s 6.8 MB  --  n^2.15
stdout
copy 
17389
https://ideone.com/cWYH4g
T-sieve {2k....4k} ==> n^2.15
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!