Advertisement
Guest User

Untitled

a guest
Feb 12th, 2016
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. (* FUNCTION NAME: nele*)
  2. (* FUNCTION DESCRIPTION: Repeats each element in a list n times.*)
  3.  
  4. fun neleHelper2 (a: int, b: int) =
  5. if a=0 then b
  6. else a-1;
  7.  
  8.  
  9. fun neleHelper (a: int list, b: int, c:int) =
  10. if null a then nil
  11. else if ((neleHelper2(b,c))=c) then ((hd a) :: neleHelper((tl a), (neleHelper2(b,c)), c))
  12. else ((hd a) :: neleHelper(a, (neleHelper2(b,c)), c));
  13.  
  14. fun nele (a: int list,b: int) =
  15. if null a then nil
  16. else (neleHelper(a, b, b));
  17.  
  18.  
  19.  
  20. val bob = nele([1,2],3);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement