Google Codejam Qualification Round 2014 / Cookie

cookie.for

C | I haven't code any FORTRAN program before.
        Program Cookie
            integer :: ti, t, farms
            integer, parameter :: dp = SELECTED_REAL_KIND(15)
            real(dp) :: C, F, X, timetake
            real(dp) :: yesfarm, nofarm
            read (*,*) t
            do ti=1,t
                read (*,*) C, F, X
                farms = 0
                timetake = 0.0d0
                do
                    timetake = timetake + C / (2 + F*farms)
                    yesfarm = X / (2 + F*(farms+1))
                    nofarm = (X-C) / (2 + F*farms)
                    if (nofarm < yesfarm) exit
                    farms = farms + 1
                end do
                timetake = timetake + nofarm
                write (*,"(A6,I0,A2,F0.8)") "Case #", ti, ": ", timetake
            end do
        End Program Cookie

cookie.rkt

(define in (open-input-file "cookie.in"))
(define T (string->number (read-line in)))

(define (time-takes dist F nfarm)
	(/ dist (+ 2 (* F nfarm))))

(define (compute-inner C F X timetook farms)
	(let (
		[timetook (+ timetook (time-takes C F farms))]
		[yesfarm (time-takes X F (+ 1 farms))]
		[nofarm (time-takes (- X C) F farms)]
	) (if (< nofarm yesfarm) (+ timetook nofarm)
		(compute-inner C F X timetook (+ 1 farms)))))

(define (compute args)
	(compute-inner (first args) (second args) (third args) 0.0 0))

(define (process ti)
	(printf "Case #~s: ~s~n" ti
		(compute (map string->number (regexp-split #rx" " (read-line in))))))

(define (process-loop ti)
	(if (<= ti T)
		(begin (process ti) (process-loop (+ ti 1)))
		ti))

(process-loop 1)