daily pastebin goal
56%
SHARE
TWEET

Untitled

a guest Oct 11th, 2018 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. let bigint_times list1 list2 =
  2.   let rec f list1_rec list2_rec puissance =
  3.   match (list1_rec,list2_rec) with
  4.     ([],[])->[]
  5.     | ([],_)|(_,[])->[]
  6.     | (e1::l1,l2)->
  7.         bigint_sum(bigint_mult l2 (e1*puissance))(f l1 l2 (puissance*10))
  8. in f list1 list2 1;;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top