2019-01-01から1年間の記事一覧
; (vec2list [* [+ 2 3 [+ 1 2]] 4]) -> '(* (+ 2 3 (+ 1 2)) 4) (defn vec2list [v] (let [l (apply list v)] (for [val l] (if (vector? val) (vec2list val) val))))
; (vec2list [* [+ 2 3 [+ 1 2]] 4]) -> '(* (+ 2 3 (+ 1 2)) 4) (defn vec2list [v] (let [l (apply list v)] (for [val l] (if (vector? val) (vec2list val) val))))