{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "_cstyle1" -1 202 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "_cstyle2" -1 203 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "_cstyle3" -1 204 "Times" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }{PSTYLE "_pstyle1" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pst yle2" -1 201 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 0 1 0 2 1 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "_pstyle3" -1 202 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "01." }{TEXT 202 0 "" }}} {EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 23 "rnd:=rand(10^49,10^50): " }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 10 "\nx:=rnd();" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 10 "\ny:=rnd();" }{MPLTEXT 1 203 0 "" }}} {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "02." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 14 "start:=time():" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 15 "\nres:=gcd(x,y):" }{MPLTEXT 1 203 0 "" } {MPLTEXT 1 203 20 "\n[time()-start,res];" }{MPLTEXT 1 203 0 "" }}} {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "03." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 14 "start:=time():" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\nres:=ifactor(x):" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 20 "\n[time()-start,res];" }{MPLTEXT 1 203 0 "" }}} {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "04." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 14 "start:=time():" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\nres:=ifactor(y):" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 20 "\n[time()-start,res];" }{MPLTEXT 1 203 0 "" }}} {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "05." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "06." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 23 "rnd:=rand(10^24,10^25):" }{MPLTEXT 1 203 0 "" } {MPLTEXT 1 203 38 "\nz:=nextprime(rnd())*nextprime(rnd());" }{MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "07." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 14 "start:=time():" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\nres:=ifactor(z):" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 20 "\n[time()-start,res];" }{MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "08." }{TEXT 202 0 "" }}} {EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 22 "factorinteger:=proc(x)" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 22 "\nlocal z,teiler,liste;" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 27 "\nif type(x,integer) and x>1" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 13 "\n then z:=x;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 18 "\n teiler:=2;" }{MPLTEXT 1 203 0 " " }{MPLTEXT 1 203 18 "\n liste:=[];" }{MPLTEXT 1 203 0 "" } {MPLTEXT 1 203 20 "\n while z>1 do" }{MPLTEXT 1 203 0 "" } {MPLTEXT 1 203 41 "\n while type(z/teiler,integer) do" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 24 "\n z:=z/teiler;" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 38 "\n liste:=[op(liste) ,teiler];" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\n end do; " }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 22 "\n if teiler=2 " } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 26 "\n then teiler:=3" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 42 "\n else teiler:=next prime(teiler)" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\n end if;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 15 "\n end do;" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 19 "\n return(liste); " } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 8 "\nend if;" }{MPLTEXT 1 203 0 " " }{MPLTEXT 1 203 10 "\nend proc:" }{MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "09." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 24 "x:=65176314651398250790;" }{MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "10." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 14 "start:=time():" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\nres:=ifactor(x):" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 20 "\n[time()-start,res];" }{MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "11." }{TEXT 202 0 "" }}} {EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 17 "factorinteger(x):" } {MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "12." } {TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 22 "factor integer:=proc(x)" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 22 "\nlocal z,t eiler,liste;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 27 "\nif type(x,int eger) and x>1" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 13 "\n then z:=x; " }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 18 "\n teiler:=2;" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 18 "\n liste:=[];" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 40 "\n while z>1 and not(isp rime(z)) do" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 41 "\n while type(z/teiler,integer) do" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 24 " \n z:=z/teiler;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 38 "\n liste:=[op(liste),teiler];" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\n end do;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 22 "\n if teiler=2 " }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 26 "\n \+ then teiler:=3" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 42 "\n \+ else teiler:=nextprime(teiler)" }{MPLTEXT 1 203 0 "" } {MPLTEXT 1 203 17 "\n end if;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 24 "\n if isprime(z) " }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 38 "\n then liste:=[op(liste),z];" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 17 "\n end if;" }{MPLTEXT 1 203 0 "" } {MPLTEXT 1 203 15 "\n end do;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 19 "\n return(liste); " }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 8 " \nend if;" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 10 "\nend proc:" } {MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "13." } {TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 14 "start: =time():" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 23 "\nres:=factorintege r(x):" }{MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 20 "\n[time()-start,res]; " }{MPLTEXT 1 203 0 "" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "14." } {TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 183 "RSA57 6:=1881988129206079638386972394616504398071635633794173827007633564229 8885971523466548531906060650474304531738801130339671619969232120573403 1879550656996221305168759307650257059;" }{MPLTEXT 1 203 0 "" }}} {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "15." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 203 95 "RSA576-398075086424064937397125 500550386491199064362342526708406385189575946388957261768583317*" } {MPLTEXT 1 203 0 "" }{MPLTEXT 1 203 89 "\n4727721461074353025362230719 73048224632914695302097116459852171130520711256363590397527;" } {MPLTEXT 1 203 0 "" }}}{PARA 202 "" 0 "" {TEXT 204 0 "" }}{PARA 202 " " 0 "" {TEXT 204 0 "" }}{PARA 202 "" 0 "" {TEXT 204 0 "" }}{PARA 202 " " 0 "" {TEXT 204 0 "" }}{PARA 202 "" 0 "" {TEXT 204 0 "" }}{PARA 202 " " 0 "" {TEXT 204 0 "" }}{PARA 202 "" 0 "" {TEXT -1 0 "" }}}{MARK "1 0 \+ 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }