Lines Matching defs:best
149 (define-key map [(control c) (control b)] #'5x5-crack-mutating-best)
165 ["Crack mutating best" 5x5-crack-mutating-best t]
205 Mutate best cracker \\[5x5-crack-mutating-best]
343 (defun 5x5-crack-mutating-best ()
344 "Attempt to crack 5x5 by mutating the best solution."
346 (5x5-crack #'5x5-make-mutate-best))
350 "Attempt to crack 5x5 by xoring the current and best solution.
361 solution and the second will be the best solution so far. The function
367 (let* ((best-solution (5x5-make-random-grid))
368 (current-solution best-solution)
369 (best-result (5x5-make-new-grid))
372 (while (and (< (5x5-grid-value best-result) target)
374 (setq current-result (5x5-play-solution current-solution best-solution))
375 (if (> (5x5-grid-value current-result) (5x5-grid-value best-result))
376 (setq best-solution current-solution
377 best-result current-result))
380 (5x5-copy-grid best-solution)))))
387 (defun 5x5-make-mutate-current (current best)
391 (defun 5x5-make-mutate-best (current best)
392 "Mutate the best solution."
393 (5x5-mutate-solution best))
395 (defun 5x5-make-xor-with-mutation (current best)
396 "Xor current and best solution then mutate the result."
402 (5x5-cell best y x)))))
414 (defun 5x5-play-solution (solution best)
425 (5x5-draw-grid (list 5x5-grid solution best))