CracklePop.elm

module CracklePop (..) where

import Graphics.Element exposing (show)


pattern : Int -> ( Int, Int )
pattern n =
  ( n % 5, n % 3 )


cracklePop : Int -> String
cracklePop n =
  case pattern n of
    ( 0, 0 ) ->
      "CracklePop"

    ( 0, _ ) ->
      "Pop"

    ( _, 0 ) ->
      "Crackle"

    ( _, _ ) ->
      toString n


main : Graphics.Element.Element
main =
  show (List.map cracklePop [1..100])