File: diffwrds.dat

package info (click to toggle)
icon 9.5.25a-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 15,624 kB
  • sloc: ansic: 28,692; cpp: 5,650; yacc: 926; makefile: 882; lisp: 873; sh: 319; sed: 13; php: 1
file content (12 lines) | stat: -rw-r--r-- 349 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
 
procedure main()
   local limit, s, i
   limit := 100
   s := set([])
   every insert(s,1 to limit)
   every member(s,i := 2 to limit) do
      every delete(s,i + i to limit by i)
   primes := sort(s)
   write("There are ",*primes," primes in the first ",limit," integers.")
   write("The primes are:")
   every write(right(!primes,*limit + 1))
end