(C1) DELETE(SIN(X),X+SIN(X)+Y); (D1) Y + X
DELETE(exp1, exp2, integer) removes the first integer occurrences of exp1 from exp2. Of course, if there are fewer than integer occurrences of exp1 in exp2 then all occurrences will be deleted.
(C1) PUT(%E,'TRANSCENDENTAL,'TYPE); (D1) TRANSCENDENTAL (C2) PUT(%PI,'TRANSCENDENTAL,'TYPE)$ (C3) PUT(%I,'ALGEBRAIC,'TYPE)$ (C4) TYPEOF(EXP) := BLOCK([Q], IF NUMBERP(EXP) THEN RETURN('ALGEBRAIC), IF NOT ATOM(EXP) THEN RETURN(MAPLIST('TYPEOF, EXP)), Q : GET(EXP, 'TYPE), IF Q=FALSE THEN ERRCATCH(ERROR(EXP,"is not numeric.")) ELSE Q)$ (C5) TYPEOF(2*%E+X*%PI); X is not numeric. (D5) [[TRANSCENDENTAL, []], [ALGEBRAIC, TRANSCENDENTAL]] (C6) TYPEOF(2*%E+%PI); (D6) [TRANSCENDENTAL, [ALGEBRAIC, TRANSCENDENTAL]]
MAKELIST(CONCAT(X,I),I,1,6) yields [X1,X2,X3,X4,X5,X6] MAKELIST(X=Y,Y,[A,B,C]) yields [X=A,X=B,X=C]