Skip to content

Instantly share code, notes, and snippets.

@levjj

levjj/do-block.elm

Created May 17, 2014 04:08
Show Gist options
  • Save levjj/686c219a20130d80a289 to your computer and use it in GitHub Desktop.
Save levjj/686c219a20130d80a289 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
do-block.elm
(~>) : Signal a -> (a -> b) -> Signal b
(~>) = flip lift
infixl 4 ~>
main : Signal Element
main = (fps 25
|> count)
~> flip mod 100
~> toFloat
~> ngon 3
~> filled gray
~> (\i -> [i])
~> collage 100 100
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment