设计一个算法，找出一个无环的单链表里面倒数第k个元素

速度要快！

BTW：如果要找中间的那个呢？

用两个指针，其中间间隔距离是K， 当前面的指针指到链表尾，后面的链表就指向第K个元素。

Haskell的。思路是做一个临时列表，用来保存K个元素，一旦到达链表底部，就返回临时列表的第一个元素。不知道是不是还有更好的做法。

findK :: [a] -> Int -> a
findK x k = findK' x k []

findK' :: [a] -> Int -> [a] -> a
findK' [] k a
    | k > 0 = error "This list hasn't K element"
    | otherwise = head a
findK' (x:xs) k a
    | k <= 0 = findK' xs (k - 1) (tail(a ++ [x])) --如果列表已满，加入当前元素，并弹出第一个元素
    | otherwise = findK' xs (k - 1) (a ++ [x]) --加入当前元素到临时列表

找中间元素的思路差不多，区别在于在当前位置为奇数时弹出临时列表的第一个元素。

findMiddle :: [a] -> a
findMiddle [] = error "This list is empty."
findMiddle x = findMiddle_sub x [] 1

findMiddle_sub :: [a] -> [a] -> Int -> a
findMiddle_sub [] a position = head a
findMiddle_sub (x:xs) a position
    | position == 1 || even position = findMiddle_sub xs (a ++ [x]) incrPos
    | otherwise = findMiddle_sub xs (tail(a ++ [x])) incrPos
    where incrPos = position + 1