Code Red => AutoLISP (Vanilla / Visual) => Topic started by: d2010 on April 08, 2022, 03:39:45 AM
Title: Did you know, lambda, increase speed of Lisp?
Post by: d2010 on April 08, 2022, 03:39:45 AM
Exists the both sources in AutoLisp? (one-source. with Lambda) <> (two-source. without Lambda) How to calculate the speed of both of sources.lisp?> C++ link,
r (js_ldc21 "0xA3DF:C076"(list a))))(if(= i 2)(setq;|a50222|;
r (js_ldc21 "0xA3DF:C077"(list a))))(if(= i 3)(setq;|a50262|;
r (js_ldc21 "0xA3DF:C078"(list"Punct de trasat:"))))(js_ldc21 "0x7BEE:C079"(list i r))(princ"\nFC=")(princ fc)(princ"\n1.i=")(princ i)(princ"\ndi=")(princ dI)(if(js_ldc21 "0xD364:C080"(list fc dI))(progn(js_ldc21 "0x4975:C081"(list))(setq;|a50422|;
(defun tmti_trpunct_interung_inainte_st (/ rr a i)
(foreach i (list"x1""y1""x2""y2""x0""y0")(js_ldc21 "0xD518:C085"(list i "000000.0000")))(foreach i (list"sc""sf""ss""m""u1""u2""u0""eps")(js_ldc21 "0xD518:C086"(list i "0.0")))(foreach i (list"d10""d20""d12")(js_ldc21 "0xD518:C087"(list i "")))(setq;|a54418|; ds 0.0 ss ds sf ss sc sf y0 sc x0 y0 y2 x0 x2 y2 y1 x2 x1 y1
a (list"sc""sf""ss""x1""y1""x2""y2""x0""y0"))(foreach c a (action_tile c (strcat"(if (< 0 (atof $value)) (setq " c " (atof $value)))")))(setq;|a59057|;