Advertisement
Guest User

Untitled

a guest
Jan 14th, 2020
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. fun rush(l1,[]) = []
  2. |   rush([],l2) = []
  3. |   rush(l1,l2) = (hd l1,hd l2) :: rush(l1, tl l2);
  4.  
  5. fun runrush(l1,[]) = []
  6. |   runrush([],l2) = []
  7. |   runrush(l1,l2) = rush(l1,l2) @ runrush(tl l1,l2);
  8.  
  9. runrush([1,4],[2,3]);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement