### LISP (26) ###

(Same trick as in PARI/GP answer)

    (defun f(x)(- x(mod x 1)))