Skip to content

Remove unnecessary slide #470

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
frank-at-adacore wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Remove unnecessary slide #470

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
31 changes: 0 additions & 31 deletions courses/fundamentals_of_ada/080_expressions/05-quantified_expressions.rst
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -26,37 +26,6 @@ Introduction
..
language_version 2012

----------
Examples
----------

.. code:: ada

with GNAT.Random_Numbers; use GNAT.Random_Numbers;
with Ada.Text_IO; use Ada.Text_IO;
procedure Quantified_Expressions is
Gen : Generator;
Values : constant array (1 .. 10) of Integer := (others => Random (Gen));

Any_Even : constant Boolean := (for some N of Values => N mod 2 = 0);
All_Odd : constant Boolean := (for all N of reverse Values => N mod 2 = 1);

function Is_Sorted return Boolean is
(for all K in Values'Range =>
K = Values'First or else Values (K - 1) <= Values (K));

function Duplicate return Boolean is
(for some I in Values'Range =>
(for some J in I + 1 .. Values'Last => Values (I) = Values (J)));

begin
Put_Line ("Any Even: " & Boolean'Image (Any_Even));
Put_Line ("All Odd: " & Boolean'Image (All_Odd));
Put_Line ("Is_Sorted " & Boolean'Image (Is_Sorted));
Put_Line ("Duplicate " & Boolean'Image (Duplicate));
end Quantified_Expressions;
.. include:: ../examples/080_expressions/quantified_expressions.rst

-----------------------------------------
Semantics Are As If You Wrote This Code
-----------------------------------------
Expand Down
Loading