Re: Random number generation in LISP or using it

[pjb@informatimago.com (Pascal J. Bourguignon)]

Mario Lang <mlang@delysid.org> writes:

> bolega <gnuist006@gmail.com> writes:
>
>> What is a fast(est) method to randomize lines based on the
>> capabilities of emacs ?
>
> C-x h C-u M-| sort -R

This is not what was asked. sort -R puts together equal lines.  AFAIK,
-R exists only in GNU sort, so it hasn't even the excuse of being
available everywhere emacs is available (see:
http://www.informatimago.com/linux/emacs-on-user-mode-linux.html
;-) )


(require 'cl) ; for coerce
(require 'cookie1) ; for shuffle-vector

(defun randomize-lines-of-region (start end)
  (interactive "r")
  (let* ((start (progn (goto-char start) (beginning-of-line) (point)))
         (end   (progn (goto-char end)   (end-of-line)       (point)))
         (lines (shuffle-vector (coerce (split-string (buffer-substring start end) "\n") 'vector))))
    (delete-region start end)
    (insert (aref lines 0))
    (dotimes (i (1- (length lines)))
       (insert "\n" (aref lines (1+ i))))))

    
-- 
__Pascal Bourguignon__