Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 20th, 2010 | Syntax: OCaml | Size: 0.10 KB | Hits: 87 | Expires: Never
Copy text to clipboard
  1. let rec dotproduct =  a::r, b::s -> (a *. b) +. (dot_product r s).. or a::r, b::s -> loop (a *. b) r s