Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Function-frequency/Arturo/function-frequency.arturo
+++ b/Task/Function-frequency/Arturo/function-frequency.arturo
@ -3,23 +3,21 @@ frequencies: #[]

 inspectBlock: function [blk][
    loop blk 'item [
-        case []
-            when? [word? item][
+        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
+                        switch key? frequencies sItem
+                            -> set frequencies sItem (get frequencies sItem)+1
+                            -> set frequencies sItem 1
                    ]
            ]

-            when? [or? block? item
-                       inline? item] ->
+            or? block? item
+                inline? item ->
                inspectBlock item
-
-            else []
+        ]
    ]
 ]