1. RE: Contest #1 - Winner
- Posted by Ray Smith <smithr at ix.net.au> Apr 01, 2002
- 512 views
Congratulations Aku!!!! Just out of interest ... where and when will Aku's program be released to the public? Robert Craig wrote: > I've finished judging contest #1 and the winner is Aku. Ray Smith http://rays-web.com
2. RE: Contest #1 - Winner
- Posted by Ray Smith <smithr at ix.net.au> Apr 01, 2002
- 507 views
Hi, > Robert Craig wrote: > > I've finished judging contest #1 and the winner is Aku. I Assume we can all post our attempts now to the list??? It will be interesting to see others attempts .... I'd like to see Derek's entry!!! See my attempt below ... (Note: Some bad programming practices used for speed!) -------------------------- --timing stuff include machine.e tick_rate(100) atom t -- time t = time() -- Official Euphoria Contest - Easy -- Ray Smith 2-Mar-2002 without type_check without warning --with trace sequence p,p2,s,s2,o -- cipher/extended cipher/stats/compress stats/out buffer sequence b -- input buffer integer c,f,l -- current char / file number / buffer length function sort(sequence x) sequence temp for i = 1 to length(x) - 1 do for j = i + 1 to length(x) do if x[j][1] < x[i][1] then temp = x[j] x[j] = x[i] x[i] = temp end if end for end for return x end function function my_find(integer c) for i = 1 to 26 do if p[i] = c then return i end if end for end function function get_bytes(integer fn, integer n) sequence s integer c c = getc(fn) if c = -1 then return {} end if s = repeat(c, n) for i = 2 to n do s[i] = getc(fn) end for if s[n] != -1 then return s else while s[n] = -1 do n -= 1 end while return s[1..n] end if end function -- init stats(frequency) sequence s = repeat(0, 128) -- read cipher p = gets(0) -- print inverse for i = 'A' to 'Z' do puts(1, or_bits(64,my_find(i))) end for puts(1, "\n") -- setup extended ciphre table -- invalid chars remain as 0 -- A-Z live in 'A' - 'Z' slots -- a-z live in 'a' - 'z' slots p2=repeat(0,255) for i = 'A' to 'Z' do p2[i] = p[i-64] p2[or_bits(i,#20)] = or_bits(p2[i], #20) end for -- process text o = repeat(0, 4096) while 1 do b = get_bytes(0, 4096) l = length(b) if l = 0 then exit end if for i = 1 to l do c = b[i] if p2[c] = 0 then o[i] = c else o[i] = p2[c] s[c]+=1 end if end for puts(1, o[1..l]) end while -- combine lower and upper totals for i = 'A' to 'Z' do s[i]+=s[or_bits(i,#20)] end for -- create a new stats sequence with letters s2 = repeat( {0,0}, 26) for i = 1 to 26 do s2[i][1] = s[or_bits(i,64)] s2[i][2] = or_bits(i,64) end for -- sort & write letters.txt s2 = sort(s2) f = open("letters.txt", "w") if f = -1 then puts(1, "Can't open letters.txt for output\n") else for i = 26 to 1 by -1 do puts(f, s2[i][2] & " " & sprintf("%d\n", s2[i][1])) end for close(f) end if printf(2, "Time = %f\n", time() - t) ----------------- Ray Smith http://rays-web.com
3. RE: Contest #1 - Winner
- Posted by jordah ferguson <jorfergie03 at yahoo.com> Apr 02, 2002
- 492 views
can you atleast tell us who the first 5 were, i wanna see if the guy who inspires me was there!! jordah Robert Craig wrote: > I've finished judging contest #1 and the winner is Aku. > > His program was correct and was faster > than the other 3 competitors. > > The second place competitor was about > 12% slower than Aku. > > I ran each program several times on a large input file, > and Aku's was clearly faster. > > The third place competitor was about 3x slower than Aku, > and also ran out of memory on a huge input file. > > The fourth place competitor did not produce output that > was completely correct. > > I'll post Aku's program later today. > Tomorrow I'll judge contest #2 (7 competitors), and > hopefully Wednesday I'll do #3 (6 competitors). > > Congratulations Aku, and I'll note your $20 MicroEconomy earnings > in my files. Let me know if you want a discount coupon for DigiBuy. > > Regards, > Rob Craig > Rapid Deployment Software > http://www.RapidEuphoria.com > >
4. RE: Contest #1 - Winner
- Posted by jordah ferguson <jorfergie03 at yahoo.com> Apr 03, 2002
- 497 views
can you atleast tell us who the first 5 were, i wanna see if the guy who inspires me was there!! jordah Robert Craig wrote: > I've finished judging contest #1 and the winner is Aku. > > His program was correct and was faster > than the other 3 competitors. > > The second place competitor was about > 12% slower than Aku. > > I ran each program several times on a large input file, > and Aku's was clearly faster. > > The third place competitor was about 3x slower than Aku, > and also ran out of memory on a huge input file. > > The fourth place competitor did not produce output that > was completely correct. > > I'll post Aku's program later today. > Tomorrow I'll judge contest #2 (7 competitors), and > hopefully Wednesday I'll do #3 (6 competitors). > > Congratulations Aku, and I'll note your $20 MicroEconomy earnings > in my files. Let me know if you want a discount coupon for DigiBuy. > > Regards, > Rob Craig > Rapid Deployment Software > http://www.RapidEuphoria.com > > >