test.elm

import Html exposing (text)

account = 2 / 0

main = 
  text (
    toString
      (account + 1)
  )

-- Infinity 

test2.elm

import Html exposing (text)

main =
  text (
    toString(
      sqrt(-1)
    )
  )

-- NaN

test3.elm

import Html exposing (text)

inf = (1/0)

x = 10 / inf
y = 1000 / inf

main =
  text (
    toString(
      x == y
    )
  )
  
-- True

test4.elm

import Html exposing (text)

inf = (1/0)
nan = sqrt(-1)

main =
  text (
    toString(
      inf + nan
    )
  )
  
-- NaN

test5.elm

import Html exposing (text)

main =
  text (
    toString
    [
      isNaN (0/0),
      isNaN (sqrt -1),
      isNaN (1/0),
      isNaN 1,
      isInfinite (0/0),
      isInfinite (sqrt -1),
      isInfinite (1/0),
      isInfinite 1
    ]
  )
  
-- [True,True,False,False,False,False,True,False]

test6.elm

import Html exposing (text)

inf = 1/0
mininf = logBase 1 0
nan = 0/0

main =
  text (
    toString
    [
      nan < inf,
      nan > inf,
      nan < mininf,
      nan > mininf,
      nan < nan,
      nan > nan,
      nan == nan,
      inf == inf,
      mininf == mininf
    ]
  )
  
-- [False,True,False,True,False,True,False,True,True]