(loop for l = (loop for i from 2 to 100000 collect i) then (delete-if {zerop (mod _ x)} (cdr l)) for x = (car l) while x collect x)
0 件のコメント:
コメントを投稿