以迭代方式解构字符串数组的Clojure

以下是使用迭代方式解构字符串数组的Clojure代码示例：

(defn destructure-strings [strings]
  (loop [remaining-strings strings]
    (if (empty? remaining-strings)
      []
      (let [[first-string & rest-strings] remaining-strings]
        (cons (first first-string) (destructure-strings rest-strings))))))

;; 调用示例
(destructure-strings ["Hello" "World" "Clojure"])
;; 输出：["H" "W" "C"]

在上面的代码中，我们定义了一个函数destructure-strings，它接受一个字符串数组作为输入。通过使用loop和let表达式，我们在每次迭代中解构数组中的第一个字符串，并将其首字母添加到结果列表中。然后，我们递归地调用destructure-strings函数，将剩余的字符串数组传递给它，直到数组为空。最后，我们返回结果列表。

在调用示例中，我们传递了一个字符串数组["Hello" "World" "Clojure"]给destructure-strings函数，并得到了结果["H" "W" "C"]。