fork download
copy 
  1.  
  2. --read_int function
  3. read_int :: IO Integer
  4. read_int = do
  5.      line <- getLine
  6.      readIO line
  7.  
  8. --is_prime function
  9. is_prime :: Integer -> Bool
  10. is_prime n = helper n 2
  11.         where
  12.           helper :: Integer -> Integer -> Bool
  13.           helper n i  
  14.               | n < 2 * i = True
  15.               | mod n i > 0 = helper n (i+1)
  16.               | otherwise = False
  17.  
  18. main = do
  19.        n <- read_int
  20.        dump 1 n
  21.        where
  22.            dump i x = do 
  23.                  putStrLn ( show (i) ++ " is a prime? " ++ show (is_prime i) )
  24.                  if i >= x 
  25.                     then putStrLn ("")
  26.                   else do
  27.                     dump (i+1) x
  28.  
Success #stdin #stdout 0.02s 3720KB
comments (?)
stdin
copy 
100
stdout
copy 
1 is a prime? True
2 is a prime? True
3 is a prime? True
4 is a prime? False
5 is a prime? True
6 is a prime? False
7 is a prime? True
8 is a prime? False
9 is a prime? False
10 is a prime? False
11 is a prime? True
12 is a prime? False
13 is a prime? True
14 is a prime? False
15 is a prime? False
16 is a prime? False
17 is a prime? True
18 is a prime? False
19 is a prime? True
20 is a prime? False
21 is a prime? False
22 is a prime? False
23 is a prime? True
24 is a prime? False
25 is a prime? False
26 is a prime? False
27 is a prime? False
28 is a prime? False
29 is a prime? True
30 is a prime? False
31 is a prime? True
32 is a prime? False
33 is a prime? False
34 is a prime? False
35 is a prime? False
36 is a prime? False
37 is a prime? True
38 is a prime? False
39 is a prime? False
40 is a prime? False
41 is a prime? True
42 is a prime? False
43 is a prime? True
44 is a prime? False
45 is a prime? False
46 is a prime? False
47 is a prime? True
48 is a prime? False
49 is a prime? False
50 is a prime? False
51 is a prime? False
52 is a prime? False
53 is a prime? True
54 is a prime? False
55 is a prime? False
56 is a prime? False
57 is a prime? False
58 is a prime? False
59 is a prime? True
60 is a prime? False
61 is a prime? True
62 is a prime? False
63 is a prime? False
64 is a prime? False
65 is a prime? False
66 is a prime? False
67 is a prime? True
68 is a prime? False
69 is a prime? False
70 is a prime? False
71 is a prime? True
72 is a prime? False
73 is a prime? True
74 is a prime? False
75 is a prime? False
76 is a prime? False
77 is a prime? False
78 is a prime? False
79 is a prime? True
80 is a prime? False
81 is a prime? False
82 is a prime? False
83 is a prime? True
84 is a prime? False
85 is a prime? False
86 is a prime? False
87 is a prime? False
88 is a prime? False
89 is a prime? True
90 is a prime? False
91 is a prime? False
92 is a prime? False
93 is a prime? False
94 is a prime? False
95 is a prime? False
96 is a prime? False
97 is a prime? True
98 is a prime? False
99 is a prime? False
100 is a prime? False
https://ideone.com/hkvFz
language:
Haskell (ghc 8.4.4)
created:
11 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!