Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Function-frequency/Arturo/function-frequency.arturo
+++ b/Task/Function-frequency/Arturo/function-frequency.arturo
@ -0,0 +1,28 @@
+source: to :block read arg\0
+frequencies: #[]
+
+inspectBlock: function [blk][
+    loop blk 'item [
+        case []
+            when? [word? item][
+                sItem: to :string item
+                if set? sItem ->
+                    if function? var sItem [
+                        if? key? frequencies sItem ->
+                            set frequencies sItem (get frequencies sItem)+1
+                        else ->
+                            set frequencies sItem 1
+                    ]
+            ]
+
+            when? [or? block? item
+                       inline? item] ->
+                inspectBlock item
+
+            else []
+    ]
+]
+
+inspectBlock source
+
+inspect frequencies