Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
module Main exposing (..)
import Browser
import Html exposing (Html, text, div)
isPrime n = List.all ((/=0) << modBy n) (List.range 2 (n-1)) && n > 1
view = div [] [ text (if isPrime 13 then "Prime" else "Not Prime") ]
main = Browser.sandbox { init = (), update = \_ model -> model, view = \_ -> view }Coding works best on desktop or with an external keyboard.