Re: [Haskell-cafe] Graphical graph reduction

On 2/24/08, dainichi@gmail.com wrote:

(define nth (lambda (n xs) (if (= n 0)(head xs)(nth (- n 1) (tail xs)))))

nth n (x:xs) = if n == 0 then x else nth (n-1) xs

I'm guessing it's some kind of lisp variant? (define nth (lambda (n xs) (cond ((consp xs) (if (= n 0) (head xs) (nth (- n 1) (tail xs)))) (t nil))) -- Taral "Please let me know if there's any further trouble I can give you." -- Unknown