43 characters:

$x=$_[1];$x--while grep$_%$x,@_;map$_/$x,@_
[download]

Too bad grep and map don't default to @_.