( mapcar ( function ( lambda ( a / d ) ( setq d ( / ( car a ) ( float ( caar m )))) ( mapcar ( function ( lambda ( b c ) ( - b ( * c d ))) ) ( cdr a ) ( cdar m ) ) ) ) ( cdr m ) ) ) ) ) ) ) Matrix Determinant (Laplace Formula) - Lee Mac Args: m - nxn matrix ( defun detm ( m / i j ) ( setq i -1 j 0 ) ( cond ( ( null ( cdr m )) ( caar m )) ( ( null ( cddr m )) ( - ( * ( caar m ) ( cadadr m )) ( * ( cadar m ) ( caadr m )))) ( ( apply ' + ( mapcar ' ( lambda ( c ) ( setq j ( 1+ j )) ( * c ( setq i ( - i )) (detm Select all Matrix Determinant (Upper Triangular Form) - ElpanovEvgeniy Args: m - nxn matrix ( defun detm ( m / d ) ( cond ( ( null m ) 1 ) ( ( and ( zerop ( caar m )) ( setq d ( car ( vl-member-if-not ( function ( lambda ( a ) ( zerop ( car a )))) ( cdr m )))) ) (detm ( cons ( mapcar ' + ( car m ) d ) ( cdr m ))) ) ( ( zerop ( caar m )) 0 ) ( ( * ( caar m ) (detm
