fork download
copy 
  1. module Main where
  2.  
  3. main :: IO ()
  4. main = readLn >>= print . solve
  5.  
  6. -- solve :: Int -> 
  7. solve = primes
  8.  
  9. primes :: Int -> [Int]
  10. primes n = go n 2
  11.  
  12. go :: Int -> Int -> [Int]
  13. go x i | i * i > x = [x]
  14.        | x `mod` i == 0 = i : go (x `div` i) i
  15.        | otherwise = go x $ succ i
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
100000000000000
stdout
copy 
[2,2,2,2,2,2,2,2,2,2,2,2,2,2,5,5,5,5,5,5,5,5,5,5,5,5,5,5]
https://ideone.com/qoelWy
language:
Haskell (ghc 8.4.4)
created:
2 days 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!