Недавно стартанул кур Algorithms: Design & Analysis (Part I).
Так как параллельно с ним я изучаю LISP (sbcl), то решено было задания писать на нем. В результате по первой неделе был написан следующий код:[Spoiler (click to open)]
(defvar *inv* 0)
(defun count-inversions (input)
  (if (> (length input) 1)
      (let ((length-input (floor (/ (length input) 2))))
(count-and-merge ( Read more... )