fork(3) download
  1. ; largest possible remainder
  2.  
  3. (define (lpr n d)
  4. (let loop ((d d) (m 0))
  5. (let ((r (remainder n d)))
  6. (if (< d m) m
  7. (loop (- d 1) (max m r))))))
  8.  
  9. (display (lpr 20 10)) (newline)
Success #stdin #stdout 0s 7268KB
stdin
Standard input is empty
stdout
6