### Related

##### append-random_permutation

tans[6]: [[1, false, ...

tac: "risikoavers";

tans[6]: random_permu...

Calculate

##### if-is-substring

ANS3 : if (4>3) th...

\UANS3 : takanaan;

\UANS3 : "\UANS3";

Calculate

##### first-if-lambda-makelist-map-mod-setify-subset

expr:n;

makelist(''expr, n, 1...

set(a,b);

Calculate

##### first-solve

eq_v1: gc1*(v1-x) - i...

eq_y: gc2*(y-v1) - ic...

first(solve([eq_v1, e...

Calculate

divsum(12);

divsum(24);

divsum(12)-12;

Calculate

Calculate

##### substring

substring("http://dat...

substring(%,4,6);

Calculate

integrate(-(-x+6),x,-...

f(x):=if(x>=0 and ...

Calculate

##### if-plot2d

j(x):=if (x<=0.5) ...

plot2d([j(x)],[x,-1,1...

g(x):=if (x<=0.5) ...

Calculate

dif(a+b*x,x);

Calculate

### [append,ascii,block,concat,divsum,first,if,second,slength,substring]

Run Example
```(%i1)SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) get_number_from_list(P):=(s:0,for i in P do s:s+first(i)^second(i),s);
(%o2) get_number_from_list(P) := (s : 0,
second(i)
for i in P do s : s + first(i)         , s)
(%i3) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o3) write_number_from_list(P) := (s : "1",
for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i4) create_number_from_list(P,name):=(s:concat(name,":[]",SEMICOL," "),for i in P do s:concat(s,name,":append(",name,",[[",first(i),",",second(i),"]])",SEMICOL," "),s);
(%o4) create_number_from_list(P, name) :=
(s : concat(name, ":[]", SEMICOL, " "),
for i in P do s : concat(s, name, ":append(", name, ",[[", first(i), ",",
second(i), "]])", SEMICOL, " "), s)
(%i5) create_number_from_list2(P,name):=(s:concat(name,":["),for i in P do s:concat(s,"[",first(i),",",second(i),"],"),s:substring(s,1,slength(s)),s:concat(s,"]",SEMICOL),s);
(%o5) create_number_from_list2(P, name) :=
(s : concat(name, ":["), for i in P do s :
concat(s, "[", first(i), ",", second(i), "],"),
s : substring(s, 1, slength(s)), s : concat(s, "]", SEMICOL), s)
(%i6) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
2*n) then return (1) else return (0));
(%o6) is_deffic(P) := block(n : get_number_from_list(P),
if divsum(n) < 2 n then return(1) else return(0))
(%i7) is_deffic([[2,3],[3,1]]);
(%o7)                                  1
(%i8) ```
Run Example
```SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o2) get_number_from_list(P) := (s : 1,
second(i)
for i in P do s : s first(i)         , s)
(%i3) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o3) write_number_from_list(P) := (s : "1",
for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i4) create_number_from_list(P,name):=(s:concat(name,":[]",SEMICOL," "),for i in P do s:concat(s,name,":append(",name,",[[",first(i),",",second(i),"]])",SEMICOL," "),s);
(%o4) create_number_from_list(P, name) :=
(s : concat(name, ":[]", SEMICOL, " "),
for i in P do s : concat(s, name, ":append(", name, ",[[", first(i), ",",
second(i), "]])", SEMICOL, " "), s)
(%i5) create_number_from_list2(P,name):=(s:concat(name,":["),for i in P do s:concat(s,"[",first(i),",",second(i),"],"),s:substring(s,1,slength(s)),s:concat(s,"]",SEMICOL),s);
(%o5) create_number_from_list2(P, name) :=
(s : concat(name, ":["), for i in P do s :
concat(s, "[", first(i), ",", second(i), "],"),
s : substring(s, 1, slength(s)), s : concat(s, "]", SEMICOL), s)
(%i6) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
2*n) then return (1) else return (0));
(%o6) is_deffic(P) := block(n : get_number_from_list(P),
if divsum(n) < 2 n then return(1) else return(0))
(%i7) is_deffic([[2,2]]);
(%o7)                                  1
(%i8) ```
Run Example
```SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o2) get_number_from_list(P) := (s : 1,
second(i)
for i in P do s : s first(i)         , s)
(%i3) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o3) write_number_from_list(P) := (s : "1",
for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i4) create_number_from_list(P,name):=(s:concat(name,":[]",SEMICOL," "),for i in P do s:concat(s,name,":append(",name,",[[",first(i),",",second(i),"]])",SEMICOL," "),s);
(%o4) create_number_from_list(P, name) :=
(s : concat(name, ":[]", SEMICOL, " "),
for i in P do s : concat(s, name, ":append(", name, ",[[", first(i), ",",
second(i), "]])", SEMICOL, " "), s)
(%i5) create_number_from_list2(P,name):=(s:concat(name,":["),for i in P do s:concat(s,"[",first(i),",",second(i),"],"),s:substring(s,1,slength(s)),s:concat(s,"]",SEMICOL),s);
(%o5) create_number_from_list2(P, name) :=
(s : concat(name, ":["), for i in P do s :
concat(s, "[", first(i), ",", second(i), "],"),
s : substring(s, 1, slength(s)), s : concat(s, "]", SEMICOL), s)
(%i6) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
2*n) then return (1) else return (0));
(%o6) is_deffic(P) := block(n : get_number_from_list(P),
if divsum(n) < 2 n then return(1) else return(0))
(%i7) is_deffic([[2,2],[3,1]]);
(%o7)                                  0
(%i8) ```