Sponsored links: Algebra eBooks
 

Related

eval_string

Run Example
(%i1)Seznam(List,N):=    sort(flatten(maplist(lambda([z],        maplist(lambda([w],eval_string(lreduce(concat,w))),permut(z))),            full_listify(powerset(setify(List),N)))));
(%o1) Seznam(List, N) := sort(flatten(maplist(lambda([z], 
maplist(lambda([w], eval_string(lreduce(concat, w))), permut(z))), 
full_listify(powerset(setify(List), N)))))
(%i2) mod(Seznam([82,65,65,82,55,65],6)^53,99999899999);
(%o2)                                 []
(%i3) 
Run Example
Seznam(List,N):=    sort(flatten(maplist(lambda([z],        maplist(lambda([w],eval_string(lreduce(concat,w))),permut(z))),            full_listify(powerset(setify(List),N)))));
(%o1) Seznam(List, N) := sort(flatten(maplist(lambda([z], 
maplist(lambda([w], eval_string(lreduce(concat, w))), permut(z))), 
full_listify(powerset(setify(List), N)))))
(%i2) mod(Seznam([1,2,3,2,6,5],6)^23,999998);
(%o2)                                 []
(%i3) 
Run Example
block([sn],sn(x,p) := block([s,a,b,c],s: printf(false, eval_string(concat(ascii(34),ascii(126),ascii(101),ascii(34))), x),a: split(s,eval_string(concat(ascii(34),ascii(69),ascii(34)))),b: a[1],c: sremove(eval_string(concat(ascii(34),ascii(43),ascii(34))),a[2]),fpprintprec:p, return(concat(eval_string(b),eval_string(concat(ascii(34),ascii(69),ascii(34))),c)) ),is("10.76"= sn(10.7620000000,5)));
(%o1)                                false
(%i2) 

Related Help

Help for Eval_string