/prog/ - post you are run length encoding in lisp

Name: Anonymous 2014-10-05 3:18

critique mine pl0x:

(defun rle (str) ;run length encoding
  (let ((i 0) c count out)
    (while (< i (length str))
      (if (eq c (elt str i))
	  (setq count (1+ count))
	(when c
	  (setq out (append out (list (cons c count)))))
	(setq c (elt str i))
	(setq count 1))
      (setq i (1+ i)))
    (when c (setq out (append out (list (cons c count)))))
    out))

Name: Anonymous 2014-10-09 8:23

function retvec = mysine(thisangle, thres = 0.001)

%%j=0;

anglebin = [0, 90];

vecbin = [0,1; 1,0];

angletemp = 0;

vectemp = [0,1];

while(abs(thisangle - angletemp) > thres)

  %%[x,anglex] = max(abs(anglebin .- thisangle));

  vectemp = (vecbin(1,:) .+ vecbin(2,:)) ./ 2.0;

  z = 1.0 ./ sqrt(sum(vectemp .^ 2));

  vectemp = vectemp .* z;

  angletemp = sum(anglebin) / 2.0;

  anglex = 1 + (angletemp > thisangle);

%%  fprintf("%i", anglex-1);

  anglebin(anglex) = angletemp;

  vecbin(anglex,:) = vectemp;

%%  j++;

  endwhile;

retvec = vectemp;

%% [j, angletemp]

endfunction;

post you are run length encoding in lisp

1 Name: Anonymous 2014-10-05 3:18

51 Name: Anonymous 2014-10-09 8:23

Name: Anonymous 2014-10-05 3:18

Name: Anonymous 2014-10-09 8:23