(use srfi-1) (let1 ls (sort (list-tabulate 3 (^_ (read)))) (print (cond [(apply = ls) (car ls)] [(apply < ls) (- 6 (apply + ls))] [else (- (+ (car ls) (caddr ls)) (cadr ls))])))