; lists.x -- List processing examples
;
; Usage:
;   sh x.sh -f examples/x/lists.x

; Map: square every element
(display "squares: ")
(write (List map (fn (_ x) (* x x)) (list 1 2 3 4 5)))
(display "\n" "evens:   ")
(write (List filter (method-ref Num even?) (list 1 2 3 4 5 6 7 8 9 10)))
(display "\n" "sum:     " (List fold + 0 (list 1 2 3 4 5)) "\n" "sorted:  ")
(write (List sort < (list 5 3 8 1 9 2 7 4 6)))
(newline)

; Compose a pipeline with the Fn combinators
(def add1 (fn (_ x) (+ x 1)))
(def double (fn (_ x) (* x 2)))
(def add1-then-double (Fn compose double add1))
(display "compose: " (add1-then-double 5) "\n")