Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Fibonacci Butt Sort

Name: Anonymous 2009-08-16 23:08

Let us discuss the various implementations of theFIBONACCI BUTT SORT.

Name: Anonymous 2009-11-26 5:52

>>195
Your cycle-fns function seems unnecessarily complicated, why not just use a circular list + pop or something like:



(let ((ht (make-hash-table :test #'equal)))

  (defun cycle (&rest args)

    (symbol-macrolet ((h (gethash args ht)))

      (unless h (setf h args))

      (pop h))))

Newer Posts