Learn Ada-spark - 10 Code Examples & CST Typing Practice Test

SPARK is a formally verifiable subset of the Ada programming language designed for high-integrity and safety-critical systems. It enforces strong typing, design-by-contract, and static analysis to mathematically prove program correctness and eliminate entire classes of bugs.

View all 10 Ada-spark code examples →

Hello World in SPARK Ada Safe Division with Contracts Sum of Two Numbers Factorial Function Check Even Number Array Sum Max of Two Numbers Swap Two Numbers Simple Loop Print Check Prime Number

Learn ADA-SPARK with Real Code Examples

Updated Nov 27, 2025

Introduction & Fundamentals Setup & Configuration Architecture & Deep Internals Performance & Security Development Workflow Learning & Career Growth Business & Strategy Examples

Code Sample Descriptions

Hello World in SPARK Ada

with Ada.Text_IO;
procedure Hello is
begin
    Ada.Text_IO.Put_Line("Hello, World from SPARK Ada!");
end Hello;

A minimal SPARK Ada program that outputs 'Hello, World!'.

Let’s Try →

Safe Division with Contracts

function Safe_Divide(X, Y : Integer) return Integer
    with Pre => Y /= 0,
    Post => Safe_Divide'Result * Y = X is
begin
    return X / Y;
end Safe_Divide;

A SPARK function that safely divides two numbers, using contracts to ensure correctness.

Let’s Try →

Sum of Two Numbers

with Ada.Text_IO;
procedure Sum_Numbers is
    A, B, C : Integer;
begin
    A := 5;
    B := 7;
    C := A + B;
    Ada.Text_IO.Put_Line("Sum = " & Integer'Image(C));
end Sum_Numbers;

A SPARK Ada program adding two numbers and printing the result.

Let’s Try →

Factorial Function

function Factorial(N : Natural) return Natural is
begin
    if N = 0 then
        return 1;
    else
        return N * Factorial(N - 1);
    end if;
end Factorial;

A recursive SPARK Ada function to compute factorial of a number.

Let’s Try →

Check Even Number

function Is_Even(X : Integer) return Boolean is
begin
    return X mod 2 = 0;
end Is_Even;

A SPARK Ada function that returns True if a number is even.

Let’s Try →

Array Sum

function Array_Sum(Arr : array (Positive range <>) of Integer) return Integer is
    Sum : Integer := 0;
begin
    for I in Arr'Range loop
        Sum := Sum + Arr(I);
    end loop;
    return Sum;
end Array_Sum;

A SPARK Ada function that sums all elements of an integer array.

Let’s Try →

Max of Two Numbers

function Max(X, Y : Integer) return Integer is
begin
    if X >= Y then
        return X;
    else
        return Y;
    end if;
end Max;

A SPARK Ada function returning the maximum of two integers.

Let’s Try →

Swap Two Numbers

procedure Swap(A, B : in out Integer) is
    Temp : Integer;
begin
    Temp := A;
    A := B;
    B := Temp;
end Swap;

A SPARK Ada procedure that swaps the values of two integers using in-out parameters.

Let’s Try →

Simple Loop Print

with Ada.Text_IO;
procedure Loop_Print is
begin
    for I in 1 .. 5 loop
        Ada.Text_IO.Put_Line(Integer'Image(I));
    end loop;
end Loop_Print;

A SPARK Ada program that prints numbers from 1 to 5 using a loop.

Let’s Try →

Check Prime Number

function Is_Prime(N : Natural) return Boolean is
begin
    if N <= 1 then
        return False;
    end if;
    for I in 2 .. N - 1 loop
        if N mod I = 0 then
        return False;
        end if;
    end loop;
    return True;
end Is_Prime;

A SPARK Ada function that checks if a number is prime.

Let’s Try →

Frequently Asked Questions about Ada-spark

What is Ada-spark?

What are the primary use cases for Ada-spark?

Avionics flight control software. Railway signaling and interlocking. Medical device firmware. Cybersecure embedded systems. Automotive safety ECUs

What are the strengths of Ada-spark?

Mathematical proof of correctness. Ultra-reliable for safety-critical domains. Eliminates runtime exceptions. Highly readable and maintainable syntax. Standardized and long-supported language

What are the limitations of Ada-spark?

Restricted subset compared to full Ada. Verification requires discipline and learning. Not suitable for rapid UI/desktop apps. Runtime features like dynamic allocation limited. Build times grow with extensive proofs

How can I practice Ada-spark typing speed?

CodeSpeedTest offers 10+ real Ada-spark code examples for typing practice. You can measure your WPM, track accuracy, and improve your coding speed with guided exercises.

Learn Other Programming Languages

C React Python C++Rust TypeScript Kotlin PHP Java C#Ruby Mql Cql N1ql Cypher Gremlin Partiql Haskell Elixir Fsharp View all languages →

Learn Ada-spark - 10 Code Examples & CST Typing Practice Test

Code Sample Descriptions

Hello World in SPARK Ada

with Ada.Text_IO;
procedure Hello is
begin
    Ada.Text_IO.Put_Line("Hello, World from SPARK Ada!");
end Hello;

A minimal SPARK Ada program that outputs 'Hello, World!'.

Let’s Try →

Safe Division with Contracts

function Safe_Divide(X, Y : Integer) return Integer
    with Pre => Y /= 0,
    Post => Safe_Divide'Result * Y = X is
begin
    return X / Y;
end Safe_Divide;

A SPARK function that safely divides two numbers, using contracts to ensure correctness.

Let’s Try →

Sum of Two Numbers

with Ada.Text_IO;
procedure Sum_Numbers is
    A, B, C : Integer;
begin
    A := 5;
    B := 7;
    C := A + B;
    Ada.Text_IO.Put_Line("Sum = " & Integer'Image(C));
end Sum_Numbers;

A SPARK Ada program adding two numbers and printing the result.

Let’s Try →

Factorial Function

function Factorial(N : Natural) return Natural is
begin
    if N = 0 then
        return 1;
    else
        return N * Factorial(N - 1);
    end if;
end Factorial;

A recursive SPARK Ada function to compute factorial of a number.

Let’s Try →

Check Even Number

function Is_Even(X : Integer) return Boolean is
begin
    return X mod 2 = 0;
end Is_Even;

A SPARK Ada function that returns True if a number is even.

Let’s Try →

Array Sum

function Array_Sum(Arr : array (Positive range <>) of Integer) return Integer is
    Sum : Integer := 0;
begin
    for I in Arr'Range loop
        Sum := Sum + Arr(I);
    end loop;
    return Sum;
end Array_Sum;

A SPARK Ada function that sums all elements of an integer array.

Let’s Try →

Max of Two Numbers

function Max(X, Y : Integer) return Integer is
begin
    if X >= Y then
        return X;
    else
        return Y;
    end if;
end Max;

A SPARK Ada function returning the maximum of two integers.

Let’s Try →

Swap Two Numbers

procedure Swap(A, B : in out Integer) is
    Temp : Integer;
begin
    Temp := A;
    A := B;
    B := Temp;
end Swap;

A SPARK Ada procedure that swaps the values of two integers using in-out parameters.

Let’s Try →

Simple Loop Print

with Ada.Text_IO;
procedure Loop_Print is
begin
    for I in 1 .. 5 loop
        Ada.Text_IO.Put_Line(Integer'Image(I));
    end loop;
end Loop_Print;

A SPARK Ada program that prints numbers from 1 to 5 using a loop.

Let’s Try →

Check Prime Number

function Is_Prime(N : Natural) return Boolean is
begin
    if N <= 1 then
        return False;
    end if;
    for I in 2 .. N - 1 loop
        if N mod I = 0 then
        return False;
        end if;
    end loop;
    return True;
end Is_Prime;

A SPARK Ada function that checks if a number is prime.

Let’s Try →

Frequently Asked Questions about Ada-spark

What is Ada-spark?

What are the primary use cases for Ada-spark?

Avionics flight control software. Railway signaling and interlocking. Medical device firmware. Cybersecure embedded systems. Automotive safety ECUs

What are the strengths of Ada-spark?

Mathematical proof of correctness. Ultra-reliable for safety-critical domains. Eliminates runtime exceptions. Highly readable and maintainable syntax. Standardized and long-supported language

What are the limitations of Ada-spark?

How can I practice Ada-spark typing speed?

CodeSpeedTest offers 10+ real Ada-spark code examples for typing practice. You can measure your WPM, track accuracy, and improve your coding speed with guided exercises.