SHARE
TWEET

Untitled

a guest Feb 23rd, 2019 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. exception error;
  2.  
  3. fun first (x::xs, n) = nth(x, n);
  4.  
  5. fun tagliste (n, []) = []
  6.     | tagliste (0, x::xs) = []
  7.     | tagliste (n, x::xs) =
  8.         if length x < n+1
  9.         then raise error
  10.         else first (x::xs, n)::tagliste(n, xs);
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