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