{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 " " 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 354 "with(StringTools): \nToNumList := proc(str::string)\n local slist;\n global Alphabet; \n slist := Explode(str);\n return(\n map(x->SearchText(x,Alphab et)-1, slist));\nend:\nNumListToStr:=proc(l::list)\n global Alphabet; \n return(\n Implode(map(x->Alphabet[x+1], l)));\nend:\n\nAlphabet: =Implode([\"\\n\",\"\\t\",op(select(IsPrintable,[seq(Char(i),i=1..255) ]))]);\n" }}{PARA 7 "" 1 "" {TEXT -1 58 "Warning, the assigned name Gr oup now has a global binding\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)A lphabetGQ\\q|+|*~!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRST UVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz|fr|gr|hr|ir6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "p:=length(Alphabet);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"pG\"#(*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "ToNumList(\"Now is the time\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#71\"#[\"#\")\"#*)\"\"#\"#v\"#&)F'\"#')\"#u\"#rF'F*F(\"# zF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 421 "KgrafToKnums := pro c(text::string, k::posint)\n local textpadded, p, pad, numlist, i, j; \n global Alphabet;\n p := length(Alphabet);\n pad := \" \";\n tex tpadded := text;\n while (length(textpadded) mod k >0 ) do\n textp added := cat (textpadded, pad);\n od;\n \n numlist := ToNumList(tex tpadded);\n return(\n [ seq (sum( numlist[(j-1)*k + i] * p^(k-i ), i=1..k),\n j=1..length(textpadded)/k) ]);\nend:\n \n " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "KgrafToKnums(\"N ow is the time\", 2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7*\"%PZ\"%N') \"%gt\"$!G\"%\\sF'\"%at\"%*)o" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 290 "KnumsToText:= proc(numlist::list, k::posint)\n local p, i, j; \n global Alphabet;\n p:= length(Alphabet);\n NumListToStr( [ seq(s eq(iquo(modp(numlist[j], p^(k-i+1)),\n p ^(k-i)),\n i=1..k),\n j= 1..nops(numlist))]);\nend:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "KnumsToText([4737, 8635, 736 0, 280, 7249, 280, 7354, 6889], 2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #Q1Now~is~the~time~6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }