fork download
copy 
  1. (print 
  2.   (let ((list (list)))
  3.     (loop :for i :from 2 :to 100 :do
  4.       (loop :for x :from i :to 100 :by i
  5.             :do (pushnew x list)))
  6.     (length list)))
Success #stdin #stdout 0.05s 10848KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
99
https://ideone.com/M8wVRI
language:
Common Lisp (clisp 2.49.92)
created:
12 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!