fork download
copy 
  1. p n m 2=compare n m==LT
  2. p n m d=if compare n m==LT then False else if mod n m==0then p n(m+1)(d+1)else p n(m+1)d
  3. d z y x=if z==x then return()else if p y 1 0then do
  4.  putStrLn(show y)
  5.  d(z+1)(y+1)x else d z(y+1)x
  6. main=do
  7.  n<-getLine
  8.  d 0 1(read n)
Success #stdin #stdout 0s 4784KB
comments (?)
stdin
copy 
11
stdout
copy 
2
3
5
7
11
13
17
19
23
29
31
https://ideone.com/vHSlhc
language:
Haskell (ghc 8.4.4)
created:
7 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!