Flavour:
Clean
GHC
Trampolining:
No
Yes
SAPL source code (or
load
the SAPL code of the compiler itself, 190Kb):
:: list = nil | cons x xs take !n xs = select xs nil (\a as = if (eq n 0) nil (cons a (take (sub n 1) as))) filter f xs = select xs nil (\a as = if (f a) (cons a (filter f as)) (filter f as))
Generated JS code: