### Related

##### if-let

:lisp (defvar *my-lis...

:lisp (defun levels (...

:lisp (levels *my-lis...

Calculate

##### block-inv_mod-print-while

block(r:1,p:97, a:-3,...

Calculate

nod(9,35);

mod(9^totient(35),(35));

Calculate

##### or-true

Days:(not a and not d...

Days,a=false,b=false,...

Days,a=false,b=false,...

Calculate

##### equal-makelist-primep-sum-unknown

makelist(makelist(sum...

Calculate

##### subst

x^3-3*x^2+6, x= 4;

subst(x=4, x^3-3*x^2+6);

Calculate

##### block-concat-do-kill-makelist-obase-return-stringdisp-true-while

kill(base,n,d,r,q);

stringdisp:true;

obase:10;

Calculate

##### equal-eval_string-ssubst-string

if is(equal(eval_stri...

Calculate

##### equal-map-ratsimp

isCorrect : is(ratsim...

isCorrect;

map('ratsimp, [10*b,...

Calculate

##### block-numer-solve

eqns:[vs*rs^2*%pi= 24...

block:(vs:1*m/s, rs:0...

solve(eqns,[vl,ps]),n...

Calculate

### [block,equal,if,or,subst]

Run Example
```(%i1)h:((equal(x , (5**(1/(2) ) ))) or (equal(x , ( - ( (5**(1/(2))) ) ))) or (equal(x , ( (1/2) * (22**(1/(2))) ))));
sqrt(22)
(%o1)   equal(x, sqrt(5)) or equal(x, - sqrt(5)) or equal(x, --------)
2
(%i2) if(block([h:((equal(x , (5**(1/(2) ) ))) or (equal(x , ( - ( (5**(1/(2))) ) ))) or (equal(x , ( (1/2) * (22**(1/(2))) ))))],(((subst([x=-(11/2)^(1/2)],h))))  )) then 29 else 99 ;
sqrt(11)                      sqrt(11)
(%o2) if equal(- --------, sqrt(5)) or equal(- --------, - sqrt(5))
sqrt(2)                       sqrt(2)
sqrt(11)  sqrt(22)
or equal(- --------, --------) then 29 else 99
sqrt(2)      2
(%i3) ```
Run Example
```if(block([h:((equal(x , (5**(1/(2) ) ))) or (equal(x , ( - ( (5**(1/(2))) ) ))) or (equal(x , ( (1/2) * (22**(1/(2))) ))))],(((subst([x=-(11/2)^(1/2)],h))))  )) then 29 else 99 ;
sqrt(11)                      sqrt(11)
(%o1) if equal(- --------, sqrt(5)) or equal(- --------, - sqrt(5))
sqrt(2)                       sqrt(2)
sqrt(11)  sqrt(22)
or equal(- --------, --------) then 29 else 99
sqrt(2)      2
(%i2) ```

Help for Block

Help for Equal

Help for If

Help for Or

Help for Subst