From 0e638ca20cb98f3c7b6deab1418652bc07f713af Mon Sep 17 00:00:00 2001 From: Eric Haney Date: Thu, 16 Jan 2025 20:31:37 -0700 Subject: [PATCH 1/3] Add example for accumulate --- examples/accumulate.janet | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 examples/accumulate.janet diff --git a/examples/accumulate.janet b/examples/accumulate.janet new file mode 100644 index 0000000..54cf801 --- /dev/null +++ b/examples/accumulate.janet @@ -0,0 +1,8 @@ +(reduce + 0 [1 2 3 4]) #-> 10 +(accumulate + 0 [1 2 3 4]) # -> @[1 3 6 10] + +(reduce + 0 []) # -> 0 +(accumulate + 0 []) # -> @[] + +(reduce string "" ["J" "a" "n" "e" "t"]) # -> "Janet" +(accumulate string "" ["J" "a" "n" "e" "t"]) # -> @["J" "Ja" "Jan" "Jane" "Janet"] From 1fccf0f2a62b8df05f4ace7fe6d5a8bba64f93a6 Mon Sep 17 00:00:00 2001 From: Eric Haney Date: Thu, 16 Jan 2025 20:35:13 -0700 Subject: [PATCH 2/3] Add example for accumulate2 --- examples/accumulate2 | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 examples/accumulate2 diff --git a/examples/accumulate2 b/examples/accumulate2 new file mode 100644 index 0000000..22c55f7 --- /dev/null +++ b/examples/accumulate2 @@ -0,0 +1,8 @@ +(reduce2 + [1 2 3 4]) # -> 10 +(accumulate2 + [1 2 3 4]) # -> @[1 3 6 10] + +(reduce2 + []) # -> nil +(accumulate2 + []) # -> @[] + +(reduce2 max [1 4 2 3 9 5]) # -> 9 +(accumulate2 max [1 4 2 3 9 5]) # -> @[1 4 4 4 9 9] From 67d76276e77e91ae617759846929b9aa46ea1621 Mon Sep 17 00:00:00 2001 From: sogaiu <33044872+sogaiu@users.noreply.github.com> Date: Sun, 2 Feb 2025 11:57:29 +0900 Subject: [PATCH 3/3] Update accumulate.janet --- examples/accumulate.janet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/accumulate.janet b/examples/accumulate.janet index 54cf801..94a4cbc 100644 --- a/examples/accumulate.janet +++ b/examples/accumulate.janet @@ -1,4 +1,4 @@ -(reduce + 0 [1 2 3 4]) #-> 10 +(reduce + 0 [1 2 3 4]) # -> 10 (accumulate + 0 [1 2 3 4]) # -> @[1 3 6 10] (reduce + 0 []) # -> 0