blob: 4f329c3fac3f5c3ea7cc7842104d332bc33e7e7f (
plain)
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!"))
|