onko_alkuluku.m

% Funktio, joka palauttaa tiedon (totuusarvon) siitä onko luku x alkuluku.
function palautus = onko_alkuluku(x)

  % Käydään jakajat läpi kahdesta neliöjuuri x:ään.
  palautus = 1;
  a = 2;
  while a <= sqrt(x)
      % Mikäli x jaollinen a:lla ei se ole alkuluku, palautetaan epätosi
      if mod(x,a) == 0
          palautus = 0;
          break; % Keskeytetään testaus hyppäämällä ulos while-silmukasta
      end
      a = a+1;
  end

end