April 8th. Wiki with(StringTools): Alphabet:=cat(\134t\134n Select(IsPrintable,cat(seq(Char(i),i=1..128)))); StringToList:=proc(plaintext) global Alphabet; local i; [seq( -1+ SearchText(plaintext[i],Alphabet) ,i=1..length(plaintext))]; end proc: ListToString:=proc(listnum) global Alphabet; Implode([seq(Alphabet[listnum[i]+1],i=1..nops(listnum))]); end proc:

UWpwfiEiIyQlJicoKSorLC0uLzAxMjM0NTY3ODk6Ozw9Pj9AQUJDREVGR0hJSktMTU5PUFFSU1RVVldYWVpbXF1eX2BhYmNkZWZnaGlqa2xtbm9wcXJzdHV2d3h5enxmcnxncnxocnxpcjYi

listN:=StringToList("This is the new test");

NzciI18iI3MiI3QiIyQpIiIhRiVGJkYnIiMlKUYkIiNwRidGJyIjeUYpIiMoKUYnRihGKUYmRig=

ListToString(listN);

UTZUaGlzfmlzfnRoZX5+bmV3fnRlc3Q2Ig==

StringToList("hello!");

NygiI3MiI3AiI3dGJSIjeiIiIg==

mylist:= StringToList("Try me, 12345");

Ny8iI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNA

mylist; op(mylist); [op(mylist), "the end"];

Ny8iI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNA

Ni8iI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNA

NzAiI18iIyMpIiMqKSIiISIjeCIjcCIjN0YmIiM8IiM9IiM+IiM/IiNAUSh0aGV+ZW5kNiI=

ListToKgraf := proc( lis, K) local newl, i, j, max, t,M; M:=length(Alphabet); max:= nops(lis)/K; newl := []; for i from 1 to max do t:=0; for j from K-1 to 0 by -1 do t := t + lis[K*i-j]*M^j; od; newl:= [ op(newl), t ]; od; return(newl); end: ListToKgraf( mylist, 3);

NyYiJ3pyWiIlJVEoIic8JDMiIid2VTs=

95^2+2*95+3;

IiU9Iyo=

mylist:=[0,1,0,1,2,3];

NygiIiEiIiJGI0YkIiIjIiIk

ListToKgraf := proc( lis, K) local newl, i, j, max, t,M; M:=length(Alphabet); max:= nops(lis)/K; newl:= []; for i from 1 to max do t:= sum(lis[K*i-j]*M^j, j=0..K-1); newl := [op(newl), t] ; od; return(newl); end: l:=ListToKgraf( mylist, 3);

NyQiIyYqIiU9Iyo=

Write a procedure that takes a number between 0 and p^k and converts it to base p.(so the output is a list of K numbers between 0 and p).

NygiIiEiIiJGI0YkIiIjIiIk