I created some Racket solutions to ProjectEuler #71.  Below is one that uses filter and map:<div><br></div><div><div>(define (euler71c)</div><div>  (numerator (apply max (filter (ë (n) (&gt; (/ 3 7) n)) (map (ë (n) (/ (floor (/ (* n 3) 7)) n)) (stream-&gt;list (in-range 2 1000000)))))))</div>
</div><div><br></div><div>1) I thought I might speed it up by using filter-map, but I cannot understand how to do it.  I read the 1 line I could find in the reference and it just doesn&#39;t help me</div><div><br></div><div>
2) The code above takes about 4x the time of a simple for loop implementation.  What can I do to speed it up?</div><div><br></div><div>Thanks,</div><div>-Joe</div>