Skip to content

Instantly share code, notes, and snippets.

@lispm

lispm/fair-candy-swap.lisp

Created May 28, 2020 20:20
Show Gist options
  • Save lispm/d852a2b271b3e3175bc6433caeafcaf4 to your computer and use it in GitHub Desktop.
Save lispm/d852a2b271b3e3175bc6433caeafcaf4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fair-candy-swap.lisp
; https://leetcode.com/problems/fair-candy-swap/
(defun candy-swap (a b &aux (sa (reduce #'+ a)) (sb (reduce #'+ b)))
(mapc (lambda (x &aux (y (+ x (/ (- sb sa) 2))))
(when (member y b)
(return-from candy-swap (values x y))))
a))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment