Ленивое:
Вопрос на понимание subj: а оцените сложность этой программы по времени и памяти, как О(100000):

app [] b = b
app (a:b) c = a:app b c

rev [] = []
rev (a:b) = rev b `app` [a]

main = print (take 10 (rev  [0..100000]))

(если что - (car:cdr) - это тоже самое, что в лиспе (cons car cdr))

Комменты скринятся.