From acdc3b0d78bf26f9a314e96151fb72b13b6418a5 Mon Sep 17 00:00:00 2001 From: elioat Date: Sat, 16 Dec 2023 12:53:34 -0500 Subject: * --- scratch/a.brev | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 scratch/a.brev (limited to 'scratch/a.brev') diff --git a/scratch/a.brev b/scratch/a.brev new file mode 100644 index 0000000..62f0d18 --- /dev/null +++ b/scratch/a.brev @@ -0,0 +1,15 @@ +(import brev mdg) + +(print "hi there") + +(define + (strange a b) + (list 'product (* a b))) + +(define + (strange a b) + (list 'sum (require even? (+ a b)))) + +(print + (map strange '(1 2 3 4) '(5 5 7 8)) + ((over (+ x x y i)) '(10 20 40) '(3 6 9))) \ No newline at end of file -- cgit 1.4.1-2-gfad0