Related

concat-do-floor-if-makelist-plot2d-var

data :[72,46,57,54,41...

maxzahl:100;

var:makelist([i,0],i,...

Calculate

substring

substring("qwer",4);

substring(%,4,6);

Calculate

append-eliminate-length-makelist-unique

eqlist: [wu-wt,2*wu-w...

eqlist: [wu-wt,4*wu-3...

neqlist: unique(eqlist);

Calculate

append-block-length-return

M:[A,C,T,T,A,C,T,A];

K:[T,A,C];

find(s, l):=block([an...

Calculate

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

expr:n;

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

set(a,b);

Calculate

if-labels-lambda-rest-reverse-sum

:lisp (defun enum-int...

:lisp (defun group (s...

:lisp (defun row-sum ...

Calculate

a:1+random(3);

b:1+random(3);

n:1+random(3);

Calculate

if-let

:lisp (defvar *my-lis...

:lisp (defun levels (...

:lisp (levels *my-lis...

Calculate

umrechnung:[];

basis:8;

x[0]:167.04;

Calculate

block-first-ifactors-lambda-length-lmax-makelist-map-phi-product

phi(n) := block( [...

lmax( map(lambda([x],...

pfor([x,y],[makelist(...

Calculate

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

Run Example
```(%i1)SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) MAXEX:800;
(%o2)                                 800
(%i3) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o3) get_number_from_list(P) := (s : 1,
second(i)
for i in P do s : s first(i)         , s)
(%i4) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o4) write_number_from_list(P) := (s : "1",
for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i5) 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);
(%o5) 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)
(%i6) 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);
(%o6) 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)
(%i7) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
2*n) then return (1) else return (0));
(%o7) is_deffic(P) := block(n : get_number_from_list(P),
if divsum(n) < 2 n then return(1) else return(0))
(%i8) nastav_povol(P):=(P2:[], j:1, for i in P do (P2:append(P2,[j]),j:j+1),P2);
(%o8) nastav_povol(P) := (P2 : [], j : 1,
for i in P do (P2 : append(P2, [j]), j : j + 1), P2)
(%i9) najdi_index(P):=(random(length(Povol))+1);
(%o9)             najdi_index(P) := random(length(Povol)) + 1
(%i10) zvets(P,k):=(P2:P,P2[k][2]:MAXEX,P2);
(%o10)            zvets(P, k) := (P2 : P, (P2 )  : MAXEX, P2)
k
2
(%i11) zmen_povol(P,k):=(P2:P,delete(P2,k),P2);
(%o11)          zmen_povol(P, k) := (P2 : P, delete(P2, k), P2)
(%i12) L:[[2,1],[3,5]];
(%o12)                         [[2, 1], [3, 5]]
(%i13) Povol:nastav_povol(L);
(%o13)                              [1, 2]
(%i14) Povol;
(%o14)                              [1, 2]
(%i15) ```
Run Example
```SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) MAXEX:800;
(%o2)                                 800
(%i3) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o3) get_number_from_list(P) := (s : 1,
second(i)
for i in P do s : s first(i)         , s)
(%i4) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o4) write_number_from_list(P) := (s : "1",
for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i5) 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);
(%o5) 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)
(%i6) 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);
(%o6) 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)
(%i7) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
2*n) then return (1) else return (0));
(%o7) is_deffic(P) := block(n : get_number_from_list(P),
if divsum(n) < 2 n then return(1) else return(0))
(%i8) nastav_povol(P):=(P2:[], j:1, for i in P do (P2:append(P2,[j]),j:j+1),P2);
(%o8) nastav_povol(P) := (P2 : [], j : 1,
for i in P do (P2 : append(P2, [j]), j : j + 1), P2)
(%i9) najdi_index(P):=(random(length(Povol))+1);
(%o9)             najdi_index(P) := random(length(Povol)) + 1
(%i10) zvets(P,k):=(P2:P,P2[k][2]:MAXEX,P2);
(%o10)            zvets(P, k) := (P2 : P, (P2 )  : MAXEX, P2)
k
2
(%i11) zmen_povol(P,k):=(P2:P,P2:delete(k,P2),P2);
(%o11)       zmen_povol(P, k) := (P2 : P, P2 : delete(k, P2), P2)
(%i12) L:[[2,1]];
(%o12)                             [[2, 1]]
(%i13) Povol:nastav_povol(L);
(%o13)                                [1]
(%i14)       k:najdi_index(L);
(%o14)                                 1
(%i15)       L2:zvets(L,k);
(%o15)                            [[2, 800]]
(%i16)       Povol2:zmen_povol(Povol,k);
(%o16)                                []
(%i17)       is_deffic(L2);
(%o17)                                 1
(%i18) ```
Run Example
```SEMICOL:ascii(59);
(%o1)                                  ;
(%i2) MAXEX:800;
(%o2)                                 800
(%i3) get_number_from_list(P):=(s:1,for i in P do s:s*first(i)^second(i),s);
(%o3) get_number_from_list(P) := (s : 1,
second(i)
for i in P do s : s first(i)         , s)
(%i4) write_number_from_list(P):=(s:"1",for i in P do s:concat(s,"*",first(i),"^",second(i)),s);
(%o4) write_number_from_list(P) := (s : "1",
for i in P do s : concat(s, "*", first(i), "^", second(i)), s)
(%i5) 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);
(%o5) 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)
(%i6) 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);
(%o6) 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)
(%i7) is_deffic(P):=block(n:get_number_from_list(P), if (divsum(n) <
2*n) then return (1) else return (0));
(%o7) is_deffic(P) := block(n : get_number_from_list(P),
if divsum(n) < 2 n then return(1) else return(0))
(%i8) nastav_povol(P):=(P2:[], for i in P do P2:append(P2,[first(i)]),P2);
(%o8) nastav_povol(P) := (P2 : [], for i in P do P2 : append(P2, [first(i)]),
P2)
(%i9) najdi_index(P):=(random(length(Povol))+1);
(%o9)             najdi_index(P) := random(length(Povol)) + 1
(%i10) zvets(P,k):=(P2:P,P2[k][2]:MAXEX,P2);
(%o10)            zvets(P, k) := (P2 : P, (P2 )  : MAXEX, P2)
k
2
(%i11) zmen_povol(P,k):=(P2:P,delete(P2,k),P2);
(%o11)          zmen_povol(P, k) := (P2 : P, delete(P2, k), P2)
(%i12) L:[[2,1]];
(%o12)                             [[2, 1]]
(%i13) Povol:nastav_povol(L);
(%o13)                                [2]
(%i14) Povol;
(%o14)                                [2]
(%i15) ```