| (def divisions | |
| {:division1 | |
| {:group1 [:staff1 :staff2] | |
| :group2 [:staff3 :staff4 :staff5]} | |
| :division2 | |
| {:group3 [:staff6 :staff7]}}) | |
| (reduce | |
| (fn [ds [d g staffs]] | |
| (assoc-in ds [d g] (remove #{:staff2} staffs))) | |
| divisions | |
| (for [[d groups] divisions | |
| [g staffs] groups] | |
| [d g staffs])) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment