Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
:- module prime.
:- interface.
:- import_module io.
:- pred main(io::di, io::uo) is det.
:- implementation.
:- func is_prime(int) = bool.
is_prime(N) = (if N < 2 then no else not any([X :- X = 2..N-1, N mod X = 0]) ).
main(!IO) :- io.write_string(if is_prime(13) then "Prime\n" else "Not Prime\n", !IO).Coding works best on desktop or with an external keyboard.