lisp的演示例子（快速排序）算法修正

添加整数求余运算