Skip to content

Instantly share code, notes, and snippets.

@vaskaloidis

vaskaloidis/polyevalpowerset

Created April 7, 2014 07:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vaskaloidis/10016090 to your computer and use it in GitHub Desktop.
Save vaskaloidis/10016090 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
polyevalpowerset
fun polyhelper ([], _, _) = 0.0
| polyhelper (a::b, x, e) = ( a * power (x, e) ) + polyhelper (b, x, e + 1.0);
fun polyeval([], _) = 0.0
| polyeval(a::b, x) = a + polyhelper(b, x, 1.0);
fun addToAll(x, nil) = nil
| addToAll(x, y::z) = (x::y)::addToAll(x,z);
fun powerSet(nil) = [nil]
| powerSet(a::b) = powerSet(b)@addToAll(a,powerSet(b));
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment