(defun _splitdist (x_length x_dist / vallist rval)
(setq val (/ x_length x_dist)
rval (/ x_length val)
vallist (list x_length)
)
(repeat (1- val)
(setq vallist
(append vallist (list (setq x_length (- x_length rval))))
)
)
(reverse vallist)
)
;ex
;(_splitdist 360 45)
(defun split-dist (len dis / result)
(while (> len 0)
(setq result (cons dis result))
len (- len dis)))
result)
(defun split-dist (len dis / result)
(while (> len 0)
(setq result (cons dis result))
len (- len dis)))
(setq dis (car result))
(mapcar '(lambda (x) (- x dis)) result))
Add a description of WHAT the program is meant to achieve.
and several example result sets.
'(8.51063 17.0326 25.5432 .....)
What aboutCode: [Select](defun split-dist (len dis / result)
(while (> len 0)
(setq result (cons dis result))
len (- len dis)))
result)
If you want it from 0 onwards:Code: [Select](defun split-dist (len dis / result)
(while (> len 0)
(setq result (cons dis result))
len (- len dis)))
(setq dis (car result))
(mapcar '(lambda (x) (- x dis)) result))
'(8.51063 17.0326 25.5432 .....)
"Called Kerry in my other life / Sometimes the question is more important than the answer."
For someone who claims to be a professional programmer this is abysmal.
If you expect help at least make an attempt to define the problem correctly.
Add a description of WHAT the program is meant to achieve.
and several example result sets.