### Related

##### lambda-map

mratcoeff(f,x,n) := (...

f:3*x^3*y+%e*y^2+%pi*...

mratcoeff(f,[x,y],[0,...

Calculate

##### lambda

lambda ([x], lambda (...

Calculate

##### lambda

D=lambda([i,j],a[i,j]);

D;

Calculate

##### lambda-makelist-map-numer

li [3] (1/7), numer;

li [-2] (3), numer;

L : makelist (i / 10...

Calculate

##### lambda-let

:lisp (setf expr '(* ...

:lisp (member-if 'lis...

:lisp (mapcar (lambda...

Calculate

A:matrix([1,4],[3,2]);

BB:matrixfun(lambda([...

Calculate

##### lambda

:lisp ((lambda (x y) ...

Calculate

##### lambda-ratsimp-solve

eq1:n1=a1+r*a02+a01*l...

eq2:n2=a2-r*a01-a021*...

eq3:n1^2+n2^2=(ri+sh-...

Calculate

mu: 3e-4;

f: 63;

L: 0.68;

Calculate

##### lambda

:lisp (maplist #'(lam...

:lisp (mapcar #'(lamb...

Calculate

### [fullmapl,infix,lambda,lreduce]

Run Example
```(%i1)infix("|");
(%o1)                                  |
(%i2) "|"(p,[x]):=P(p)*lreduce("*",fullmapl(lambda([y],P(y,p)), x));
(%o2)   p | [x] := P(p) lreduce("*", fullmapl(lambda([y], P(y, p)), x))
(%i3) p|[a,b,c,d,e];
(%o3) [P(a, p) P(p), P(b, p) P(p), P(c, p) P(p), P(d, p) P(p), P(e, p) P(p)]
(%i4) ```
Run Example
```infix("|");
(%o1)                                  |
(%i2) "|"(p,[x]):=P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))/(P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))+P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,not p)), x))));
(%o2) p | [x] := (P(p) lreduce("*", lreduce("*",
fullmapl(lambda([y], P(y, p)), x))))/(P(p)
lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, p)), x)))
+ P(p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, not p)), x))))
(%i3) p|[a];
P(a, p) P(p)
(%o3)                   -------------------------------
P(a, not p) P(p) + P(a, p) P(p)
(%i4) ```
Run Example
```infix("|");
(%o1)                                  |
(%i2) "|"(p,[x]):=P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))/(P(p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,p)), x)))+P(not p)*lreduce("*", lreduce("*",fullmapl(lambda([y],P(y,not p)), x))));
(%o2) p | [x] := (P(p) lreduce("*", lreduce("*",
fullmapl(lambda([y], P(y, p)), x))))/(P(p)
lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, p)), x)))
+ P(not p) lreduce("*", lreduce("*", fullmapl(lambda([y], P(y, not p)), x))))
(%i3) p|[a];
P(a, p) P(p)
(%o3)                 -----------------------------------
P(a, not p) P(not p) + P(a, p) P(p)
(%i4) ```

### Related Help

Help for Fullmapl

Help for Infix

Help for Lambda

Help for Lreduce