{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 "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 "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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "Plaintext := \"Some \+ random collection of letters\";" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%* PlaintextGQBSome~random~collection~of~letters6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "with(StringTools):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 7 "" 1 "" {TEXT -1 58 "Warning, the assigned name Group now has a global binding\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "Ord(\"g\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$.\" " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Explode(\"some stuff\") ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7,Q\"s6\"Q\"oF%Q\"mF%Q\"eF%Q\"~F% F$Q\"tF%Q\"uF%Q\"fF%F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "m ap(Ord,Explode(Plaintext));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#7C\"#$)\"$6\"\"$4\"\"$,\"\"#K\"$9\"\"# (*\"$5\"\"$+\"F%F&F(\"#**F%\"$3\"F.F'F-\"$;\"\"$0\"F%F+F(F%\"$-\"F(F.F 'F/F/F'F)\"$:\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "map(Char ,\n map(x->x+3, \n map(Ord,Explode(Plaintext))));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7CQ\"V6\"Q\"rF%Q\"pF%Q\"hF%Q\"#F%Q\"uF%Q\"dF %Q\"qF%Q\"gF%F&F'F)Q\"fF%F&Q\"oF%F/F(F.Q\"wF%Q\"lF%F&F,F)F&Q\"iF%F)F/F (F0F0F(F*Q\"vF%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "Implode( map(Char,\n map(x->x+3, \n map(Ord,Explode(Plaintext)))));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#QBVrph#udqgrp#froohfwlrq#ri#ohwwhuv6 \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 116 "AsciiCaesar := (Plai ntext, shift) -> \nImplode(map(Char,\n map(x->x+shift, \n ma p(Ord,Explode(Plaintext)))));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%,As ciiCaesarGf*6$%*PlaintextG%&shiftG6\"6$%)operatorG%&arrowGF)-_F)%(Impl odeG6#-%$mapG6$_F)%%CharG-F26$f*6#%\"xGF)F*F),&9$\"\"\"T$F=F)F)6$F(9%- F26$_F)%$OrdG-_F)%(ExplodeG6#F " 0 "" {MPLTEXT 1 0 23 "AsciiCaesar(\"thing\",3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q&wklqj6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "AsciiCaesar(\"wklqj\", -3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q&t hing6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "AsciiCaesar(Plai ntext, -34);" }}{PARA 8 "" 1 "" {TEXT -1 60 "Error, (in StringTools:-C har) integer argument is too large\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 128 "AsciiCaesar := (Plaintext, shift) -> \nImplode(map(C har,\n map(x->modp( x+shift, 127), \n map(Ord,Explode(Plaint ext)))));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%,AsciiCaesarGf*6$%*Plai ntextG%&shiftG6\"6$%)operatorG%&arrowGF)-_F)%(ImplodeG6#-%$mapG6$_F)%% CharG-F26$f*6#%\"xGF)F*F)-%%modpG6$,&9$\"\"\"T$F@\"$F\"F)F)6$F(9%-F26$ _F)%$OrdG-_F)%(ExplodeG6#F?F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "AsciiCaesar(Plaintext, -34);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#QB1MKC|hrP?LBMK|hrAMJJCARGML|hrMD|hrJCRRCPQ6\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "AsciiCaesar(Plaintext, 128); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#QBTpnf!sboepn!dpmmfdujpo!pg!mfuufs t6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "AsciiCaesar(Plainte xt, 1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#QBTpnf!sboepn!dpmmfdujpo!pg !mfuufst6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "AsciiCaesar( Plaintext, 22);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q4i|'|%|fr6|*w|&z|' |%6y|'|$|$|fry|,6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "leng th(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#>" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 18 "length(Plaintext);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#L" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Ord( Plaintext[20])+22;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#\"$F\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "map(Char,\n map(x->modp( x+22, 127), \n map(Ord,Explod e(Plaintext))));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7CQ\"i6\"Q\"|'F%Q \"|%F%Q\"|frF%Q\"6F%Q\"|*F%Q\"wF%Q\"|&F%Q\"zF%F&F'F)Q\"yF%F&Q\"|$F%F/F (F.Q\"|,F%Q!F%F&F,F)F&Q\"|grF%F)F/F(F0F0F(F*Q\"|+F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "seq([i,Char(i)],i=0..127);" }}{PARA 12 " " 1 "" {XPPMATH 20 "6\\s7$\"\"!Q!6\"7$\"\"\"Q\"|\"F&7$\"\"#Q\"|#F&7$\" \"$Q\"|$F&7$\"\"%Q\"|%F&7$\"\"&Q\"|&F&7$\"\"'Q\"|'F&7$\"\"(Q\"|(F&7$\" \")Q\"|)F&7$\"\"*Q\"|*F&7$\"#5Q\"|+F&7$\"#6Q\"|,F&7$\"#7Q\"|-F&7$\"#8Q \"|.F&7$\"#9Q\"|/F&7$\"#:Q\"|0F&7$\"#;Q\"|1F&7$\"#Q\"|4F&7$\"#?Q\"|5F&7$\"#@Q\"|6F&7$\"#AQ\"|7F&7$\"#BQ\"|8F&7$\" #CQ\"|9F&7$\"#DQ\"|:F&7$\"#EQ\"|;F&7$\"#FQ\"|F&7$\"#IQ\"|?F&7$\"#JQ\"|@F&7$\"#KQ\"~F&7$\"#LQ\"!F&7$\"#MQ\"\"F&7$ \"#NQ\"#F&7$\"#OQ\"$F&7$\"#PQ\"%F&7$\"#QQ\"&F&7$\"#RQ\"'F&7$\"#SQ\"(F& 7$\"#TQ\")F&7$\"#UQ\"*F&7$\"#VQ\"+F&7$\"#WQ\",F&7$\"#XQ\"-F&7$\"#YQ\". F&7$\"#ZQ\"/F&7$\"#[Q\"0F&7$\"#\\Q\"1F&7$\"#]Q\"2F&7$\"#^Q\"3F&7$\"#_Q \"4F&7$\"#`Q\"5F&7$\"#aQ\"6F&7$\"#bQ\"7F&7$\"#cQ\"8F&7$\"#dQ\"9F&7$\"# eQ\":F&7$\"#fQ\";F&7$\"#gQ\"F&7$\"#jQ\"?F&7$ \"#kQ\"@F&7$\"#lQ\"AF&7$\"#mQ\"BF&7$\"#nQ\"CF&7$\"#oQ\"DF&7$\"#pQ\"EF& 7$\"#qQ\"FF&7$\"#rQ\"GF&7$\"#sQ\"HF&7$\"#tQ\"IF&7$\"#uQ\"JF&7$\"#vQ\"K F&7$\"#wQ\"LF&7$\"#xQ\"MF&7$\"#yQ\"NF&7$\"#zQ\"OF&7$\"#!)Q\"PF&7$\"#\" )Q\"QF&7$\"##)Q\"RF&7$\"#$)Q\"SF&7$\"#%)Q\"TF&7$\"#&)Q\"UF&7$\"#')Q\"V F&7$\"#()Q\"WF&7$\"#))Q\"XF&7$\"#*)Q\"YF&7$\"#!*Q\"ZF&7$\"#\"*Q\"[F&7$ \"##*Q\"\\F&7$\"#$*Q\"]F&7$\"#%*Q\"^F&7$\"#&*Q\"_F&7$\"#'*Q\"`F&7$\"#( *Q\"aF&7$\"#)*Q\"bF&7$\"#**Q\"cF&7$\"$+\"Q\"dF&7$\"$,\"Q\"eF&7$\"$-\"Q \"fF&7$\"$.\"Q\"gF&7$\"$/\"Q\"hF&7$\"$0\"Q\"iF&7$\"$1\"Q\"jF&7$\"$2\"Q \"kF&7$\"$3\"Q\"lF&7$\"$4\"Q\"mF&7$\"$5\"Q\"nF&7$\"$6\"Q\"oF&7$\"$7\"Q \"pF&7$\"$8\"Q\"qF&7$\"$9\"Q\"rF&7$\"$:\"Q\"sF&7$\"$;\"Q\"tF&7$\"$<\"Q \"uF&7$\"$=\"Q\"vF&7$\"$>\"Q\"wF&7$\"$?\"Q\"xF&7$\"$@\"Q\"yF&7$\"$A\"Q \"zF&7$\"$B\"Q\"|frF&7$\"$C\"Q\"|grF&7$\"$D\"Q\"|hrF&7$\"$E\"Q\"|irF&7 $\"$F\"Q\"|jrF&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "Alphabet := \"ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz\";" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%)AlphabetGQVABCDEFGHIJKLMNOPQRSTUVWX YZ~abcdefghijklmnopqrstuvwxyz6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "SearchText(\"M\", Alphabet);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Sear chText(\"m\", Alphabet);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#S" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "ToNum := proc(str::string)\n global Alphabet;\n return(SearchText(str,Alphabet));\nend;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&ToNumGf*6#'%$strG%'stringG6\"F*F*O- %+SearchTextG6$9$%)AlphabetGF*6#F0F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ToNum(\"a\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#G " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "ToNum(\"hello\");" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "ToNumList := proc(str::string)\n local slist;\n g lobal Alphabet;\n slist := Explode(str);\n return(\n map(x->Sear chText(x,Alphabet)-1, slist));\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 " 6#>%*ToNumListGf*6#'%$strG%'stringG6#%&slistG6\"F,C$>8$-_F,%(ExplodeG6 #9$O-%$mapG6$f*6#%\"xGF,6$%)operatorG%&arrowGF,,&-%+SearchTextG6$F4%)A lphabetG\"\"\"FD!\"\"F,F,F,F/F,6#FCF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "ToNumLi st(\"yabba dabba do\");" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "NumListToStr:=proc(l::list)\n glob al Alphabet;\n map(x->Alphabet[x+1], l);\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-NumListToStrGf*6#'%\"lG%%listG6\"F*F*-%$mapG6$f*6#% \"xGF*6$%)operatorG%&arrowGF*&%)AlphabetG6#,&9$\"\"\"F9F9F*F*F*F8F*6#F 5F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "NumListToStr([51, 27 , 28, 28, 27, 26, 30, 27, 28, 28, 27, 26, 30, 41]);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#70Q\"y6\"Q\"aF%Q\"bF%F'F&Q\"~F%Q\"dF%F&F'F'F&F(F)Q\"o F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 100 "NumListToStr:=proc(l ::list)\n global Alphabet;\n return(\n Implode(map(x->Alphabet[x+1 ], l)));\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-NumListToStrGf*6# '%\"lG%%listG6\"F*F*O-_F*%(ImplodeG6#-%$mapG6$f*6#%\"xGF*6$%)operatorG %&arrowGF*&%)AlphabetG6#,&9$\"\"\"F>F>F*F*F*F=F*6#F:F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "ToNumList(\"what to say\");" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7-\"#\\\"#M\"#F\"#Y\"#EF'\"#TF(\"#XF& \"#^" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "NumListToStr(%);" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#Q,what~to~say6\"" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 208 "Caesar:=proc(plain::string, shift::integer) \n local numl;\n global Alphabet;\n numl := ToNumList(plain);\n \+ numl := map( x->modp( x+shift, length(Alphabet)), numl);\n return( NumListToStr(numl));\nend;\n " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>% 'CaesarGf*6$'%&plainG%'stringG'%&shiftG%(integerG6#%%numlG6\"F/C%>8$-% *ToNumListG6#9$>F2-%$mapG6$f*6#%\"xGF/6$%)operatorG%&arrowGF/-%%modpG6 $,&F6\"\"\"T$FE-%'lengthG6#%)AlphabetGF/F/6$F+9%F2O-%-NumListToStrG6#F 2F/FIF/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Caesar(\"veni vi di vici\", 3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q/yhqlcylglcylfl6\" " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Caesar(%, -3);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#Q/veni~vidi~vici6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Caesar(\"yo mama!\", 3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)BrcpdpdC6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "Caesar(%, -3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)y o~mamaz6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }