0. #lang racket
1. (require math)
2. (require racket/match)
3.  
4. (define (inverse func)
5.   (match func
6.     ['exp log]
7.     ['cos acos]
8.     [_ #f]))
9.  
10. (printf "Inv[~a](~a) = ~a\n" 'exp (exp 1) ((inverse 'exp) (exp 1)))
11. (printf "Inv[~a](~a) = ~a" 'cos 1 ((inverse 'cos) 1))

=>

Inv[exp](2.718281828459045) = 1.0

Inv[cos](1) = 0