** haskell and tables :PROPERTIES: :DATE: 2009-11-20 :END: #+begin_src haskell sumListCond :: Int -> Int -> [Int] -> Int sumListCond l n xs | foldl (+) 0 (take l xs) <= n = sumListCond (l + 1) n xs | otherwise = foldl (+) 0 (take (l - 1) xs) #+end_src #+begin_src oz #+end_src