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/Array-concatenation/AppleScript/array-concatenation-2.applescript
+++ b/Task/Array-concatenation/AppleScript/array-concatenation-2.applescript
@ -0,0 +1,17 @@
+on run
+
+  concat([["alpha", "beta", "gamma"], ¬
+    ["delta", "epsilon", "zeta"], ¬
+    ["eta", "theta", "iota"]])
+
+end run
+
+
+-- concat :: [[a]] -> [a]
+on concat(xxs)
+  set lst to {}
+  repeat with xs in xxs
+    set lst to lst & xs
+  end repeat
+  return lst
+end concat