[racket] disable inlining for recursive functions

On Fri, Dec 7, 2012 at 5:54 PM, Vincent St-Amour <stamourv at ccs.neu.edu> wrote:

> The upcoming version of Optimization Coach tries to do a better job at
> explaining inlining failures. Specifically, I'm working on function
> size-related heuristics that look like they may help here.

Cool!

> Could you send me some representative input? I'd like to test the new
> Optimization Coach with your program.

No input.

use: (ris)  ; writes to (current-output-port)
or: (ris "a/file/name")
or: (ris a-port)

it counts and writes the solutions to the puzzle described in:
http://www.iread.it/lz/sex_eng.html  (short version, in english)
or http://www.iread.it/lz/sexomininum2.html (longer version, in italian)

If you don't want to see the solutions just axe the function eureka.

For shorter runs, change the number of solutions to be found:

(define soluzioni-da-trova
  (make-parameter 99999999))  ; use 1000 for around 20s runs, 500 for
5s runs, ...

Thanks!
P.