partition.elm

import Html exposing (text)

partition n =
  break (n - 1, 0)
  
break (n, total) =
  case n of
    1 -> total + 1
    n -> 1 + break(n - 1, total + 1)


main =
  partition 8 |> toString |> text