OpenAI API Structured Outputs in Clojure with Malli

demo.clj

(ns summer.demo
  (:require [summer.openai :as openai]))

(def Step
  [:map
   [:explanation :string]
   [:output :string]])

(def MathResponse
  [:map {:name "mathresponse"}
   [:steps [:vector Step]]
   [:final_answer :string]])

(openai/completion
 {:model "gpt-4o-2024-08-06",
  :messages [{:role "system",
              :content "You are a helpful math tutor. Only use the schema for math responses."},
             {:role "user"
              :content "how can I solve 8x + 7 = -23"}]
  :response_format (openai/json-schema-response MathResponse)})

openai.clj

(ns summer.openai
  (:require [hato.client :as c]
            [jsonista.core :as j]
            [malli.core :as m]
            [malli.json-schema :as json-schema]
            [malli.util :as mu]))

(defn <-json [x]
  (j/read-value x j/keyword-keys-object-mapper))

(defn <-response [response]
  (update response :choices (partial mapv #(update-in % [:message :content] <-json))))

(defn json-schema-response [?schema]
  (let [schema (mu/closed-schema ?schema)]
    {:type "json_schema"
     :json_schema {:name (some-> schema (m/properties) :name (or "response"))
                   :schema (json-schema/transform schema)
                   :strict true}}))

(defn completion [data]
  (-> (c/post "https://api.openai.com/v1/chat/completions"
              {:headers {"Content-Type" "application/json"
                         "Authorization" (str "Bearer " (System/getenv "OPENAI_API_KEY"))}
               :body (j/write-value-as-string data)})
      :body
      (<-json)
      (<-response)))

response.edn

{:steps [{:explanation "Start by isolating the term with x. Subtract 7 from both sides of the equation to do this.",
          :output "8x + 7 - 7 = -23 - 7"}
         {:explanation "Simplify both sides of the equation. On the left side, 7 - 7 cancels out, and on the right side, -23 - 7 equals -30.",
          :output "8x = -30"}
         {:explanation "To solve for x, divide both sides of the equation by 8.",
          :output "8x/8 = -30/8"}
         {:explanation "Simplify the right side by performing the division.",
          :output "x = -3.75"}],
 :final_answer "x = -3.75"}

@tkataja looks great 👍