Related

if-lambda-let-unless

:lisp (defun lottery ...

:lisp (lottery);

:lisp (lottery t);

Calculate

F(x):=if (x<=0) th...

f(x):=if (x<=0) th...

integrate(2*x^2, x);

Calculate

if

dif(arctan(x),x);

Calculate

if-plot2d

F(x):=if (x<=0) th...

f(x):=if (x<=0) th...

plot2d([F(x), f(x)], ...

Calculate

if-lambda-length-log-map-pred-sum

_entropy(x):=if (x=0)...

entropy(p,b):=-sum(_e...

entropy2(p):=entropy(...

Calculate

if-plot2d

plot2d(if(x=7) then(3...

Calculate

if-plot2d

y(x):=(if (x>2) th...

plot2d(y, [x, -3, 3],...

Calculate

if-labels-lambda-rest-reverse-sum

:lisp (defun enum-int...

:lisp (defun group (s...

:lisp (defun row-sum ...

Calculate

if

h(x):= if (0<x and...

r(a,x):=a[2]*h(x[1])*...

s(a,x):=a[2]*h(1-x[2]...

Calculate

if-plot3d

p(x):=if(x<1000) t...

f(x,y):=(x-(x/y))-(p(...

f(1000,2.5);

Calculate

if

Run Example
```(%i1):lisp (defun r (n) (labels ((f (k l z) (let ((ln (+ (* 1.003 l) (* 0.006 z))) (zn (+ (* 0.0069 l) (* 1.026 z)))) (if (<
k n) (f (1+ k) ln zn) (cons (/ ln l) (/ zn z)))) (f 0 10 1000))))) (print (r 100));

NIL
NIL
(%i1) ```
Run Example
```:lisp (mapcar (lambda (x) (and (atom x) (symbolp x))) '(a * (+ 2 3)));

(T T NIL)
(%i1) :lisp (mapcar (lambda (x) (if (listp x) (cadr x))) '(a * (2 + 3)));

(NIL NIL +)
(%i1) ```
Run Example
```load(descriptive);
(%o1) /usr/share/maxima/5.21.1/share/contrib/descriptive/descriptive.mac
(%o2) /usr/share/maxima/5.21.1/share/contrib/numericalio/numericalio.mac
(%o3)            /usr/share/maxima/5.21.1/share/draw/draw.lisp
(%i4) s:[4,17,22,95,47,32,11,11,14,52,54,74,23,18,40,33,61,80,93,71,34,85,15,3,1,8,7,16,50,66,91,31,55,80,43,60,11,5,99,35,19,37,44,43,52,88,91,1,24,49];
(%o4) [4, 17, 22, 95, 47, 32, 11, 11, 14, 52, 54, 74, 23, 18, 40, 33, 61, 80,
93, 71, 34, 85, 15, 3, 1, 8, 7, 16, 50, 66, 91, 31, 55, 80, 43, 60, 11, 5, 99,
35, 19, 37, 44, 43, 52, 88, 91, 1, 24, 49]
(%i5) if (mini(s)=5) then draw2d(fill_color = red, ellipse(0,6,3,3,360,-360), xrange = [-3,6], yrange = [2,9]) else draw2d(fill_color = blue, rectangle([0,0],[4,4]), xrange = [-2,2], yrange = [-4,4]);
(%o5)                          [gr2d(rectangle)]
(%i6) ```

Help for If