### Related

##### subst-sum

su: sum(a[2*ii]*(s-1/...

subst([N=2],su);

Calculate

##### makelist-mod

f(x) := mod(2^x, 101);

l: makelist ( mod((f(...

Calculate

p:1111111111111111111;

primep(p);

Calculate

s:[ 2,7,10,7,7,8,4,7,...

Calculate

##### if-plot2d

f(x):=if (x<=-2) ...

plot2d ([f(x)],[x,-3,...

Calculate

##### makelist-print

qlist:makelist(x^3,x,...

for i:1 thru 200 do f...

Calculate

##### map-mod

f1(x):=mod(x^145387,2...

map(f1,[175536,179954...

ascii_posdec([70698, ...

Calculate

s:[1,4,5,6,6,3,5,4,55...

Calculate

##### map-mod

Inversa:f1(x):=mod(x^...

map(f,[113191,94404,1...

ascii_posdec(70698384...

Calculate

##### makelist-sum

makelist(sum(i*Fibona...

Calculate

### [alphacharp,ascii,block,delete,if,length,makelist,map,return,string,subst]

Run Example
```(%i1)elimn(l,[index]):=block([ans, indi:map("=", delete([], makelist(if(alphacharp(ascii(i))) then parse_string(ascii(i)) else [], i, 96, 96+length(index))), makelist(0, n, 1, length(index)))], ans:subst([0="_"], l*subst(indi, makelist(n, n, 1, length(l)))/makelist(n, n,1,length(l))), return(ans));
(%o1) elimn(l, [index]) := block([ans,
indi : map("=", delete([], makelist(if alphacharp(ascii(i))
then parse_string(ascii(i)) else [], i, 96, 96 + length(index))),
makelist(0, n, 1, length(index)))], ans :
l subst(indi, makelist(n, n, 1, length(l)))
subst([0 = "_"], -------------------------------------------), return(ans))
makelist(n, n, 1, length(l))
(%i2) M:[A,T,G,C,A,T,C];
(%o2)                        [A, T, G, C, A, T, C]
(%i3) elimn(M, 1, 3, 7);
(%o3)                        [A, T, G, C, A, T, C]
(%i4) ```
Run Example
```elimn(l,[index]):=block([ans, indi:map("=", delete([], makelist(if(alphacharp(ascii(i))) then parse_string(ascii(i)) else [], i, 96, 96+length(index))), index)], ans:subst([0="_"], l*subst(indi, makelist(n, n, 1, length(l)))/makelist(n, n,1,length(l))), return(ans));
(%o1) elimn(l, [index]) := block([ans,
indi : map("=", delete([], makelist(if alphacharp(ascii(i))
then parse_string(ascii(i)) else [], i, 96, 96 + length(index))), index)],
l subst(indi, makelist(n, n, 1, length(l)))
ans : subst([0 = "_"], -------------------------------------------),
makelist(n, n, 1, length(l))
return(ans))
(%i2) M:[A,T,G,C,A,T,C];
(%o2)                        [A, T, G, C, A, T, C]
(%i3) elimn(M, 1, 3, 7);
(%o3)                        [A, T, G, C, A, T, C]
(%i4) ```
Run Example
```elimn(l,[index]):=block([ans, indi:map("=", delete([], makelist(if(alphacharp(ascii(i))) then parse_string(ascii(i)) else [], i, 96, 96+length(index))), makelist(0, n, 1, length(index)))], ans:subst([0="_"], l*subst([indi], makelist(n, n, 1, length(l)))/makelist(n, n,1,length(l))), return(ans));
(%o1) elimn(l, [index]) := block([ans,
indi : map("=", delete([], makelist(if alphacharp(ascii(i))
then parse_string(ascii(i)) else [], i, 96, 96 + length(index))),
makelist(0, n, 1, length(index)))], ans :
l subst([indi], makelist(n, n, 1, length(l)))
subst([0 = "_"], ---------------------------------------------), return(ans))
makelist(n, n, 1, length(l))
(%i2) M:[A,T,G,C,A,T,C];
(%o2)                        [A, T, G, C, A, T, C]
(%i3) elimn(M, 1, 3, 7);
(%o3)                        [A, T, G, C, A, T, C]
(%i4) ```