Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (* FUNCTION NAME: nele*)
- (* FUNCTION DESCRIPTION: Repeats each element in a list n times.*)
- fun neleHelper2 (a: int, b: int) =
- if a=0 then b
- else a-1;
- fun neleHelper (a: int list, b: int, c:int) =
- if null a then nil
- else if ((neleHelper2(b,c))=c) then ((hd a) :: neleHelper((tl a), (neleHelper2(b,c)), c))
- else ((hd a) :: neleHelper(a, (neleHelper2(b,c)), c));
- fun nele (a: int list,b: int) =
- if null a then nil
- else (neleHelper(a, b, b));
- val bob = nele([1,2],3);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement