Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Sep 10th, 2008 | Syntax: OCaml | Size: 0.32 KB | Hits: 171 | Expires: Never
This paste has a previous version, view the difference. Copy text to clipboard
  1. let d f (a,b) = (f a, f b) and ( ++ ) a b = fun x -> a (b x)
  2. in d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d ++ d (* .... each ++ d doubles the # of terms in the resulting type... do this 128 times for C*2^128 terms.... *)