From 255547edc8f677f5f6f20ad27193d7913aa5ab16 Mon Sep 17 00:00:00 2001 From: Bob Tolbert Date: Tue, 4 Feb 2025 10:55:49 -0600 Subject: [PATCH 1/3] add examples for eachk --- examples/eachk.janet | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 examples/eachk.janet diff --git a/examples/eachk.janet b/examples/eachk.janet new file mode 100644 index 00000000..558afdf5 --- /dev/null +++ b/examples/eachk.janet @@ -0,0 +1,13 @@ +# keys for tuple/array are 0-based index +# prints 0 1 2 3 4 +(eachk i [1 2 3 4 5] (prin i " ")) + +# prints 0 1 2 3 4 +(eachk i @[1 2 3 4 5] (prin i " ")) + +# keys table/struct, but maybe not in order +# prints :b :a +(eachk k {:a 1 :b 2} (prinf "%v " k)) + +# prints :foo :bar +(eachk k @{:foo "A" :bar "B"} (prinf "%v " k)) From ba981d43d6c0f478b561cafd671ef676fb606d6e Mon Sep 17 00:00:00 2001 From: Bob Tolbert Date: Wed, 5 Feb 2025 09:56:14 -0600 Subject: [PATCH 2/3] tweaks examples to match more consistent style --- examples/eachk.janet | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/eachk.janet b/examples/eachk.janet index 558afdf5..c65740d2 100644 --- a/examples/eachk.janet +++ b/examples/eachk.janet @@ -1,11 +1,11 @@ # keys for tuple/array are 0-based index # prints 0 1 2 3 4 -(eachk i [1 2 3 4 5] (prin i " ")) +(eachk i [:a :b :c :d :e] (prin i " ")) # prints 0 1 2 3 4 -(eachk i @[1 2 3 4 5] (prin i " ")) +(eachk i @["a" "b" "c" "d" "e"] (prin i " ")) -# keys table/struct, but maybe not in order +# prints keys in table/struct in an unspecified order # prints :b :a (eachk k {:a 1 :b 2} (prinf "%v " k)) From eda9bedef8b933158972a1b8de381556d72b3aca Mon Sep 17 00:00:00 2001 From: Bob Tolbert Date: Wed, 5 Feb 2025 10:04:10 -0600 Subject: [PATCH 3/3] add return values --- examples/eachk.janet | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/examples/eachk.janet b/examples/eachk.janet index c65740d2..b462fc25 100644 --- a/examples/eachk.janet +++ b/examples/eachk.janet @@ -1,13 +1,13 @@ # keys for tuple/array are 0-based index # prints 0 1 2 3 4 -(eachk i [:a :b :c :d :e] (prin i " ")) +(eachk i [:a :b :c :d :e] (prin i " ")) # -> nil # prints 0 1 2 3 4 -(eachk i @["a" "b" "c" "d" "e"] (prin i " ")) +(eachk i @["a" "b" "c" "d" "e"] (prin i " ")) # -> nil # prints keys in table/struct in an unspecified order # prints :b :a -(eachk k {:a 1 :b 2} (prinf "%v " k)) +(eachk k {:a 1 :b 2} (prinf "%v " k)) # -> nil # prints :foo :bar -(eachk k @{:foo "A" :bar "B"} (prinf "%v " k)) +(eachk k @{:foo "A" :bar "B"} (prinf "%v " k)) # -> nil