#!/usr/bin/env gosh (define (solve a b s) (let ((da (abs (- a s))) (db (abs (- b s)))) (cond ((or (<= da db) (= s 1)) (+ da s)) ((not (= a 0)) (+ db a (min (- s 1) k))) (else (+ t s 1))))) (define (main args) (let* ((a (read)) (b (read)) (s (read))) (display (solve a b s)) (newline)))