（通用LISP）（defon子集（k xs）（cond（（空xs）'nil）（（=1 k）（xs-collect中x的循环（list x））（t（并集（子集k（cdr-xs））（mapcar（λ（x）（cons（汽车xs）x））（子集（1-k）（cdr-xs））））（消除新的离散序列（ds is）（let（（ys（copy-list ds）））（白云岩（i is）（decf（n th i ys））（删除0（排序ys#'<））（let（表（make-hash-table：测试#'equal））（卸载图形计数（ds）（第二（（等于ds’（11））1）（（<（长度ds）3）0）（（oddp（reduce#'+ds））0）（t（或（gethash-ds-table）（setf（getash ds表）（减少#'+（mapcar（λ（x））（图形计数（新阶序列（cdr-ds）x））（子集（car ds）（i的循环从以下0开始（1-（长度ds）））收集i））（defon正则图（nk）（循环重复k收集n）（从7到20 do的i循环（格式t“~d~%”（图形计数（常规图形6i）））