• 本来、それまでに出て来た素数で、その数の平方根を越えない最大のものまでの全てで割り切れないことをチェックすればいいのだか、ここでは、ばか正直に2から(その数-1)までの全ての整数で割り切れないことを確認している。
• timeコマンドの出力を示してあるけれど、他の問題ではこういう比率にはならないだろうから絶対のものと思ってはいけない。そもそも、人間の作業時間もカウントすれば多くの問題ではRubyやPerlなどの方が Cで組むより数倍効率的。
• オブジェクト指向プログラミングを考慮して設計されている、あるいは、複素数や任意精度数値を扱える...など、各言語にはそれぞれの特徴がある。なのにここではあえてこのような単純な例題を用いて列挙している。

$ cat prime.c
#include <stdio.h>
int
main ()
{
  int n, x;

  for (n = 2; n <= 10000; n++) {
    for (x = 2; x < n; x++)
      if (n % x == 0) {
	printf ("%d = %d * %d\n", n, x, n/x);
	break;
      }
    if (x == n)
      printf ("%d is prime number\n", n);
  }

  return 0;
}
$ gcc prime.c
$ time ./a.out >log-C
0.59user 0.00system 0:00.59elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (81major+10minor)pagefaults 0swaps
$

$ cat prime.pl
#!/usr/bin/perl
for ($n = 2; $n <=10000; $n++) {
    for ($x = 2; $x < $n; $x++) {
	if (($n % $x) == 0) {
	    print "$n = $x * ", $n/$x, "\n";
	    last;
	}
    }
    print "$n is prime number\n" if ($x == $n);
}
$ time ./prime.pl >log-Perl
17.26user 0.02system 0:17.56elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (265major+50minor)pagefaults 0swaps
$ diff log-Perl log-C
$ 

$ cat prime.py
#!/usr/bin/env python
for n in range (2, 10001):
	for x in range(2, n):
		if n % x == 0:
			print n, '=', x, '*', n/x
			break
	else:
		print n, 'is prime number'
$ time ./prime.py >log-Python
36.85user 0.04system 0:37.45elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (316major+169minor)pagefaults 0swaps
$ diff log-Python log-C
$

$ cat prime.f
      program prime
      integer n, x

      do n = 2, 10000
         do x = 2, n - 1
            if (mod(n, x) .eq. 0) then
               print *, n, ' =', x, ' *', n/x
               goto 10
            endif
         enddo
 10      if (x .eq. n) print *, n, ' is prime number'
      enddo

      stop
      end
$ g77 prime.f
$ time ./a.out >log-Fortran
0.63user 0.00system 0:00.62elapsed 100%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (97major+13minor)pagefaults 0swaps
$ cut -b 2- log-Fortran >tmp.log-Fortran
$ diff tmp.log-Fortran log-C
$ 

$ cat prime.rb
#!/usr/bin/env ruby
for n in 2..10000
    for x in 2..n-1
	if n % x == 0
	   print n, " = ", x, " * ", n/x, "\n"
	   break
	end
    end

    if x == n - 1
	print n, " is prime number\n"
    end
end
$ time ./prime.rb >log-Ruby
34.15user 0.02system 0:34.17elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (331major+172minor)pagefaults 0swaps
$ diff log-Ruby log-C
0a1
> 2 is prime number
$ 

$ cat ./prime.tcl
#!/usr/bin/tclsh
for {set n 2} {$n <= 10000} {incr n} {
    for {set x 2} {$x < $n} {incr x} {
	if {$n % $x == 0} {
	    puts "$n = $x * [expr $n / $x]"
	    break
	}
    }
    if {$x == $n} { puts "$n is prime number" }
}
$ time ./prime.tcl >log-Tcl
83.45user 0.13system 1:23.60elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (249major+56minor)pagefaults 0swaps
$ diff log-Tcl log-C
$

$ cat prime.bc
#!/usr/bin/bc
for (n = 2; n <= 10000; n++) {
    for (x = 2; x < n; x++) {
	if (n % x == 0) {
	   print n, " = ", x, " * ", n/x, "\n"
	   break
	}
    }
    if (x == n)
       print n, " is prime number\n"
}
quit
$ time ./prime.bc >log-BC
141.52user 0.28system 2:24.90elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (150major+14minor)pagefaults 0swaps
$ diff log-BC log-C
$