input/program.lux


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(;lux)

(def (filter p xs)
  (All [a] (-> (-> a Bool) (List a) (List a)))
  (case xs
    #;Nil
    (list)

    (#;Cons [x xs'])
    (if (p x)
      (list& x (filter p xs'))
      (filter p xs'))))

(_jvm_program args
  (println "Hello, world!"))