Code that rewrites code [Challenge]

Write a program that accepts the source code of a program, and rewrites it to perform better, or adds new features. The output source must be significantly altered. The program must also accept it's own source as input. Applied iteratively, the program must not exhibit behavior of local maxima that plagues genetic algorithms within the first 10 iterations.

Difficulty: Moderate

Language: Any language is acceptable

Deadline: 2013.28.02

Prize: The winner will receive 15 BTC upon verification and a gift certificate to Shapeways, so that you may print your own trophy, and a years supply of Tab soft drink. Second place will receive 10 BTC and a glow-in-the-dark meme t-shirt from Hot Topic. Third place will receive 5 BTC and a free electronic copy of SICP. Last place will receive a 4chan Pass, so that s\he may return to the imageboards.

Judging criteria: Submissions will be judged first on their completeness, then on the efficiency of the outputted code, and finally on the elegance of both the program itself and the code that it outputs. Should any major bugs be found after submission, the submitter must resubmit his\her code in its entirety.

btw what's 15 bitcoin worth ?

Pretty interesting, >>41

>>31
Does not perform a function
What about main, puts, and sleep (whatever that is)? They're functions.

does not check if the input is LISP.
Doesn't need to. Passing in a lisp program has UNDEFINED BEHAVIOUR! YAIN'T RED DA STANDARD.

>>41
Don't worry about it; if you manage to solve this, then you'll never worry about money again.

>>44 except the nsa would probably have stolen it before i managed to afford a patent =/

lets face it, there ain't no money in stopping terrorists.. stealing tech though, ka-ching ka-ching ka-ching .....
good ol' national security eh?

3-axis rotation ^^



vdub = [1,1,20,20,5; 2,2,19,19,0];

locA = [-1, -10, 10];

locB = [10, 10, 5];

AtoB = locB .- locA;

BtoA = -AtoB;

for (iter = 1:size(vdub,1))

  shnd = vdub(iter,:);

  flatmat(shnd(1):shnd(3), shnd(2):shnd(4)) = shnd(5);

  endfor;

pointmat = [];

for (iterx = 1:size(flatmat,1))

  for (itery = 1:size(flatmat,2))

    for (iterz = 1:flatmat(iterx, itery))

      pointmat(end+1,:) = [iterx, itery, iterz];

      endfor;

    endfor;
 
  endfor;

%%pointmat(:,1) = pointmat(:,1) .- locA(1);

%%pointmat(:,2) = pointmat(:,2) .- locA(2);

%%pointmat(:,3) = pointmat(:,3) .- locA(3);

pointmat = microShift(pointmat, locA);

figure(1);

hold off;

plot(pointmat(:,1) ./ pointmat(:,2), pointmat(:,3) ./ pointmat(:,2), 'r+');

hold on;

plot([-1,1],[1,-1], 'w.');

stepAng = pi / 180 * 5;

rox = [1, 0, 0; 0, cos(stepAng), sin(stepAng); 0, -sin(stepAng), cos(stepAng)];

roy = [cos(-stepAng), sin(-stepAng), 0; -sin(-stepAng), cos(-stepAng), 0; 0, 0, 1];

roz = [cos(stepAng), 0, sin(stepAng); 0, 1, 0; -sin(stepAng), 0, cos(stepAng)];

cswap = {'r+', 'g+', 'b+'}

for(iter = 1:150)

  figure(2);

  pointmat = microShift(pointmat, AtoB);

  pointmat = pointmat * rox';

  pointmat = pointmat * roy';

  pointmat = pointmat * roz';

  pointmat = microShift(pointmat, BtoA);
 
  hold off;

  frmat = pointmat;

  plot(frmat(:,1) ./ frmat(:,2), frmat(:,3) ./ frmat(:,2), cswap{mod(iter,3)+1});

  hold on;

  plot([-3,3],[3,-3], 'w.');

  usleep(5000);

  endfor;