### LISP (27) ###

(Same trick as in PARI/GP answer)

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