Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,53 +0,0 @@
|
|||
with Ada.Characters.Handling;
|
||||
with Ada.Strings.Unbounded;
|
||||
with Ada.Text_IO;
|
||||
|
||||
procedure The_Name_Game
|
||||
is
|
||||
package ACH renames Ada.Characters.Handling;
|
||||
package ASU renames Ada.Strings.Unbounded;
|
||||
function "+"(input : in String) return ASU.Unbounded_String renames ASU.To_Unbounded_String;
|
||||
function "+"(input : in ASU.Unbounded_String) return String renames ASU.To_String;
|
||||
|
||||
function Normalize_Case(input : in String) return String is
|
||||
begin
|
||||
return ACH.To_Upper(input(input'First))
|
||||
& ACH.To_Lower(input(input'First + 1 .. input'Last));
|
||||
end Normalize_Case;
|
||||
|
||||
function Transform(input : in String; letter : in Character) return String is
|
||||
begin
|
||||
case input(input'First) is
|
||||
when 'A' | 'E' | 'I' | 'O' | 'U' =>
|
||||
return letter & ACH.To_Lower(input);
|
||||
when others =>
|
||||
if ACH.To_Lower(input(input'First)) = letter then
|
||||
return input(input'First + 1 .. input'Last);
|
||||
else
|
||||
return letter & input(input'First + 1 .. input'Last);
|
||||
end if;
|
||||
end case;
|
||||
end Transform;
|
||||
|
||||
procedure Lyrics(name : in String)
|
||||
is
|
||||
normalized : constant String := Normalize_Case(name);
|
||||
begin
|
||||
Ada.Text_IO.Put_Line(normalized & ", " & normalized & ", bo-" & Transform(normalized, 'b'));
|
||||
Ada.Text_IO.Put_Line("Banana-fana, fo-" & Transform(normalized, 'f'));
|
||||
Ada.Text_IO.Put_Line("fi-fee-mo-" & Transform(normalized, 'm'));
|
||||
Ada.Text_IO.Put_Line(normalized & '!');
|
||||
Ada.Text_IO.New_Line;
|
||||
end Lyrics;
|
||||
|
||||
names : constant array(1 .. 5) of ASU.Unbounded_String :=
|
||||
(+"Gary",
|
||||
+"EARL",
|
||||
+"billy",
|
||||
+"FeLiX",
|
||||
+"Mary");
|
||||
begin
|
||||
for name of names loop
|
||||
Lyrics(+name);
|
||||
end loop;
|
||||
end The_Name_Game;
|
||||
|
|
@ -1,58 +0,0 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. TheGameName.
|
||||
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 nombre PIC X(20).
|
||||
01 x PIC X(20).
|
||||
01 x0 PIC X(1).
|
||||
01 y PIC X(20).
|
||||
01 b PIC X(20).
|
||||
01 f PIC X(20).
|
||||
01 m PIC X(20).
|
||||
01 i PIC 9(2) VALUE 1.
|
||||
01 listanombres OCCURS 6 TIMES PIC X(20).
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-PROCEDURE.
|
||||
MOVE "Gary" TO listanombres(1)
|
||||
MOVE "EARL" TO listanombres(2)
|
||||
MOVE "billy" TO listanombres(3)
|
||||
MOVE "FeLiX" TO listanombres(4)
|
||||
MOVE "Mary" TO listanombres(5)
|
||||
MOVE "ShirlEY" TO listanombres(6)
|
||||
|
||||
PERFORM VARYING i FROM 1 BY 1 UNTIL i > 6
|
||||
MOVE listanombres(i) TO nombre
|
||||
PERFORM TheGameName
|
||||
END-PERFORM
|
||||
STOP RUN.
|
||||
|
||||
TheGameName.
|
||||
MOVE FUNCTION LOWER-CASE(nombre) TO x
|
||||
MOVE FUNCTION UPPER-CASE(x(1:1)) TO x0
|
||||
STRING x0 DELIMITED BY SIZE
|
||||
x(2:) DELIMITED BY SIZE INTO x
|
||||
|
||||
IF x0 = "A" OR x0 = "E" OR x0 = "I" OR x0 = "O" OR x0 = "U"
|
||||
MOVE FUNCTION LOWER-CASE(x) TO y
|
||||
ELSE
|
||||
MOVE x(2:) TO y
|
||||
END-IF
|
||||
|
||||
STRING "b" y DELIMITED BY SIZE INTO b
|
||||
STRING "f" y DELIMITED BY SIZE INTO f
|
||||
STRING "m" y DELIMITED BY SIZE INTO m
|
||||
|
||||
IF x0 = "B"
|
||||
MOVE y TO b
|
||||
ELSE IF x0 = "F"
|
||||
MOVE y TO f
|
||||
ELSE IF x0 = "M"
|
||||
MOVE y TO m
|
||||
END-IF
|
||||
|
||||
DISPLAY x ", " x ", bo-" b
|
||||
DISPLAY "Banana-fana fo-" f
|
||||
DISPLAY "Fee-fi-mo-" m
|
||||
DISPLAY x "!".
|
||||
|
|
@ -1,26 +1,24 @@
|
|||
-->
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">fmt</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
|
||||
%s, %s, bo-%s
|
||||
Banana-fana fo-%s
|
||||
Fee-fi-mo-%s
|
||||
%s!
|
||||
constant fmt = """
|
||||
%s, %s, bo-%s
|
||||
Banana-fana fo-%s
|
||||
Fee-fi-mo-%s
|
||||
%s!
|
||||
|
||||
"""</span>
|
||||
<span style="color: #008080;">procedure</span> <span style="color: #000000;">printVerse</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">name</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">string</span> <span style="color: #000000;">x</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">lower</span><span style="color: #0000FF;">(</span><span style="color: #000000;">name</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">x1</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">upper</span><span style="color: #0000FF;">(</span><span style="color: #000000;">x</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]),</span>
|
||||
<span style="color: #000000;">vowel</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #000000;">x1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"AEIUO"</span><span style="color: #0000FF;">)!=</span><span style="color: #000000;">0</span>
|
||||
<span style="color: #004080;">string</span> <span style="color: #000000;">y</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">[</span><span style="color: #000000;">2</span><span style="color: #0000FF;">-</span><span style="color: #000000;">vowel</span><span style="color: #0000FF;">..$],</span>
|
||||
<span style="color: #000000;">b</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">'b'</span><span style="color: #0000FF;">&</span><span style="color: #000000;">y</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">f</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">'f'</span><span style="color: #0000FF;">&</span><span style="color: #000000;">y</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">m</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">'m'</span><span style="color: #0000FF;">&</span><span style="color: #000000;">y</span>
|
||||
<span style="color: #000000;">x</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">x1</span>
|
||||
<span style="color: #008080;">switch</span> <span style="color: #000000;">x1</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #008080;">case</span> <span style="color: #008000;">'B'</span><span style="color: #0000FF;">:</span> <span style="color: #000000;">b</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">y</span>
|
||||
<span style="color: #008080;">case</span> <span style="color: #008000;">'F'</span><span style="color: #0000FF;">:</span> <span style="color: #000000;">f</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">y</span>
|
||||
<span style="color: #008080;">case</span> <span style="color: #008000;">'M'</span><span style="color: #0000FF;">:</span> <span style="color: #000000;">m</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">y</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">switch</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">b</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">f</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">m</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
|
||||
"""
|
||||
procedure printVerse(string name)
|
||||
string x = lower(name)
|
||||
integer x1 = upper(x[1]),
|
||||
vowel = find(x1,"AEIUO")!=0
|
||||
string y = x[2-vowel..$],
|
||||
b = 'b'&y, f = 'f'&y, m = 'm'&y
|
||||
x[1] = x1
|
||||
switch x1 do
|
||||
case 'B': b = y
|
||||
case 'F': f = y
|
||||
case 'M': m = y
|
||||
end switch
|
||||
printf(1,fmt,{x, x, b, f, m, x})
|
||||
end procedure
|
||||
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">tests</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"gARY"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Earl"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Billy"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Felix"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Mary"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"SHIRley"</span><span style="color: #0000FF;">}</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tests</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span> <span style="color: #000000;">printVerse</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tests</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<!--
|
||||
constant tests = {"gARY", "Earl", "Billy", "Felix", "Mary", "SHIRley"}
|
||||
for i=1 to length(tests) do printVerse(tests[i]) end for
|
||||
|
|
|
|||
|
|
@ -1,53 +0,0 @@
|
|||
## Clear Host from old Ouput
|
||||
Clear-Host
|
||||
|
||||
$Name = Read-Host "Please enter your name"
|
||||
$Char = ($name.ToUpper())[0]
|
||||
IF (($Char -eq "A") -or ($Char -eq "E") -or ($Char -eq "I") -or ($Char -eq "O") -or ($Char -eq "U"))
|
||||
{
|
||||
Write-Host "$Name, $Name, bo-b$($Name.ToLower())"
|
||||
}
|
||||
else
|
||||
{
|
||||
IF ($Char -eq "B")
|
||||
{
|
||||
Write-Host "$Name, $Name, bo-$($Name.Substring(1))"
|
||||
}
|
||||
else
|
||||
{
|
||||
Write-Host "$Name, $Name, bo-b$($Name.Substring(1))"
|
||||
}
|
||||
}
|
||||
|
||||
IF (($Char -eq "A") -or ($Char -eq "E") -or ($Char -eq "I") -or ($Char -eq "O") -or ($Char -eq "U"))
|
||||
{
|
||||
Write-Host "Banana-fana fo-f$($Name.ToLower())"
|
||||
}
|
||||
else
|
||||
{
|
||||
IF ($Char -eq "F")
|
||||
{
|
||||
Write-Host "Banana-fana fo-$($Name.Substring(1))"
|
||||
}
|
||||
else
|
||||
{
|
||||
Write-Host "Banana-fana fo-f$($Name.Substring(1))"
|
||||
}
|
||||
}
|
||||
|
||||
IF (($Name[0] -eq "A") -or ($Name[0] -eq "E") -or ($Name[0] -eq "I") -or ($Name[0] -eq "O") -or ($Name[0] -eq "U"))
|
||||
{
|
||||
Write-Host "Fee-fi-mo-m$($Name.tolower())"
|
||||
}
|
||||
else
|
||||
{
|
||||
IF ($Char -eq "M")
|
||||
{
|
||||
Write-Host "Fee-fi-mo-$($Name.Substring(1))"
|
||||
}
|
||||
else
|
||||
{
|
||||
Write-Host "Fee-fi-mo-m$($Name.Substring(1))"
|
||||
}
|
||||
}
|
||||
Write-Host "$Name"
|
||||
Loading…
Add table
Add a link
Reference in a new issue