Contents

fun isPangram (input: string): bool =
  let
    val counter = Array.tabulate (26, fn _ => 0)
    val chars = map Char.toLower (String.explode input)
    val aCode = ord #"a"

    fun updateCounter c =
      let
        val index = ord c - aCode
      in
        if index < 0
        then ()
        else Array.update (counter, index, (Array.sub (counter, index)) + 1)
      end
  in
    List.app updateCounter chars;
    Array.all (fn x => x > 0) counter
  end

Version data entries

162 entries across 162 versions & 1 rubygems

Version	Path
trackler-2.2.1.18	tracks/sml/exercises/pangram/example.sml
trackler-2.2.1.17	tracks/sml/exercises/pangram/example.sml