Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,19 +0,0 @@
|
|||
with Ada.Text_IO;
|
||||
|
||||
procedure Repeat_Example is
|
||||
|
||||
procedure Repeat(P: access Procedure; Reps: Natural) is
|
||||
begin
|
||||
for I in 1 .. Reps loop
|
||||
P.all; -- P points to a procedure, and P.all actually calls that procedure
|
||||
end loop;
|
||||
end Repeat;
|
||||
|
||||
procedure Hello is
|
||||
begin
|
||||
Ada.Text_IO.Put("Hello! ");
|
||||
end Hello;
|
||||
|
||||
begin
|
||||
Repeat(Hello'Access, 3); -- Hello'Access points to the procedure Hello
|
||||
end Repeat_Example;
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
config const n = 5;
|
||||
|
||||
proc example()
|
||||
{
|
||||
writeln("example");
|
||||
}
|
||||
|
||||
proc repeat(func, n)
|
||||
{
|
||||
for i in 0..#n do func();
|
||||
}
|
||||
|
||||
repeat(example, n);
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
config const n = 5;
|
||||
|
||||
proc example()
|
||||
{
|
||||
writeln("example");
|
||||
}
|
||||
|
||||
proc repeat(func : proc(), n : uint)
|
||||
{
|
||||
for i in 0..#n do func();
|
||||
}
|
||||
|
||||
repeat(example, n);
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
config const n = 5;
|
||||
|
||||
proc example(x : uint)
|
||||
{
|
||||
writeln("example ", x);
|
||||
}
|
||||
|
||||
proc repeat(func : proc(x : uint), n : uint)
|
||||
{
|
||||
for i in 0..#n do func(i);
|
||||
}
|
||||
|
||||
repeat(example, n);
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
function Out-Example
|
||||
{
|
||||
"Example"
|
||||
}
|
||||
|
||||
function Step-Function ([string]$Function, [int]$Repeat)
|
||||
{
|
||||
for ($i = 1; $i -le $Repeat; $i++)
|
||||
{
|
||||
"$(Invoke-Expression -Command $Function) $i"
|
||||
}
|
||||
}
|
||||
|
||||
Step-Function Out-Example -Repeat 3
|
||||
Loading…
Add table
Add a link
Reference in a new issue