From section 1.2 of Aldor Users Guide

• http://www.aldor.org/docs/HTML/chap1.html

sieve.as

A prime number sieve to count primes <= n.

(1) -> <aldor>
# include "fricas.as"

import from Boolean, Integer, NonNegativeInteger;

sieve(n: Integer): Integer  == {
        isprime: OneDimensionalArray Boolean := new(n::NonNegativeInteger, true);

        np:Integer := 0;
        for p in 2..n | isprime p repeat {
                np := np + 1;
                for i in (p+p)..n by p repeat isprime i := false;
        }
        np
}</aldor>

Compiling FriCAS source code from file 
      /var/lib/zope2.10/instance/axiom-wiki/var/LatexWiki/860059225630362337-25px001.as
      using Aldor compiler and options 
-O -Fasy -Fao -Flsp -lfricas -Mno-ALDOR_W_WillObsolete -DFriCAS -Y $FRICAS/algebra -I $FRICAS/algebra
      . Use the system command )set compiler args to change these 
      options.
#1 (Warning) Could not use archive file `libfricas.al'.
"/var/lib/zope2.10/instance/axiom-wiki/var/LatexWiki/860059225630362337-25px001.as", line 1: 
# include "fricas.as"
^
[L1 C1] #2 (Error) Could not open file `fricas.as'.

   The )library system command was not called after compilation.

for i in 1..4 repeat
        n := 10^i
        outputList ["There are ", sieve n, " primes <= ", n]

   There are no library operations named sieve 
      Use HyperDoc Browse or issue
                               )what op sieve
      to learn if there is any operation containing " sieve " in its 
      name.
   Cannot find a definition or applicable library operation named sieve
      with argument type(s) 
                               PositiveInteger

      Perhaps you should use "@" to indicate the required return type, 
      or "$" to specify which version of the function you need.
   FriCAS will attempt to step through and interpret the code.
   There are no library operations named sieve 
      Use HyperDoc Browse or issue
                               )what op sieve
      to learn if there is any operation containing " sieve " in its 
      name.

   Cannot find a definition or applicable library operation named sieve
      with argument type(s) 
                               PositiveInteger

      Perhaps you should use "@" to indicate the required return type, 
      or "$" to specify which version of the function you need.

To run this program on your own computer you need Linux and FriCAS+Aldor. You need to build them from sources, follow the instructions in INSTALL.

1. Save the program source as a file called 'sieve.as':

     $ vim sieve.as
   

2. Start FriCAS:

     $ fricas
   

3. Compile the program:

     (1) -> )compile sieve.as
   

4. Run it:

       for i in 1..6 repeat ( _
           n := 10^i; _
           outputList ["There are ", sieve n, " primes <= ", n] _
       )