From ee509e05746731b12afe64bfe34284b119f6b4ae Mon Sep 17 00:00:00 2001 From: mryouse Date: Tue, 2 Aug 2022 02:16:38 +0000 Subject: exercises --- rosetta/sum-of-squares.neb | 2 ++ 1 file changed, 2 insertions(+) create mode 100644 rosetta/sum-of-squares.neb (limited to 'rosetta/sum-of-squares.neb') diff --git a/rosetta/sum-of-squares.neb b/rosetta/sum-of-squares.neb new file mode 100644 index 0000000..be76194 --- /dev/null +++ b/rosetta/sum-of-squares.neb @@ -0,0 +1,2 @@ +(func sum-of-squares (lst :[:int]) + (reduce + (map (lambda (x) (* x x)) lst) 0)) -- cgit v1.2.3