Skip to content

Instantly share code, notes, and snippets.

@boxdot
Last active August 29, 2015 14:25
Show Gist options
  • Save boxdot/8371a227a69db939975b to your computer and use it in GitHub Desktop.
Save boxdot/8371a227a69db939975b to your computer and use it in GitHub Desktop.
import Char
import Html exposing (..)
import Html.Attributes exposing (..)
chars : Char -> Char -> List Char
chars x y =
let
a = Char.toCode x
b = Char.toCode y
nums = [a .. b]
in
List.map Char.fromCode nums
(...) = chars
main = div [] <| List.map (text << toString) ('A' ... 'Z')
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment