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,14 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
with Ada.Strings.Maps; use Ada.Strings.Maps;
|
||||
with Ada.Characters.Handling; use Ada.Characters.Handling;
|
||||
procedure pangram is
|
||||
|
||||
function ispangram(txt: String) return Boolean is
|
||||
(Is_Subset(To_Set(Span => ('a','z')), To_Set(To_Lower(txt))));
|
||||
|
||||
begin
|
||||
put_line(Boolean'Image(ispangram("This is a test")));
|
||||
put_line(Boolean'Image(ispangram("The quick brown fox jumps over the lazy dog")));
|
||||
put_line(Boolean'Image(ispangram("NOPQRSTUVWXYZ abcdefghijklm")));
|
||||
put_line(Boolean'Image(ispangram("abcdefghijklopqrstuvwxyz"))); --Missing m, n
|
||||
end pangram;
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
with Ada.Characters.Handling; use Ada.Characters.Handling;
|
||||
procedure pangram is
|
||||
|
||||
function ispangram(txt : in String) return Boolean is
|
||||
(for all Letter in Character range 'a'..'z' =>
|
||||
(for some Char of txt => To_Lower(Char) = Letter));
|
||||
|
||||
begin
|
||||
put_line(Boolean'Image(ispangram("This is a test")));
|
||||
put_line(Boolean'Image(ispangram("The quick brown fox jumps over the lazy dog")));
|
||||
put_line(Boolean'Image(ispangram("NOPQRSTUVWXYZ abcdefghijklm")));
|
||||
put_line(Boolean'Image(ispangram("abcdefghijklopqrstuvwxyz"))); --Missing m, n
|
||||
end pangram;
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
Pangram("The quick brown fox jumps over the lazy dog")
|
||||
Func Pangram($s_String)
|
||||
For $i = 1 To 26
|
||||
IF Not StringInStr($s_String, Chr(64 + $i)) Then
|
||||
Return MsgBox(0,"No Pangram", "Character " & Chr(64 + $i) &" is missing")
|
||||
EndIf
|
||||
Next
|
||||
Return MsgBox(0,"Pangram", "Sentence is a Pangram")
|
||||
EndFunc
|
||||
|
|
@ -1,51 +0,0 @@
|
|||
identification division.
|
||||
program-id. pan-test.
|
||||
data division.
|
||||
working-storage section.
|
||||
1 text-string pic x(80).
|
||||
1 len binary pic 9(4).
|
||||
1 trailing-spaces binary pic 9(4).
|
||||
1 pangram-flag pic x value "n".
|
||||
88 is-not-pangram value "n".
|
||||
88 is-pangram value "y".
|
||||
procedure division.
|
||||
begin.
|
||||
display "Enter text string:"
|
||||
accept text-string
|
||||
set is-not-pangram to true
|
||||
initialize trailing-spaces len
|
||||
inspect function reverse (text-string)
|
||||
tallying trailing-spaces for leading space
|
||||
len for characters after space
|
||||
call "pangram" using pangram-flag len text-string
|
||||
cancel "pangram"
|
||||
if is-pangram
|
||||
display "is a pangram"
|
||||
else
|
||||
display "is not a pangram"
|
||||
end-if
|
||||
stop run
|
||||
.
|
||||
end program pan-test.
|
||||
|
||||
identification division.
|
||||
program-id. pangram.
|
||||
data division.
|
||||
1 lc-alphabet pic x(26) value "abcdefghijklmnopqrstuvwxyz".
|
||||
linkage section.
|
||||
1 pangram-flag pic x.
|
||||
88 is-not-pangram value "n".
|
||||
88 is-pangram value "y".
|
||||
1 len binary pic 9(4).
|
||||
1 text-string pic x(80).
|
||||
procedure division using pangram-flag len text-string.
|
||||
begin.
|
||||
inspect lc-alphabet converting
|
||||
function lower-case (text-string (1:len))
|
||||
to space
|
||||
if lc-alphabet = space
|
||||
set is-pangram to true
|
||||
end-if
|
||||
exit program
|
||||
.
|
||||
end program pangram.
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
function Test-Pangram ( [string]$Text, [string]$Alphabet = 'abcdefghijklmnopqrstuvwxyz' )
|
||||
{
|
||||
$Text = $Text.ToLower()
|
||||
$Alphabet = $Alphabet.ToLower()
|
||||
|
||||
$IsPangram = @( $Alphabet.ToCharArray() | Where-Object { $Text.Contains( $_ ) } ).Count -eq $Alphabet.Length
|
||||
|
||||
return $IsPangram
|
||||
}
|
||||
|
||||
Test-Pangram 'The quick brown fox jumped over the lazy dog.'
|
||||
Test-Pangram 'The quick brown fox jumps over the lazy dog.'
|
||||
Test-Pangram 'Съешь же ещё этих мягких французских булок, да выпей чаю' 'абвгдежзийклмнопрстуфхцчшщъыьэюяё'
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
Function Test-Pangram ( [string]$Text, [string]$Alphabet = 'abcdefghijklmnopqrstuvwxyz' )
|
||||
{
|
||||
$alSet = [Collections.Generic.HashSet[char]]::new($Alphabet.ToLower())
|
||||
$textSet = [Collections.Generic.HashSet[char]]::new($Text.ToLower())
|
||||
|
||||
$alSet.ExceptWith($textSet) # remove text chars from the alphabet
|
||||
|
||||
return $alSet.Count -eq 0 # any alphabet letters still remaining?
|
||||
}
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
function pangram( s )
|
||||
dim i
|
||||
dim sKey
|
||||
dim sChar
|
||||
dim nOffset
|
||||
sKey = "abcdefghijklmnopqrstuvwxyz"
|
||||
for i = 1 to len( s )
|
||||
sChar = lcase(mid(s,i,1))
|
||||
if sChar <> " " then
|
||||
if instr(sKey, sChar) then
|
||||
nOffset = asc( sChar ) - asc("a") + 1
|
||||
if nOffset > 1 then
|
||||
sKey = left(sKey, nOffset - 1) & " " & mid( sKey, nOffset + 1)
|
||||
else
|
||||
sKey = " " & mid( sKey, nOffset + 1)
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
next
|
||||
pangram = ( ltrim(sKey) = vbnullstring )
|
||||
end function
|
||||
|
||||
function eef( bCond, exp1, exp2 )
|
||||
if bCond then
|
||||
eef = exp1
|
||||
else
|
||||
eef = exp2
|
||||
end if
|
||||
end function
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
wscript.echo eef(pangram("a quick brown fox jumps over the lazy dog"), "is a pangram", "is not a pangram")
|
||||
wscript.echo eef(pangram(""), "is a pangram", "is not a pangram")"
|
||||
Loading…
Add table
Add a link
Reference in a new issue