Skip to content

Instantly share code, notes, and snippets.

@chadaustin

chadaustin/multiApp.hs

Created October 13, 2015 02:56
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save chadaustin/2e4dade2c56aa9548a12 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save chadaustin/2e4dade2c56aa9548a12 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
multiApp.hs
multiApp :: Exp -> [Exp] -> Exp
multiApp fn [] = error "Cannot apply zero arguments"
multiApp fn [param] = AppE fn param
multiApp fn params = AppE (multiApp fn $ init params) (last params)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment