(PRINT ((LAMBDA (L1 L2 L3) (LIST (CAR L1) (CAR L2) (CAR L3))) '(TYPE PRINT DEL) '(H '(H J O) '(U J N)) '(READ SAVE LOAD (TXT)))) (DEFUN COMBINE (L1 L2 L3) (LIST (THIRD L1) (SECOND L2) (THIRD L3))) (PRINT (COMBINE '(TYPE PRINT DEL) '(H '(H J O) '(U J N)) '(READ SAVE LOAD (TXT)))) (DEFUN ISEXP (A B C) (= C (EXPT A B))) (PRINT (ISEXP 2 4 16))
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more