### Related

##### lambda

mk: lambda ([y],lambd...

mk(4);

Calculate

##### lambda-solve-tex

solve(x^2 = 4,x);

tex(solve(dT + 9*(c*(...

Calculate

##### lambda

n_1 : lambda ([s,z],(...

Calculate

##### lambda-part-sublist

alist: [df_u[1,0],df_...

sublist(alist,lambda(...

Calculate

k: 2.3;

w: 17.6;

freq: w/(2*%pi);

Calculate

##### lambda

f: lambda(x, x^2);

Calculate

##### lambda

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

Calculate

##### lambda-let

:lisp (let ((x 2)) (...

Calculate

##### fullmapl-infix-lambda-lreduce

infix("|");

"|"(p,[x]):=P(p)*lred...

p|[a,b,c,d,e];

Calculate

##### lambda

lambda ([x], x*y) (5);

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